Perl – Rechercher une expression et garder plusieurs lignes

Imaginez le texte :

2008-01-02: first entry
2008-02-03: second entry on two lines
    here is the additional line
2008-03-04: third entry
   has
   three
   extra lines
2008-04-05: fourth entry has just one on line again

Question :

Comment faire pour avoir le groupe de lignes qui contient un mot, par exemple « three » ?

Solution :

my @stuff;
while (<IN>) {
    if (/^\s/) { $stuff[-1] .= $_; }
    else { push @stuff, $_;  }
}
print grep { /three/ } @stuff;

Donne :

2008-03-04: third entry
   has
   three
   extra lines

Source

Autres articles susceptibles de vous intéresser :

• 27 avril 2009 -- Comment savoir si une machine est 32 bits ou 64 bits ?
• 7 janvier 2009 -- Perl – Préparation d’une répartition
• 6 janvier 2009 -- Perl – Embarquer un test dans un module
• 15 décembre 2008 -- Perl – Template et modèles d’execution
• 29 octobre 2008 -- Perl – YAML est cool