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 ?
• 23 septembre 2008 -- Créer des liens SSH avec Firefox 3
• 1 septembre 2008 -- Apache – Blacklistage d’IPs
• 29 juillet 2008 -- Perl – timestamp <-> date
• 26 juillet 2008 -- Un peu de domotique