[Perl] Split d'une chaine de caractères

Question

Bonjour, 

Je cherche à extraire des valeurs numériques d'un texte. Ces valeurs numériques sont disséminés dans le texte, et varient.
Exemple de texte:

test.log

chapitre1
blablablablablabla
blabla 28 blabla
blablablablablabla

chapritre2
blablablablablabla
blabla 85 blabla
blablablablablabla

chapritre2
blablablablablabla
blabla 44 blabla
blablablablablabla

Ici, il faudrait chercher la section "chapitre1" et récupérer la PREMIERE valeur numérique dans le texte qui suit, et faire de même pour chaque "chapitre" rencontré ...

j'ai fait un petit essaie avec "split" mais sans réel succès ..


#!/usr/bin/perl -i.orig
use strict;
use warnings;

my @table = (test.log);
my @table = split(/[a-z]/g,$test);
print "$table[0]
";
print "$table[1]
";
print "$table[2]
";


D'avance merci ! :)

lami20j · Answer

Salut,

Je n'ai pas compris.
Peut tu donner un exemple concret.
Donc un exemple de ton fichier réel et aussi ce que tu veux obtenir comme résultat.
Merci.

phoenix1984 · Answer

Salut Lami20j :) Petit extrait de la page web avec ses balises xml ..

378

346

Je récupère la page web dans un fichier. L'objectif est ensuite de la parcourir pour en retirer 2 infos : "slot-x" et la valeur "level" associée ... Donc ici, implémenter un fichier avec : slot-1, level 378 slot-2, level 346 ... .. . Le nombre de slot est déternimé, mais il faudrait récupérer la valeur level à chaque fois. Merci pour ton aide en tout cas en espérant avoir été un peu plus clair .. Phoenix

lami20j · Answer

Salut, Voici un exemple :~/perl$ cat slot.txt

378

346

:~/perl$ cat slot.pl #!/usr/bin/perl use strict;use warnings; open F,"slot.txt" or die "E/S : $! "; my %h; while(){ next unless /class\s*=\s*"slot\s*(slot-\d+).*"(level)">(\d+)\s*.*/; $h{$1}="$2 $3"; } print "$_, $h{$_} " for sort keys %h; __END__ Exécution de script :~/perl$ perl slot.pl slot-1, level 378 slot-2, level 346

[Perl] Split d'une chaine de caractères

3 réponses

Discussions similaires

Newsletters