Discussion :

[knoodrake]

Bonjour,

Je ne sait pas d'ou peu venir une solution ( de Perl ? de Gtk ? de bash ?.. ) donc j'ai fini par poster ce message ici. J'espere avoir choisi le forum le plus adapté.

Bon, je vous expose ma situation et mon probleme (ps: je débute Perl)

Avec des mots:
Je fait une mini-GUI pour mencoder pour mon papa. Pour ce faire, je lance la commande mencoder dans perl, et j'en récupère la sortie pour l'examiner et en retirer l'avancement en pourcentage de l'encodage, ceci afin de faire avancer une barre de progression Gtk2::ProgressBar.

[EDIT : ] je sai pas si ça va être plus clair ou si ça empire :aie: , mais le but c'est d'être plus clair. j'ai fait un super croquis de la mort pour expliquer:


Avec du code ( très largement épuré )

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
 
        # La commande de mencoder
        my $cmd = "nice -19 mencoder "		
		."-ovc xvid -xvidencopts fixed_quant\=$videoBitrate "
		."-oac mp3lame -lameopts abr\=$audioBitrate "
		."\"$inpFile\" -o \"".$outDir."/".$outFile."\"";
 
        # transforme la ligne ou y'a le % qui change en plusieurs lignes pour utiliser avec <>
	my $c = "$cmd | tr '\\r' '\\n' | grep 'Pos:' | ";
 
        # $progressBar est le widget Gtk2::progressBar
	Gtk2->grab_add($progressBar);
	open (COMMAND,$c);
	select COMMAND; $|=1;
 
	# Bar de progression
	while (<COMMAND>) {
                # je récupere le % dans la ligne sortie de mencoder
		$_ =~ /\(((\s|[0-9])[0-9])\%\)/;
		my $n = $1/100.;
                # Si le % a changé
		if (!($n==$percent)) {
			$percent = $n;
			$progressBar->set_fraction($n);
			$progressBar->set_text($1.'%');
                        # je rend la main a Gtk2 le temps qu'il mette a jour la barre
			Gtk2->main_iteration_do(TRUE);
		}
	}
	$progressBar->set_fraction(1.);
	$progressBar->set_text('Termine');
	Gtk2->grab_remove($progressBar);

Probleme

Sur des petites vidéo, aucun probleme. Ca marche niquel.
Sur des grosses vidéo (DV, genre +1Mb/s) mencoder encode sans probleme, mais il ne laisse aucune place à Gtk2 pour mettre a jour la barre de progression qui du coup passe de 0 à 100% quasiment d'un coup une fois l'encodage terminé.
J'ai bien éssayé de foutre un "nice -19" devant la commande de mencoder, mais rien n'y fait.

Une idée ? une Piste ?
PS: Les fork() seraient-ils une solution ? ( mais ça a l'air un peu plus lourd a programmer .. )

Merci par avance.

[Jjeje007]

Salut,

Tu devrais regarder du coté de l'autoflush ($++), voilà un bout de code qui permet juste d'affiché toute la ligne de mencoder ou il y a les info sur l'avencement de l'encodage :

Code :

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

1
2
3
4
5
6
7
8
9
$|++; 					# Active l'autoflush
my $pipe_1 = new IO::Pipe(); 
	$pipe_1->reader("mencoder $dvd_1 $chemin $dvd_2$dvd_3 -of rawvideo -ovc x264 -x264encopts bitrate=$bitrate: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$threads -vf crop=$crop -nosound -o /dev/null");
	{ 
		local $/ = "\r"; 
		while( defined( my $line = $pipe_1->getline ) ) {
			print $1 if $line =~ m/(Pos.*\r)$/;
		}
	}

Sans l'autoflush, ca merdouille complet (ce n'est pas assez "rafraichi")

Jjeje007

[Jedai]

Code :

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

1
2
 
		local $/ = "\r";

Cette ligne est peut être importante également, je ne suis pas sûr du tout que sans ça Perl ne considère pas l'ensemble des "mises à jour du pourcentage" comme une immense ligne unique.

--
Jedaï

[knoodrake]

ah. je vai essayer avec l'autoflush ( ps: IO :: Pipe() est dans la distribution "core" de perl ou dans le CPAN ? enfin bref, j'vous pose la question mais je vai regarder moi-même )
Par contre le

Code :

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

local $/ = "\r";

sert a quoi ?
J'ai aussi jeté un coup d'oeils aux sources d'AcidRip et j'ai croisé Gtk2->events_pending() utilisé quand la main est donné a Gtk:

Code :

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

while (Gtk2->events_pending() ) { Gtk2->main_iteration() }.

Je vai essayer aussi.

Merci bcp pour vos réponses; je revien dès que j'ai essayé tout ça.

[Jedai]

Par contre le

Code :

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

local $/ = "\r";

sert a quoi ?

