La voix du secrétaire (Jean)
Présents à la réunion, par ordre d'arrivée :
Je ne me souviens pas que nous ayons parlé de golf, mais nous avons tout de même discuté de Perl. Il a été question également informatique et de sujets divers.
#!/usr/local/bin/perl if ( @ARGV == 0 ) { die "Au moins un fichier en entrée" } else { local $^I = '.sav'; while (<ARGV>) { print uc $_ } }et
#!/usr/local/bin/perl -i.sav die "Au moins un fichier en entrée" unless (@ARGV); while (<ARGV>) { print uc($_), "\n" }
open F, 'cat /etc/passwd | awk | cut | sed |';Dans la même veine, Sniper avait écrit le script suivant pour un de ses collègues :
perl -pi.bak -e 's/auteur est Pierre Dupnd/auteur est Pierre Dupond/ig' *.cquelque temps plus tard, le collègue demande à Sniper de jeter un coup d'oeil sur un autre script. Et que voit Sniper ?
#!/usr/bin/perl
`find . -name '*.c' -e perl -pi.bak -e 's/auteur est Pierre Dupnd/auteur est Pierre Dupond/ig'`
cout << "Hello, world!";
Le fichier toto semble ne plus être disponible. Voulez-vous conserver la fenêtre ou la fermer ? (OK pour conserver, Annuler pour fermer)Ce n'est pas parfait, mais c'est quand même mieux que rien. ]