Print + effacement + kill

Version imprimable

Salut a tous,

Pour mon programme de rip de dvd, j'utilise mplayer pour qu'il rogne les bandes noires, pour se faire j'utilise ca :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 #!/usr/bin/perl use strict; use warnings; use IO::Pipe; print " ATTENTION ! Pour sortir appuyez deux fois sur 'ECHAP' !\n"; sleep 3; my $d_cropp = new IO::Pipe(); $d_cropp->reader("mplayer -dvd-device /mnt/loop dvd://3 -ao null -vo null -vf cropdetect -sb 50000000 -endpos 5001000o"); { while( defined( my $line = $d_cropp->getline ) ) { print $line if $line =~ m/^.*CROP/; } }
Les deux problèmes sont d'une part, que l'utilisateur est obligé d'appuyer sur "echap" pour terminer la détection du rognage et d'autre part, que cette détection s'étend sur plusieurs lignes, exemple :

Citation:

[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0
[CROP] Aire coupée: X: 0..719 Y: 0..573 (-vf crop=720:560:0:8).0

Ce que j'aimerais faire c'est, dans un premier temps, que ca "print" que sur une seule ligne (comprendre il print la ligne commençant par [CROP], puis il l'efface et il reprint par dessus) et, dans un deuxième temps, envoyé un "kill" au processus après un certain temps.

Note : Ceux qui connaissent un peu mplayer vont me dire d'utiliser les options "-sb/-ss" et "-endpos" afin de ne pas envoyer de signal kill, mais il se trouve que sur mon système ces options ont un comportement vraiment ... bizarre (les positions sont changeantes selon le dvd :bug: ).

Alors, comment faire ?

Jjeje007

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
#!/usr/bin/perl
 
use strict;
use warnings;
use IO::Pipe;
$|++;
 
# time before the kill() in seconds
my $timeout = 60;
 
print "       ATTENTION ! Pour sortir appuyez deux fois sur 'ECHAP' !\n";
sleep 3;				
my $d_cropp = new IO::Pipe();
$d_cropp->reader("mplayer -dvd-device /mnt/loop dvd://3 -ao null -vo null -vf cropdetect -sb 50000000 -endpos 5001000o");
 
my $itime = time();
while( defined( my $line = $d_cropp->getline ) ) {
  chomp();						
  print	"$line\r" if $line =~ m/^.*CROP/;
  if( time() - $itime > $timeout ) {
    print "\n";
    kill(${*$d_cropp}{'io_pipe_pid'});
    $d_cropp->close();
    last;
  }
}

--
Jedaï

Merci !! ça marche juste en corrigeant le :

Code:

chomp ();

en :

Code:

chomp ($line);

Voilà ce que ça donne :
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 #!/usr/bin/perl use strict; use warnings; use IO::Pipe; $|++; open(STDERR, ">error.log" ) or die "Impossible de rediriger STDERR vers le fichier de log : $!\n"; # time before the kill() in seconds my $timeout = 15; print "INFO : Détection du rognage optimal en cours (15 secondes)...\n"; my $d_cropp = new IO::Pipe(); $d_cropp->reader("mplayer -dvd-device /mnt/loop dvd://1 -ao null -vo null -vf cropdetect -sb 50000000"); my $itime = time(); while( defined( my $line = $d_cropp->getline ) ) { chomp ($line); print "$line\r" if $line =~ m/^.*CROP/; if( time() - $itime > $timeout ) { print "\n"; kill(${*$d_cropp}{'io_pipe_pid'}); $d_cropp->close(); last; } }
Merci beaucoup de ton aide (en fait c'est toi qui l'a écrit ce programme :aie: )

Une dernière question concernant le :

Code:

$|++;

Suis-je obligé de le mettre à chaque fois ou je le mets une seule fois au début du script ?
Et, si je suis obligé de le mettre à chaque fois, dois-je le remettre "en paramètre d'origine" et comment ?
Enfin, quel incidence ceci peut avoir sur le script ?

Oups, ça fait plus qu'une question tout ça ;)

Jjeje007

19/07/2007, 01h12
Jedai

$|++; active l'autoflush sur le filehandle actuellement select()ed (autrement dit celui sur lequel print() écrit par défaut, STDOUT la plupart du temps). Tu n'as besoin de l'écrire qu'une seule fois par script si tu veux activer l'autoflush sur STDOUT. Et sans autoflush, le "print "...\r"" serait bufferisé et l'affichage ne se ferait donc qu'au moment où "print "\n"" est utilisé, ce qui retirerait effectivement beaucoup de réactivité au programme.

--
Jedaï
19/07/2007, 10h09
Jjeje007

Ok, merci de ces précisions :D
Je viens de modifier mon script car j'avais mis des "$|++" a la pelle :aie:
Apperement ca marche bel et bien juste avec un seul au tout début, mais j'ai pas encore tout testé.

Jjeje007