8.6.19 Kurze Perl-Skripte
Obwohl jedes Awk-Skript automatisch in ein Perl-Skript mittels
a2p(1) umgeschrieben werden kann, sollten einzeilige Awk-Skripte
am besten manuell nach Perl konvertiert werden. Zum Beispiel ist
awk '($2=="1957") { print $3 }' |
�quivalent zu allen der folgenden Zeilen:
perl -ne '@f=split; if ($f[1] eq "1957") { print "$f[2]\n"}' |
perl -ne 'if ((@f=split)[1] eq "1957") { print "$f[2]\n"}' |
perl -ne '@f=split; print $f[2] if ( $f[1]==1957 )' |
perl -lane 'print $F[2] if $F[1] eq "1957"' |
Da alle Leerr�ume im perl-Argument in der obigen Zeile entfernt
werden k�nnen und unter Ausnutzung der automatischen Umwandlung zwischen Zahlen
und Zeichenketten in Perl kann auch folgendes verwendet werden:
perl -lane 'print$F[2]if$F[1]eq+1957' |
Man vergleiche perlrun(1) f�r die Kommandozeilenoptionen. F�r
noch verr�cktere Perl-Skripte wird auf https://perlgolf.sourceforge.net
verwiesen.
