8.6.20 S�rie de courts scripts en Perl

Tous les scripts Awk peuvent �tre r��crits avec Perl. Par exemple :

     awk '($2=="1957") { print $3 }'|

peut �tre remplac� par l'une des lignes suivantes au choix :

     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"' |

On peut enlever tous les espaces dans les arguments de perl dans la ligne pr�c�dente et prendre avantage de la conversion automatique entre les nombres et les cha�nes de caract�res en Perl :

     perl -lane 'print$F[2]if$F[1]eq+1957' |

Voir perlrun(1) pour les options de la ligne de commande. Pour des scripts Perl plus fous, le site https://perlgolf.sourceforge.net peut �tre int�ressant.