Galère avec une regexp

Bonsoir à tous (me revoilà :mouarf: ) ,

Bon, je galère totalement avec les regexpr de perl, comme tout noob qui se respecte :aie:
Bref, voilà comment je faisais pour chopper juste ça (exemple) :

Citation:

---

2255.8 kbit/s

---

De la commande :

Citation:

---

bitrate.py -o 0.1 -t 700 -f 25 41:01

---

Qui donne ça lorsqu'elle est lancée dans le shell :

Citation:

---

Length: 2461 seconds (61525 frames @ 25.0 fps)
Other: 37.55 MB @ 128.0 kbit/s
Target: 700 MB => 662.4 MB @ 2255.8 kbit/s

---

Voilà le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#!/usr/bin/perl   use strict; use warnings; my (@p_d_b_1); # Oulala le nom du tableau :( - A CHANGER ! open(BITRATE_700, "bitrate.py -o 0.1 -t 700 -f 25 41:01 |") or print "CRIT : Problème ! : $!\n" and die; while ( <BITRATE_700> ) { push( @p_d_b_1, $_ ); } close BITRATE_700;   #print "@p_d_b_1\n";   my (@display_b_1); for( @p_d_b_1) { if ( m/^.*Target:/ ){ chomp; @display_b_1 = split (/@/); } }   print "$display_b_1[1]\n";

---

Et donc ça va faire bien 3 heures que je "joue" avec les regexpr pour qu'il me sorte que ce qui est en gras plus haut (2255.8) :evilred:

Une petite aide serait la bienvenue :mrgreen:

Jjeje007

J'ai l'impression que tu as cherché, je vais donc te donner direct la réponse, mais essaie de comprendre comment elle marche :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl use strict; use warnings; use IO::Pipe; my $pipe = new IO::Pipe(); $pipe->reader("bitrate.py -o 0.1 -t 700 -f 25 41:01");   while( <$pipe> ) { if( m/Target.*\@\s*([\d\.]+)/ ) { print "$1\n"; last; } } __END__

---

(Un bouquin super sur les Regexp c'est le Friedl chez O'Reilly, si t'as les moyens (le mieux c'est de le prendre en anglais si tu en es capable, parce que la version française a une version de retard, mais bon, ça reste très exploitable !))

--
Jedaï

Salut,

Merci pour ton aide Jedai, je suppose que je peux me passer du "IO::Pipe" et faire ça avec open (étant donné que le but est non seulement de l'affiché mais aussi de le réutiliser plus tard )

Pour ce qui est du livre, je n'ai pas de problème avec de l'anglais courant, mais si ça commence a partir en terme technique ....

Jjeje007

Citation:

---

Envoyé par Jjeje007

Salut,

Merci pour ton aide Jedai, je suppose que je peux me passer du "IO:: Pipe" et faire ça avec open (étant donné que le but est non seulement de l'affiché mais aussi de le réutiliser plus tard )

---

Je ne vois pas pourquoi tu utiliserais open(), le seul truc à changer si tu veux conserver le résultat, c'est la ligne du print :

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; my $pipe = new IO::Pipe(); $pipe->reader("bitrate.py -o 0.1 -t 700 -f 25 41:01");   my $bitrate; while( <$pipe> ) { if( m/Target.*\@\s*([\d\.]+)/ ) { $bitrate = $1; } } $pipe->close();   print $bitrate; __END__

---

--
Jedaï

Ok, ou comme ça aussi non ? :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#!/usr/bin/perl   use strict; use warnings;   my $bitrate;   open(BITRATE_700, "bitrate.py -o 0.1 -t 700 -f 25 41:01 |") or print "CRIT : Problème ! : $!\n" and die; while ( <BITRATE_700> ) { $bitrate = $1 if $_ =~ m/Target.*\@\s*([\d\.]+)/; } close BITRATE_700;   print "le bitrate est $bitrate\n";

---

:D :aie:

Jjeje007