Perl ist eine verbreitete Script-Sprache.

helloworld.pl

#!/usr/bin/perl
 
print "Hello World!\n";

"Hello World"-Beispiel bei GitHub

my %hash = (
	'one'	=> 1,
	'two'	=> 2,
	'three'	=> "Three"
);
 
$hash{'two'} = 4;
 
print $hash{'three'};

In very large hashes, it may be slightly faster to retrieve both keys and values at the same time using each (which precludes sorting):

while ( ($family, $roles) = each %HoH ) {
    print "$family: ";
    while ( ($role, $person) = each %$roles ) {
        print "$role=$person ";
    }
    print "\n";
}

Quelle: Hashes of Hashes (Programming Perl)

if ($cond) {
	# Do something
} else {
	# Do something else
}

if ($cond) {
	# Do something
} elsif ($other_cond) {
	# Do something different
} else {
	# Do something else
}

if ($cond =~ /[0-9]{2}/) {
	# Cond is an number with two digits
}

Wichtig: Um Switch benutzen zu können, muss das entsprechende Modul eingebunden werden!

use Switch;
 
switch ($foobar) {
	case "foo" {
		# Is equal to "foo"
	}
	case "bar" {
		# Is equal to "bar"
	}
	case "foobar" {
		# Is equal to "foobar"
	}
	else {
		# Default/Is something different
	}
}

Der Operator ||= ist eine Kombination aus dem logischen Oder-Operator || und dem Zuweisungsoperator =.

my $v = 0;
 
$v ||= 'abc' eq 'abc';
 
print $v, " (expected 1)\n"; # If "abc" is equal to "abc" the output is "1"

Quelle: Misc Perl Info: Perl Operators

Hello World-Script mit der Standard-Methode main, die beim Ausführen des Scripts automatich aufgerufen wird.

#!/usr/bin/perl
 
main: {
	print "Hello World\n";
}

• grep()
• length(): Länge eines Strings bestimmen
• mkdir(): Ein Verzeichnis anlegen
• sort(): Ein Array alphabetisch sortieren
• split(): Einen String anhand einer RegEx zerlegen
• substr(): Einen String kürzen

Um zu überprüfen, ob eine Variable undefiniert ist (häufige Warnmeldung beim Ausführen eines Scripts: Use of uninitialized value in …), gibt es verschiedene Möglichkeiten:

# Method 1
if (!defined($foo)) {
	# Do something ...
}
 
# Method 2 (example with string)
$foo = ($bar) ? $bar : '';

my $count = scalar(@array);

$int = int("02");

if (-e "example.txt") {
	# Check if a file or directory exists
}
 
if (-d "cgi-bin") {
	# Check if a directory exists and/or if it is a directory
}
 
if (-f "example.txt") {
	# Check if a file exists and/or if it is a file
}

Um Daten roh auszugeben, z.B. um alle Eigenschaften eines Objekts einzusehen, kann der Data::Dumper verwendet werden:

use Data::Dumper;
 
print Dumper($foobar);

• Perl
• Perl Programming Documentation