Discussion :

[aikinhdo]

Bonjour,

Savez vous comment je pourrais extraire une partie d'un fichier, il semble que je galere toujours sur le meme probleme ?

Extrait du texte :

truc trut

Bal1
rere
rere

Bal2
trtr
trtr

rree

Comment je pourrais faire pour ne récuperer que les lignes apres Bal1 et Bal2 ?

merci pour votre aide

[Luciefer]

Bonjour,

Tu peux utiliser les expressions régulières.

Tu lis ton fichier ligne par ligne, et si ta ligne est différente de bal1 ou bal2, tu la conserves.

Du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
if (($ligne =~ /bal1/) or ($ligne =~ /bal2/)) {
    #Je ne conserve pas la ligne
}else{
   #Je conserve la ligne
}

Lucie

[aikinhdo]

Merci pour ton aide.

Mais ce que je veux au final, c'est n'avoir que les lignes qui sont en gras:

truc trut

Bal1
rere
rere

Bal2
trtr
trtr

rree

Avec ton code, je recupere toutes les lignes sauf bal1 et bal2.

Je vois pas tres bien comment je pourrais faire. Je sais qu'il faut utiliser un systeme de "label" mais je ne vois pas bien comment faire.

[crochepatte]

Il faut etre plus precis dans ta demande...
Pourquoi seulement ces lignes t'interesses, ont elles une syntaxe commune...par exemple un groupe de deux lettres repété...ou plutot la place dans le fichier est importante...par exemple apres le mot clef Baln...

[Jedai]

En interprétant ta demande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
#!/usr/bin/perl
use strict; use warnings;
 
while( <> ) {
  my $where = m/\ABal\d/ .. m/\A\s*\Z/;
  print if $where > 1 and $where !~ m/E0/;
}

--
Jedaï

[aikinhdo]

Si ce n'est pas trop demandé.

Est ce que tu pourrais détailler ta ligne de commande car je n'arrive pas à saisir le sens ?

merci