Perl: Referenz und Spickzettel

Kurz: - Dokumentation: perldoc perlintro, perldoc perlfunc, perldoc.perl.org - Bücher: Learning Perl (“Das Lama”), Modern Perl (kostenlos online) - Übungen: Rosetta Code, Exercism (Perl-Track), PerlMonks (Forum) - Webentwicklung.

Teil des Kurses Perl

Kapitel 11 von 11 im Kurs Perl (Abschnitt „Nachschlagen“). Mit Fortschritt, Quiz und Zertifikat auf der Lernseite.

Variablen und Operatoren

Thema	Syntax
Skalar / Array / Hash	$x, @a, %h
Element	$a[0], $h{key}, $r->[0], $r->{key}
Länge / letzter Index	scalar(@a), $#a
Zahlen vergleichen	== != < > <= >= <=>
Text vergleichen	eq ne lt gt le ge cmp
Logik	&& || ! // and or not
Verketten / wiederholen	. und x
Bereich	1..10, 'a'..'e'

Wichtige Funktionen

Bereich	Funktionen
Text	length substr index rindex uc lc ucfirst lcfirst reverse join split sprintf chomp chop chr ord lc
Listen	push pop shift unshift splice sort reverse map grep wantarray scalar
Hashes	keys values each exists delete
Zahlen	abs int sqrt sin cos atan2 exp log hex oct rand srand
Dateien	open close print printf eof binmode unlink rename mkdir opendir readdir
System	system exec fork wait kill sleep time localtime gmtime exit die warn

Reguläre Ausdrücke

$s =~ /muster/flags       $s =~ s/alt/neu/flags       $s =~ tr/a-z/A-Z/
Flags: i g m s x e r      Gruppen: (…) (?:…) (?<name>…)      Zugriff: $1 $2 $+{name} $& $` $'
\d \w \s \b . ^ $ * + ? {n,m} [abc] [^abc] a|b     nicht gierig: *? +? ??

Spezialvariablen

Variable	Bedeutung
$_	Standardvariable
@_	Argumente einer Subroutine
$0	Skriptname
@ARGV, %ENV	Kommandozeilenargumente, Umgebung
$!	Fehlertext des Systems
$@	Fehler aus eval
$.	Zeilennummer der letzten Eingabe
$, $" $/ $\	Trennzeichen (Ausgabe, Liste, Eingabe, Zeilenende)
$a, $b	in sort

Einzeiler

perl -ne 'print if /fehler/i' log.txt                  # grep
perl -pe 's/alt/neu/g' datei                           # sed
perl -pi -e 's/alt/neu/g' *.txt                        # direkt in Dateien ersetzen
perl -lane 'print $F[2]' datei                         # dritte Spalte (awk)
perl -F: -lane 'print $F[0]' /etc/passwd               # anderes Trennzeichen
perl -ne '$s += $_; END { print "$s\n" }' zahlen.txt   # Summe
perl -le 'print for reverse 1..5'
perl -MList::Util=max -le 'print max(3, 9, 4)'
perl -0777 -ne 'print length' datei                    # Zeichen zählen

Häufige Fehler

Meldung / Problem	Ursache
Global symbol "$x" requires explicit package name	Variable ohne my deklariert (strict)
Use of uninitialized value	undef in Rechnung oder Text
Can't locate Modul.pm in @INC	Modul nicht installiert: cpanm Modul
Can't call method "x" on an undefined value	Objekt ist undef (Fehler vorher prüfen)
Can't use string as a HASH ref	Referenz erwartet, Text bekommen
== auf Texten	eq benutzen
Hash-Reihenfolge wechselt	immer sort keys %h
Odd number of elements in hash assignment	ungerade Anzahl Werte
Datei nicht gefunden	or die "...: $!" zeigt den Grund

Weiterlernen

• Dokumentation: perldoc perlintro, perldoc perlfunc, perldoc.perl.org
• Bücher: Learning Perl (“Das Lama”), Modern Perl (kostenlos online)
• Übungen: Rosetta Code, Exercism (Perl-Track), PerlMonks (Forum)
• Webentwicklung: Mojolicious, Dancer2

Merke

• use strict; use warnings; und my immer
• Kontext (Liste vs. Skalar) verstehen, eq für Text, == für Zahlen
• Reguläre Ausdrücke und Einzeiler sind Perls Stärke
• Module von CPAN, Tests mit Test::More

Quiz zur Selbstkontrolle

Was macht perl -pe 's/a/b/g' datei?

• Ersetzt in jeder Zeile alle a durch b und gibt das Ergebnis aus (richtig)
• Löscht die Datei
• Zählt Zeilen
• Sortiert die Datei

Welche Variable enthält den Fehler nach einem eval?

• $@ (richtig)
• $!
• $_
• $0

Welches Prüfwerkzeug nutzt man vor der Variablen-Verwendung?

• use strict (richtig)
• use vars
• use fast
• use safe

Weiter im Kurs

Zurück: Objektorientierung und Tests

Alle Kapitel: Perl im Überblick