Der Perl Programmierer

Errata zum Buch
"Der Perl Programmierer"

Seite 31:
In die Aufzählung 1.1.2 sind versehentlich einige öffnende eckige Klammern geraten, die dort nichts zu suchen haben.
Beim Parameter "-n" wird die while-Schleife natürlich nicht auf den Quelltext, sondern die Eingabe(-datei) angewendet.
Seite 34:
In Tabelle 1.1. ist das Wort "Unterprogramm" abgeschnitten.

Seite 35:
Im Listing stehen zweimal Anführungszeichen statt einmal Anführungszeichen und einmal Apostroph:

$satz = "Ich liebe mein $tier";        # String mit Ersetzung
$preis = 'Die Variable heißt $tier';   # String ohne Ersetzung

Seite 38:
Statt "bla bla bla bla bla" muss es natürlich heissen: "NCC 1701 NCC 1701 NCC 1701 NCC 1701 NCC 1701"
In der Tabelle fehlt etwas Text, wodurch die Operatoren für "größer" und "kleiner" zusammengezogen wurden. Es muss natürlich heissen:
```
kleiner     <    lt
größer      >    gt
```
Seite 39:
Der Operator "!" ist kein Bit-Operator, es gibz nur "~".
Seite 43:
In der Tabelle sind einige Zeichen satztechnisch zusammengezogen worden. Der Zuweisungsoperator heisst "^=", er wurde als Gleichheitszeichen mit Akzent gedruckt. Statt "~-" muss es "~" heissen und der Dekrementoperator "--" sieht aus wie ein Gedankenstrich.
Seite 45:
Die Variable $" ($LIST_SEPARATOR) enthält die Zeichenfolge, die verwendet wird, um Arraywerte beim Interpretieren einer Zeichenkette voneinander zu trennen.
Seite 47:
bei $^F muss es "Dateidescriptor" heissen.
Seite 52:
In der Tabelle muss es beim letzten Element statt "feld[0] = fuenf;" heissen:
feld[5] = fuenf;
Seite 53:
In den Listings sind die Kommentarzeichen versehentlich mit einem Backslash "verziert" worden. Statt "\#" muss natürlich nur das "#" stehen.
Seite 54:
Es muss in Tabelle 1.8 $skalar = join(@array); heissen.
Wird chop auf eine Liste angewendet, so wird die Funktion auf jedes Element der Liste angewendet.
reverse kehrt die Reihenfolge einer Liste um. Umgekehrt sortiert wird natürlich nur bei einer sortierten Liste.
Seite 56:
Tippfehler: $info[5]; # Das 6. Element von @info
Seite 57:
Es fehlt das Wort "nacheinander" bei each:
Liefert nacheinander alle Wertepaare in das Array (each ist ein Iterator).
In der Tabelle 1.9 muss es natürlich "$hash{$key}" heissen (mit geschweiften, nicht mit runden Klammern).

Seite 63:
Ein "nicht" ist zuviel, es muss heissen:

while (Bedingung) { ... }; # abweisende Wiederholung

Seite 70:
"... in dem die Zeichen "$", "" und "%" als Platzhalter ..."
muss heissen:
"... in dem die Zeichen "$", "@" und "%" als Platzhalter ..."
Seite 71:
Bei \&myfunc; ist ein Backslash zuviel, es heisst: &myfunc;
Seite 146:
Statt return scalar <stdin> muss es heissen: return scalar $stdin.

Seiten 396/397:
Bei den Definitionen der subs '*{$member}' und '*{"set_$member"}' wurde im Listing der Strichpunkt hinter der schliessenden geschweiften Klammer der Unterprogrammdefinition vergessen. Um das Ganze Verfahren noch etwas durchschaubarer zu machen, hier noch ein kleines Beispiel:

@colors = qw(red blue green yellow);

for my $name (@colors)
  {
  no strict 'refs';
  *$name = sub { "<FONT COLOR='$name'>@_</FONT>" };
  }

print "Dies ist eine ", red("wichtige"), " Nachricht\n";
print "Alles im ", green("gruenen"), " Bereich\n";

Als Ergebnis erhält man dann:

Dies ist eine <FONT COLOR='red'>wichtige</FONT> Nachricht
Alles im <FONT COLOR='green'>gruenen</FONT> Bereich

Errata zum Buch "Der Perl Programmierer"

Errata zum Buch
"Der Perl Programmierer"