pospos a écrit :
tu peux utiliser le module Benchmark pour comparer la vitesse.
ca va lancer chaque bout de code un tres gand nombre de fois et claculer le temps pris.
http://search.cpan.org/author/JHI/ [...] nchmark.pm
Tu peux aussi faire ca "à la main" avaec Time::HiRes:
Code :
- use Time::HiRes qw(gettimeofday);
- (...)
- my $iterations = 10000;
- my $t1 = gettimeofday();
- for (1..$iterations) {
- for $ligne (@Unix_dir2){
- chomp;
- @comp = grep /$ligne/, @Msg_dir;
- }
- }
- print "Version1: ",gettimeofday() - $t1, "s";
- my $t2 = gettimeofday();
- for (1..$iterations) {
- while (defined($Unix_dir2) || defined($Msg_dir)){
- if ( defined($user)){
- print $Unix_dir2=$Msg_dir;
- }
- }
- }
- print "\nVersions2: ",gettimeofday() - $t2, "s";
|
|