mesurer le temps d'exécution d'une portion de code
use Time::HiRes qw( gettimeofday tv_interval );
 
my $t0 = [gettimeofday];
 
# do whatever
 
print tv_interval ( $t0 ) . "\n";
utilisations en ligne de commande

grep 

perl -ne 'print if /pattern/' < /myfile

chercher/remplacer 

perl -pi.bak -e "BEGIN{@ARGV=glob shift} s/<body.+?>/<body>/g" ./mydir/*.html
 
programmation/perl/snippets/index.txt · Dernière modification: 2006/03/25 09:01 (édition externe)