8.6.20 Brevi follie in Perl script
Sebbene tutti gli script Awk possano essere riscritti con Perl usando
a2p(1), gli ad una riga di Awk sono convertiti meglio a script in
perl ad una riga manualmente. Per esempio
awk '($2=="1957") { print $3 }' |
pu� essere scritto in uno dei seguenti modi:
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"' |
Siccome tutti gli spazi tra gli argomenti di perl nelle righe
sopra possono essere rimossi traendo vantaggio dalla conversione automatica tra
numeri e stringhe in Perl:
perl -lane 'print$F[2]if$F[1]eq+1957' |
Vedere perlrun(1) per le opzioni da riga di comando. Per altri
pazzi script in Perl, https://perlgolf.sourceforge.net
pu� essere interessante.
