Perl

[Perl] Optimisation

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Optimisation

vfqs

Slt all,

Voila, je souhaite avoir votre avis sur la situation suivante

Code :

@tab=`cat 1.txt`;
for $ligne(@tab){
($a,$b,$c,$d)= split (/:/, $ligne);

Concernant une substitution sur la valeur de $a et $d, le plus optimal serait de faire une substitution sur $ligne ou sur $a et $d suivant le split ?

ps: la substitution est identique pour $a et $d.

A mon avis, le mieux est de le faire sur chaque variable, ainsi la commande evitera de balayer la ligne entière.

Message édité par vfqs le 25-04-2003 à 12:59:29

Publicité

Aricoh

gentil mais fo po pousser

vfqs a écrit :

Slt all,

Voila, je souhaite avoir votre avis sur la situation suivante

Code :

@tab=`cat 1.txt`;
for $ligne(@tab){
($a,$b,$c,$d)= split (/:/, $ligne);

si tu ne veux juste que récupérer $a et $d + permuter $d dans $a et vice versa, tu peux faire ça :

Code :

@tab=`cat 1.txt`;
for $ligne(@tab){
if ($ligne =~ /^(.+):.+:.+:(.+).$/) {
$a = $2;
$d = $1;
}
}

Message édité par Aricoh le 25-04-2003 à 13:32:25

vfqs

Euh...c pas trop ca que je veux.

En fait, je voulais savoir quelle serait le plus optimal entre ces des deux bouts de code:

Code :

@tab=`cat 1.txt`;
for $ligne(@tab){
($a,$b,$c,$d)= split (/:/, $ligne);
$a=~ s/toto/titi/;
$d=~ s/toto/titi/;
}

Code :

@tab=`cat 1.txt`;
for $ligne(@tab){
$ligne=~ s/toto/titi/g;
($a,$b,$c,$d)= split (/:/, $ligne);
}

Aricoh

gentil mais fo po pousser

dans le 1er code, tu as 2 substitutions
dans le second, juste 1

tu vois où je veux en venir ?

vfqs

Aricoh a écrit :

dans le 1er code, tu as 2 substitutions
dans le second, juste 1

tu vois où je veux en venir ?

C ce que je me dis aussi. Mais en termes de temps de traitement ? Chuss pas sur que le le 1er cas soit le plus rapide, car il balaye la ligne entière.

pospos

dans les deux cas c'est extremement rapide, à moins que ta ligne fasse 30mo!

Dans tous les cas c'est difficile de savoir à l'avance: il faut voir la gueule de ta ligne.

L'efficacité d'une regexp est jamais certaines: parfois il vaut mieux faire /tralala|tralali/ et parfois /tralala/ | /tralali/ par exemple, et ca depend des cas. Ya aussi l'instruction study qui permet parfois de gagner un peu de temps...
Dans tous les cas pour du traitement comme ca tu va perdre plus de temps à te prendre la tete à optimiser que celui que tu gagnera au final.

Si vraiment tu veux avoir une reponse utilise le module benchmark pour faire le test avec tes données et ton matos (disque dur rapide et processeur lent, ou l'inverse, ne donneront pas forcement les meme resultats par exemple)

FORUM HardWare.fr

Programmation

Perl

[Perl] Optimisation

Sujets relatifs
PERL probleme d'envois de mail	Besoin d'aide pr optimisation (ACCESS)
Pour les pros de l'optimisation :)	[perl] limiter le nombre de chiffre d'un float ?
perl - protéger un programme contre les plantages ?	[ Perl] cmd sort
PB de path en perl	[PERL] Couleurs à l'affichage
[php ou perl] petite bd dans 1 fichier	chemin vers perl automatique pour fichier exécutable
Plus de sujets relatifs à : [Perl] Optimisation

Page générée en 0.045 secondes