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.