Comment assigner chaque ligne trouvée à une variable ?

Bonsoir à tous,

Je préfère préciser que je débute en perl :aie:
Bref, voilà ce que j'aimerais faire :

J'ai un fichier de log construit à partir du programme mplayer qui identifie tout le contenu de mon dvd, le voici :

Citation:

blablabla ...
ID_DVD_TITLES=6
ID_DVD_TITLE_1_CHAPTERS=13
ID_DVD_TITLE_1_ANGLES=1
ID_DVD_TITLE_2_CHAPTERS=1
ID_DVD_TITLE_2_ANGLES=1
ID_DVD_TITLE_3_CHAPTERS=1
ID_DVD_TITLE_3_ANGLES=1
ID_DVD_TITLE_4_CHAPTERS=1
ID_DVD_TITLE_4_ANGLES=1
ID_DVD_TITLE_5_CHAPTERS=1
ID_DVD_TITLE_5_ANGLES=1
ID_DVD_TITLE_6_CHAPTERS=1
ID_DVD_TITLE_6_ANGLES=1
ID_DVD_TITLE_1_LENGTH=5924.440
ID_DVD_TITLE_2_LENGTH=139.680
ID_DVD_TITLE_3_LENGTH=410.040
ID_DVD_TITLE_4_LENGTH=1275.040
ID_DVD_TITLE_5_LENGTH=192.840
ID_DVD_TITLE_6_LENGTH=287.040
ID_DVD_DISC_ID=16925C954A7891F7C607B78D51E4E2C8
Il y a 6 titres sur ce DVD.
ID_DVD_CURRENT_TITLE=1
Il y a 13 chapitres sur ce titre DVD.
Il y a 1 angles sur ce titre DVD.
etc etc ....

J'aimerai récupérer tout ce qui est en gras et assigner à chaque ligne trouvée, une variable ... en sachant que ces lignes ("ID_DVD_TITLE_X_LENGTH") sont variables selon les dvd.

Par la suite, j'aimerai récupérer pour chaque variable, le chiffre après "ID_DVD_TITLE_X_LENGTH=" et le passer à la moulinette afin de transformer ces secondes (ce sont des secondes) en heures, minutes secondes ... mais ça ne sera pas un problème.

Et enfin, faire quelque chose de ce genre lors du lancement :

Citation:

Il y a "n" titres sur ce dvd :
- Titre 1 : 25 minutes
- Titre 2 : 1 heures 30 minutes
- Titre "n" : ........

J'ai commencé à écrire ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 open (fichier, 'info.log'); $i=0; while( $ligne = <fichier> ) { if ( $ligne =~ m/^ID_DVD_TITLE_\d+_LENGTH*/ ) { print $ligne; $i++; } } close fichier; print "nombre de titres sur le dvd : $i\n";
Et ca marche :

Citation:

./test2.pl
ID_DVD_TITLE_1_LENGTH=5924.440
ID_DVD_TITLE_2_LENGTH=139.680
ID_DVD_TITLE_3_LENGTH=410.040
ID_DVD_TITLE_4_LENGTH=1275.040
ID_DVD_TITLE_5_LENGTH=192.840
ID_DVD_TITLE_6_LENGTH=287.040
nombre de titres sur le dvd : 6

Par contre je suis complètement paumé et je ne sais pas trop quoi utiliser pour assigner chaque ligne trouvé a une variable ... (tableau de hash ?).

Note : Je n'utilise pas "use strict" et "use warnings" ... c'était pour un test rapide :aie:

Quelque chose comme ça devrait convenir :

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
#!/usr/bin/env perl
use strict; use warnings;
 
open my($logfile), '<', 'info.log'
  or die "Can't open info.log : $!\n";
 
my @titles_length;
 
while( <$logfile> ) {
  push @titles_length, $1 if m/^ID_DVD_TITLE_\d+_LENGTH=([\d\.]+)/;
}
 
close $logfile;
 
print "Nombre de titres sur le dvd : " . @titles_length . "\n";
for my $idx (0..$#titles_length) {
  my $duration = s2hms($titles_length[$idx]);
  print "Le titre " . ($idx+1) 
    . " a une durée de : $duration.\n";
}
 
sub s2hms {
  my $seconds = shift;
  my $hours = int($seconds/3600);
  $seconds -= $hours * 3600;
  my $minutes = int($seconds/60);
  $seconds -= $minutes * 60;
  return sprintf '%02d:%02d:%02d', $hours, $minutes, $seconds;
}

--
Jedaï

Et ben alors la !! Chapeau bas !! :yaisse2: :yaisse2:

Un très grand merci à toi de me servir ca sur un plateau ... me reste plus qu'a comprendre ce que tu as fait :aie:

En tout cas ca marche nickel :mouarf: :mouarf:

Jjeje007