[Perl-GTK2] `mencoder blabla..` prend 100% CPU empechant GTK d'agir

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:
http://img485.imageshack.us/img485/2...tionbj3.th.jpg

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

Code:

---

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.

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:

---

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

Citation:

---

Envoyé par Jjeje007

Code:

---

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ï

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:

---

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:

---

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.

Citation:

---

Envoyé par knoodrake

Par contre le

Code:

---

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ï

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

Code:

---

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

---

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

Code:

---

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ï

Citation:

---

Envoyé par 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:

---

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:

---

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:"...

Salut,

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

Code:

---

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

---

Jjeje007

Citation:

---

Envoyé par 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:

---

$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. :)

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:

---

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 :aie:

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 )