Perl is a high-level, general-purpose interpreted language known for its versatility in text manipulation, system administration, and network programming.

Environment Configuraton

Installation

Most Unix-like systems, including Linux and macOS, come with Perl pre-instaled. You can verify the version or install it using package managers:

• Debian/Ubuntu: sudo apt install perl
• macOS (via Homebrew): brew install perl
• Windows: Download distributions like Strawberry Perl or ActiveState Perl to set up the environment.

To check your current version, run:

perl -v

Core Syntax and Data Structures

Perl scripts typically begin with a shebang line and use pragmas to enforce coding standards.

Basic Script Template

Create a file named app.pl:

#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

say "Perl environment is ready.";

Variable Types

Perl utilizes sigils to denote the data type of a varible:

• Scalars ($): Represent single values like strings or numbers.

  my $item_count = 10;
  my $user_login = "admin";
  

• Arrays (@): Ordered lists of scalars.

  my @protocols = ("HTTP", "FTP", "SSH");
  say $protocols[0]; # Accesses "HTTP"
  

• Hashes (%): Unordered sets of key-value pairs.

  my %metadata = (
      version => 1.2,
      status  => "stable",
  );
  say $metadata{status};
  

Control Flow

Conditional Logic

my $threshold = 50;
if ($threshold > 100) {
    say "Limit exceeded";
} else {
    say "Within range";
}

Iteration

my @servers = ('web01', 'web02', 'db01');

foreach my $host (@servers) {
    say "Checking connectivity for: $host";
}

Subroutines

Functions in Perl are defined using the sub keyword. Arguments are passed through the special array @_.

sub calculate_total {
    my ($price, $tax) = @_;
    return $price + ($price * $tax);
}

my $final_amount = calculate_total(100, 0.05);
say "Total: $final_amount";

File I/O Operations

Reading from a File

my $source = 'data.log';
open(my $fh, '<', $source) or die "Unable to open '$source': $!";

while (my $row = <$fh>) {
    chomp $row;
    say "Processing: $row";
}
close($fh);

Writing to a File

my $target = 'report.txt';
open(my $out, '>', $target) or die "Could not write to '$target': $!";
say $out "Log entry: " . localtime();
close($out);

Module Management and CPAN

CPAN (Comprehensive Perl Archive Network) provides thousands of third-party modules. Use the cpan client to install extensions:

cpan JSON
cpan LWP::UserAgent

Example of using the JSON module:

use JSON;
my $data = { id => 500, message => "Success" };
my $json_string = encode_json($data);
say $json_string;

Exception Handling

Errors can be trapped using eval blocks. If an error occurs, the special variable $@ captures the message.

eval {
    my $result = 10 / 0;
};
if ($@) {
    warn "Caught exception: $@";
}