Script perl qui appelle un script perl avec un time [Résolu]

[lovelace63]

Bonjour à tous,
Je rencontre un problème pour enregistrer le temps que met mon script perl.
Mon problème vient du fait que j'ai un premier script qui sert un peu de main et qui appelle un autre script en lui passant les paramètres.

Script main.pl :

Code :

1
2
3
4
5
6
7
#! /usr/bin/perl
 
foreach $lettre ("a", "b", "c"){
	foreach $chiffre (1, 2, 3){
		system("perl test.pl $lettre $chiffre");
	}
}

Script test.pl :

Code :

1
2
3
4
5
6
#! /usr/bin/perl
$lettre = $ARGV[0];
$chiffre = $ARGV[1];
 
print "test : $lettre $chiffre\n";
`touch test$lettre$chiffre`;

J'ai besoin d'enregistrer le résultat de time dans le fichier qui est créé par le script test afin de sauvegarder le temps d'exécution de chaque expérimentation. Tous les fichiers créés par le script test ont toujours le format test$lettre$chiffre, du coup j'ai essayé d'ajouter le temps à la fin de ce fichier en utilisant cette commande dans mon main :

Code :

system("( time perl test.pl $lettre $chiffre ) 2> test$lettre$chiffre");

Mais malheureusement bien que cette commande écrive le temps dans le bon fichier, elle me l'écrit au début du fichier ce qui efface ce qui avait avant sur les 10 premières lignes.
Du coup comment puis je faire pour y enregistrer à la fin?

De plus le temps retourné a un format bizarre :

Code :

1
2
0.15user 0.02system 0:00.16elapsed 112%CPU (0avgtext+0avgdata 88800maxresident)k
0inputs+80outputs (0major+6815minor)pagefaults 0swaps

Comment dois je faire pour avoir un format simple :

Code :

1
2
3
real        0m4.704s
user        0m4.584s
sys        0m0.684s

Bonne journée à ceux qui me liront

[Gardyen]

pour indiquer que tu veux écrire à la fin du fichier, double la redirection:

Code :

system("( time perl test.pl $lettre $chiffre ) 2>> test$lettre$chiffre");

le format que tu vois là est le format par défaut quand time écrit dans un fichier, pour le changer tu peux le préciser dans la commande:

Code :

system("time -f'real %E \nuser %U \nsys %S ' perl test.pl $lettre $chiffre 2>> test$lettre$chiffre");

consulte le manuel si tu veux plus d'infos dans le time

[lovelace63]

Tout marche niquel
Merci beaucoup pour ton aide Gardyen.

[Lolo78]

Sinon, tu appelle au début de l'exécution la fonction Perl time qui te renvoie le nombre de secondes écoulées depuis la date origine (l'"époque", le 01/1.1970 sur les systèmes Unix). Tu stockes ce nombre. Tu recommences à la fin de l'exécution et la différence entre les deux nombres est la durée d'exécution.

Suivant le besoin, il existe aussi des modules de profilage de code.