Perl

[Perl] Vitesse entre grep et defined

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Vitesse entre grep et defined

vfqs

Slt

Je souhaiterai savoir le quel serait le plus rapide et le moins consommateur en memoire:

Code :

for $ligne (@Unix_dir2){
chomp;
@comp = grep /$ligne/, @Msg_dir;

Code :

while (defined($Unix_dir2) || defined($Msg_dir)){
if ( defined($user)){
print $Unix_dir2=$Msg_dir;
}
}

Message édité par vfqs le 25-06-2003 à 11:27:28

Publicité

vfqs

Up :sweat:

pospos

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

vfqs

pospos a écrit :

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

Merci je vais essayer de suite.

FORUM HardWare.fr

Programmation

Perl

[Perl] Vitesse entre grep et defined

Sujets relatifs
[Perl] Compte à rebours	[Perl] Substitution
[Perl] Hash et cgi	[Perl] Utiliser un tableau d'une subroutine
[Perl] Afficher seulement 2 chiffre après la virgule	script perl / script php: lequel est le plus rapide??
[perl] Créer un tableau à 2 dimensions	[Perl] Des couleurs en console ?
[Perl/CGI] Appeler une page cgi dans une page cgi ?	[HTML][PERL] 2 frames, cgi, passage de paramètres d'un à l'autre
Plus de sujets relatifs à : [Perl] Vitesse entre grep et defined

Page générée en 0.044 secondes