commencer la lecture d'un fichier a partir d'un mot

Bonjour,

Je voudrais commencer la lecture de mon fichier a partir d'un moment précis.

Pour le moment je fais :

Code:

---

1 2	while ( my $ligne = <FICHIER>) { }

---

Je voudrais donc lire mon fichier tant qu'il y a des lignes, et commencer la lecture de mon fichier quand ma ligne est égale à :

Code:

---

( $ligne =~ m/^\t{2}Application Actions\s*(.+)/ )

---

Comment faire svp ?

Merci d'avance et bonne soirée

Je ne vois pas trop le problème : je crois que tu as toutes les idées pour, non ?

Si j'ai bien compris, tu souhaites "traiter" (et non commencer la lecture) les lignes de ton fichier, à partir d'un certain motif trouvé (et jusqu'à la fin).

Une méthode est d'utiliser l'opérateur d'étendue (forme scalaire), ou un indicateur (flag).

Les deux solutions en image :

Code:

---

1 2 3 4 5

while ( my $ligne = <FICHIER>) { if ($ligne =~ m/^\t{2}Application Actions\s*(.+)/ .. defined $ligne) { # traiter le fichier } }

---

Code:

---

1 2 3 4 5 6 7 8

my $a_traiter = 0; while ( my $ligne = <FICHIER>) { $a_traiter ||= $ligne =~ m/^\t{2}Application Actions\s*(.+)/; if ($a_traiter) { # traiter le fichier } }

---

Merci pour tes réponses je vais tester ça.

Cependant que signifie ce signe

Code:

---

||=

---

??

Merci d'avance

J'ai testé tes deux propositions, ça ne marche pas.
Mon code parcourt 0 ligne du fichier.
C'est normal ???

Voici le début du fichier en entrée :

Code:

---

1 2 3 4 5 6 7

Frame: Custom Control: cQuickGraph Application Actions On SAM_AppStartup Set nGPourcent = NUMBER_Null Call GHtmlHelp.cmInitializeHelp( )

---

La lecture du fichier doit commencer à partir de \t{2}Application Actions

Merci d'avance pour l'aide

Montre la totalité de ton code.
Sinon, j'ai corrigé une erreur dans mon premier exemple.

L'opérateur ||= s'utilise comme +=, en remplaçant + par ||.
Par exemple

Code:

---

$a ||= 1;

---

est équivalent à

Code:

---

$a = $a || 1;

---

Mon code faire environ 300 lignes, et mon fichier en entré 520 000 lignes !
Tu veux vraiment que je te le montre ?

Avec la correction ça ne marche tjs pas :

Code:

---

1 2 3

if ($ligne =~ m/^\t{2}Application Actions\s*(.+)/ .. defined $ligne) {

---

J'ai mis en commentaires tes 2 propositions dans mon premier While

Je suis entrain de faire le test sur un nouveau code plus petit

Voila un code test plus petit :

Code:

---

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

# !usr/bin/perl -w use strict; use warnings;   my $cpt = 0;   open FICHIER, '<', "test_lignes.txt" or die("E/S : $!\n");   while ( my $ligne = <FICHIER>) { if ($ligne =~ m/^\t{2}Application Actions\s*(.+)/ .. defined $ligne) { $cpt++; } } print " Il y a ",$cpt, " de lignes";   close FICHIER;

---

Avec comme fichier en entrée :

Code:

---

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

Picture: cQuickPicture Vertical Horizontal Column: Backgro Group Line: Frame: Custom Co Application Actions On SAM_AppStartup Set nGPource Call GHtmlHelp. Set bGCreateMD Call GSqlError.CmS Call MNC_InitCo Call InitVa Call GetX

---

Il devrait me dire " il y a 8 lignes dans le fichier "

Après compilation :

Code:

---

Il y a 0 de lignes

---

Une idée ?

J'ai modifié un peu le code :

Code:

---

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

# !usr/bin/perl -w use strict; use warnings;   my $cpt = 0;   open FICHIER, '<', "test_lignes.txt" or die("E/S : $!\n");   while ( my $ligne = <FICHIER>) { if ($ligne =~ m/^\t{2}Application Actions/ .. defined $ligne) { while ($ligne = <FICHIER>) { $cpt++; } } } print " Il y a ",$cpt, " de lignes dans le fichier";   close FICHIER;

---

Ça a l'air de marcher tu en penses quoi ?

J'ai testé sur mon gros code, tout marche !!

Merci Philou

Quand tu as un problème de ce genre, teste d'abord ta regexp (par exemple en uniligne) :

Code:

---

perl -ne 'print if m/^\t{2}Application Actions\s*(.+)/ .. defined'

---

Si tu ne vois rien venir, simplifie au maximum ton code jusqu'à trouver l'erreur :

Code:

---

perl -ne 'print if m/^\t{2}Application Actions\s*(.+)/'

---

puis

Code:

---

perl -ne 'print if m/^\t{2}Application Actions/'

---