Discussion :

[mobidyc]

Bonjour,

je cherche depuis hier sans réussir à comprendre.
si je positionne un "print" quelquepart dans ma fonction, j'ai le résultat attendu, si je le retire, je ne l'ai plus...

please HELP!!!

voici la fonction qui ne fonctionne pas (pas taper si elle est mal écrite, je débute):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/perl
use strict ;
use warnings ;
use diagnostics ;
use Time::HiRes qw( gettimeofday tv_interval) ;
 
 
sub refref {
	my ($seconds, $microseconds) = gettimeofday;
 
	if( !ref($_[0]) ) {
		my $ref = [ ($seconds, $microseconds, $_) ] ;
		print "\n" ;
		return ($ref) ;
	}
	else {
		my ($oldtime, $name) = @_ ;
		my ($oldseconds, $oldmicroseconds) = @$oldtime ;
		my $elapsed = tv_interval( [$oldseconds, $oldmicroseconds, [$seconds, $microseconds]] );
		return($elapsed);
	}
}
 
my $foo = refref('test microseconde') ;
print "Temps passe: " . refref($foo) . "s\n" ;

ce script me sort :
Temps passe: 0.000297s

si je commente ou supprime la ligne contenant le print, le résultat est :
Temps passe: 3.5e-05s

imbitable pour moi.
merci de votre aide.

cdt,
Mobidyc

[lennelei]

Je n'ai pas regardé en détail ton programme, mais ton problème c'est quoi exactement ?

Parce que quand je vois tes deux lignes:
Temps passe: 0.000297s
et
Temps passe: 3.5e-05s

Je vois la même chose, si ce n'est que la première mets un poil plus de temps que la deuxième (rappel : 3.5e-05 == 3.5 * 10^-5 == 0.000035).

Voir ici : http://fr.wikipedia.org/wiki/Liste_d...3%A9matiques#E
et là : http://fr.wikipedia.org/wiki/Notation_scientifique

edit: tu peux peut-être regarder du côté de printf si ton problème c'est l'affichage...

[mobidyc]

Merci,

je savais que c'était une question stupide et je l'ai posée quand même...

si je modifie:
print "Temps passe: " . refref($foo) . "s\n" ;
par
printf( "Temps passe: %fs\n",${tempspasse}) ;

je n'ai plus le problème.

encore merci Alek-C.

Cdt,
Mobidyc

[lennelei]

Il n'y a pas de questions stupides

Sinon, tu peux cliquer sur résolu si c'est ok !

[mobidyc]

fait.

merci ^_^

--
Mobidyc