Il sert à dire à Perl de lire avec <> uniquement jusqu'au prochain "\r" (le défaut est "\n", de façon à ce que <> lise ligne par ligne), qui est le caractère émis par mencoder entre deux mises à jour du pourcentage.

--
Jedaï

[knoodrake]

ah oui ok. ca remplace le "tr" que j'ai mis moi

Code :

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

	my $c = "$cmd | tr '\\r' '\\n' | grep 'Pos:' | ";

[Jedai]

A priori, la manière "propre" c'est d'utiliser les "IO channels" de GLib, comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Glib::IO->add_watch(\*COMMAND,
           in => sub { local $_ = <COMMAND>);
                # je récupere le % dans la ligne sortie de mencoder
		$_ =~ /\(((\s|[0-9])[0-9])\%\)/;
		my $n = $1/100.;
                # Si le % a changé
		if (!($n==$percent)) {
			$percent = $n;
			$progressBar->set_fraction($n);
			$progressBar->set_text($1.'%');
		}
	});

Essaie, peut-être cela améliorera-t-il les choses.

--
Jedaï

[goran kajfes]

Salut,

Tu devrais regarder du coté de l'autoflush ($++), voilà un bout de code qui permet juste d'affiché toute la ligne de mencoder ou il y a les info sur l'avencement de l'encodage :

Code :

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

1
2
3
4
5
6
7
8
9
$|++; 					# Active l'autoflush
my $pipe_1 = new IO::Pipe(); 
	$pipe_1->reader("mencoder $dvd_1 $chemin $dvd_2$dvd_3 -of rawvideo -ovc x264 -x264encopts bitrate=$bitrate: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$threads -vf crop=$crop -nosound -o /dev/null");
	{ 
		local $/ = "\r"; 
		while( defined( my $line = $pipe_1->getline ) ) {
			print $1 if $line =~ m/(Pos.*\r)$/;
		}
	}

Sans l'autoflush, ca merdouille complet (ce n'est pas assez "rafraichi")

Jjeje007

Bonjour.

Je ne vois pas ce qui dans la ligne de code suivante permet d'afficher toute la ligne de sortie de mencoder ("Pos:..."):

Code :

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

mencoder $dvd_1 $chemin $dvd_2$dvd_3 -of rawvideo -ovc x264 -x264encopts bitrate=$bitrate: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$threads -vf crop=$crop -nosound -o /dev/null

Est-ce que quelqu'un peut, s'il lui plaît, la réécrire de façon minimaliste?

Je précise que j'ai le même problème que knoodrake (mais avec un autre langage de script). Si seulement je pouvais récupérer toutes les sorties "Pos:"...

[Jjeje007]

Salut,

Ce n'est pas la ligne que tu cites qui fait le bouleau, c'est l'expression régulière plus bas :

Code :

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

$line =~ m/(Pos.*\r)$/;

Jjeje007

[goran kajfes]

Salut,

Ce n'est pas la ligne que tu cites qui fait le bouleau, c'est l'expression régulière plus bas :

Code :

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

$line =~ m/(Pos.*\r)$/;

Jjeje007

Salut Jjeje007. Merci pour ta réponse.

Ça aurait pu m'aider si j'avais activé la notification des réponses par email. Je croyais l'avoir déjà fait il y a longtemps.

Effectivement, les caractères importants dans la ligne que tu cites sont '\r'.
J'essayais de récupérer des lignes finissant par '\n' au lieu de récupérer des chaînes de caractères finissant par '\r'. Au final je ne pouvais utiliser qu'un nombre très faible de chaînes de caractères 'Pos:...' et plus précisément de % de progression.

J'ai longtemps cru qu'une option particulière de mencoder pouvait arranger cela.

En tout cas je peux maintenant faire fonctionner correctement une barre de progression de mencoder.

[knoodrake]

J'ai presque 1 an de retard, mais j'avai fini par abandoné, et la, je me suis remis le nez dans une situation similaire et j'ai fini par trouver la solution a mon problème, ceci grâce aux bonnes indications de Jedai sur les IO Chanels.
Je suis revenu poster ma solution car j'ai eu un mal fou à me renseigner la dessus sur le net.

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
 
my $c = 'ma commande';
open our $fh, '-|', $c; 
our $watch = Gtk2::Helper->add_watch( fileno($fh), in => \&foo );
 
# ... code ...
 
sub foo {
  our $tag;
  our $fh;
  local $_ = <$fh>;
 
  # ... code ...
  # comme par exemple:
  $ProgressBar->pulse;
 
  if(eof($fh)) {
      Gtk2::Helper->remove_watch($tag);
  }
}

à réussi

Ps: a noter qu'on peu faire exactement la même chose sans Gtk2::Helper en utilisant Glib::IO ( de toute manière, Gtk2::Helper n'étant qu'un "raccourcis" si je puis dire )