Perl

use strict & warnings

#!/usr/bin/perl
use strict;
use warnings;

A potential problem caught by use strict; will cause your code to stop immediately when it is encountered, while use warnings; will merely give a warning (like the command-line switch -w) and let your code run.

print ” & “”

 print "Hello, $name\n";     # works fine
 print 'Hello, $name\n';     # prints $name\n literally

variables

scalars

A scalar represents a single value:

Scalar values can be strings, integers or floating point numbers, and Perl will automatically convert between them as required.

 my $animal = "camel";
 my $answer = 42;

==note==

print; # prints contents of $_ by default

Arrays

An array represents a list of values

Arrays are zero-indexed.

 my @animals = ("camel", "llama", "owl");
 my @numbers = (23, 42, 69);
 my @mixed   = ("camel", 42, 1.23);

@animals[0,1];                 # gives ("camel", "llama");
@animals[0..2];                # gives ("camel", "llama", "owl");
@animals[1..$#animals];        # gives all except the first element

==note==

$#array tells you the index of the last element of an array:

Hashes

A hash represents a set of key/value pairs:

 my %fruit_color = ("apple", "red", "banana", "yellow");

You can use whitespace and the => operator to lay them out more nicely:

 my %fruit_color = (
    apple  => "red",
    banana => "yellow",
 );

To get at hash elements:

$fruit_color{"apple"};   

You can get at lists of keys and values with keys() and values().

my @fruits = keys %fruit_colors;
my @colors = values %fruit_colors;

Variable scoping

However, the above usage will create global variables throughout your program, which is bad programming practice. my creates lexically scoped variables instead. The variables are scoped to the block (i.e. a bunch of statements surrounded by curly-braces) in which they are defined

 my $x = "foo";
 my $some_condition = 1;
 if ($some_condition) {
     my $y = "bar";
     print $x;           # prints "foo"
     print $y;           # prints "bar"
 }
 print $x;               # prints "foo"
 print $y;               # prints nothing; $y has fallen out of scope

Regexp

• =~ match
• !~ does not match

Replace

s/<pattern>;/<replacement>;/

match

m/<regexp>;/ or /<regexp>;/

transform

tr/<pattern>;/<replacemnt>;/