Discussion :

[Jjeje007]

Salut,

Désolé pour le titre mais je sais pas trop comment condenser ça
Bref, voilà ce que j'aimerais faire.

J'ai cette fonction :

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
sub M2DHM {
	my $minutes = shift;
	chomp $minutes;
 
	#	Si les minutes retournées par mencoder sont égales à 0, alors on retourne 'estimation en cours' 
	if ( $minutes eq 0 ) {
		return ( sprintf 'Estimation en cours');
	}
 
	# Si c'est pas égal à 0, alors calcul
	else {
		my $jours = int($minutes/1440);
		$minutes -= $jours * 1440;
		my $hours = int($minutes/60);
		$minutes -= $hours * 60;
		# TODO : n'afficher que ce qui est différent de zero
		return sprintf '%02d jour(s), %02d heure(s) et %02d minute(s)', $jours, $hours, $minutes;
	}
}

Qui me permet de convertir des minutes en jours, heures minutes.
Je l'appelle dans mon script de cette mannière :

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
my $video_encod = new IO::Pipe(); 
	$video_encod->reader("mencoder -nosound -dvd-device /home/jerome/VIDEO_TS dvd://1 -vf crop=720:576:0:0 -of rawvideo -ovc x264 -x264encopts bitrate=1000:pass=1:subq=4:8x8dct:me=dia:frameref=5:bframes=2:b_pyramid:weight_b:direct_pred=auto:partitions=all:qcomp=0.75:ip_factor=1.10:pb_factor=1.40 -o /dev/null");
	{ 
		local $/ = "\r";
		my $runtime;
		while( defined( my $line = $video_encod->getline ) ) {
			#	Pour info (pourcentage) $1 = '((\s{0,1}\d+%)\)', (fps) $2 = '([\d\.]+s)' et (temps restant) $3 = '(\d+)'
			#	Ligne de mencoder lors du lancement :
			# Pos:   0.0s      1f ( 0%)  0.00fps Trem:   0min   0mb  A-V:0.000 [0:0]
			if ( $line =~ m/Pos:\s{0,3}?[\d\.]+s\s{0,6}?\d+f\s{1}?\((\s{0,1}\d+%)\)\s{0,2}?([\d\.]+)fps\s{1}?Trem:\s{0,3}?(\d+)min.*$/ ) {
				$runtime = M2DHM($3); # Utilisation de la fonction calcul m > j:h:m
				print "       Temps restant : $runtime, $1 terminé, Vitesse : $2 fps\r";
			}
			else {
				print "       Estimation en cours ...\r";
			}
		}
	}

Voilà ce que ca donne dans mon shell :

Temps restant : 00 jour(s), 00 heure(s) et 58 minute(s), 0% terminé, Vitesse : 21.88 fps

J'aimerais un petit coup de main pour que la fonction ne retourne pas les jours si ceux-ci sont égales à 0 et ainsi de suite.
Par exemple si jours = 0 et heures = 0 alors :

Temps restant : 58 minute(s), 0% terminé, Vitesse : 21.88 fps

Merci d'avance
A noter que j'avais déjà essayer avec des if / elsif mais c'est un joli bordel


Jjeje007

[Jedai]

Ben tu es comme même obligé d'utiliser des if, par exemple :

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
sub M2DHM {
	my $minutes = shift;
	chomp $minutes;
	my $result;
 
	#	Si les minutes retournées par mencoder sont égales à 0, alors on retourne 'estimation en cours' 
	if ( $minutes eq 0 ) {
		$result = 'Estimation en cours';
	}
 
	# Si c'est pas égal à 0, alors calcul
	else {
		my $jours = int($minutes/1440);
		$minutes -= $jours * 1440;
		my $hours = int($minutes/60);
		$minutes -= $hours * 60;
		$result .= sprintf '%02d jour(s) ', $jours if $jours;
		$result .= sprintf '%02d heure(s) ', $heures if $heures;
		$result .= sprintf '%02d minute(s)', $minutes if $minutes;
	}
 
	return $result;
}

Bon ça ne sera pas aussi joli (pas de "et" ou de virgules), mais c'est relativement simple, sinon tu devras effectivement en passer par des elsif.

Sinon tu peux faire un truc plus intelligent, comme par exemple :

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
26
27
28
29
30
31
32
33
34
35
no warnings 'numeric';
 
sub format_list (&@) {
  my ($block, @elems) = @_;
  my $result;
  @elems = grep {$block->($_)} @elems;
 
  splice @elems, 0, $#elems, (join ', ', @elems[0..($#elems-1)]) if @elems > 2;
  $elems[$#elems - 1] .= ' et ' if @elems > 1;
 
  return join '', @elems;
}
 
sub M2DHM {
	my $minutes = shift;
	chomp $minutes;
	my $result;
 
	# Si les minutes retournées par mencoder sont égales à 0, 
	# alors on retourne 'estimation en cours' 
	if ( $minutes eq 0 ) {
		return 'Estimation en cours';
	}
 
	# Si c'est pas égal à 0, alors calcul
	else {
		my $jours = sprintf '%02d jour(s)', int($minutes/1440);
		$minutes -= $jours * 1440;
		my $hours = sprintf '%02d heure(s)', int($minutes/60);
		$minutes -= $hours * 60;
		$minutes = sprintf '%02d minute(s)', $minutes;
 
		return format_list {$_+0} ($jours, $hours, $minutes);
	}
}

Et c'est joli à nouveau.

--
Jedaï

[Jjeje007]

Merci

Juste une question par rapport à ça :

Code :

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

no warnings 'numeric';

Cela va-t-il s'appliquer à tout mon programme ?
Ou si je le mets seulement dans la fonction M2DHM, ca ne s'appliquera que dans celle-ci ?

Jjeje007

[Jjeje007]

Merci

Juste une question par rapport à ça :

Code :

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

no warnings 'numeric';

Cela va-t-il s'appliquer à tout mon programme ?
Ou si je le mets seulement dans la fonction M2DHM, ca ne s'appliquera que dans celle-ci ?

Jjeje007

Ok, j'ai trouvé la réponse : Si je le mets seulement dans la fonction M2DH alors le "no warnings" ne s'appliquera qu'a celle-ci (enfin d'après ce que j'en ai compris )

Jjeje007

[Woufeil]

Pour être précis, ton no warning aura une portée lexicales, il sera donc limité au bloc où tu l'auras mis