Bonsoir à tous (me revoilà ) ,

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

2255.8 kbit/s
De la commande :

bitrate.py -o 0.1 -t 700 -f 25 41:01
Qui donne ça lorsqu'elle est lancée dans le shell :

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 : 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
#!/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)

Une petite aide serait la bienvenue

Jjeje007