Opened by PETER_PAN2009 at 2010-03-29 16:33
User since
2006-01-27
3891 Artikel
HausmeisterIn
2006-01-27
3891 Artikel
HausmeisterIn
Du kannst den Flip-Flop-Operator nutzen und weiter zeilenweise verarbeiten.
Oder Du setzt $/ auf einen Wert, so dass von vornherein blockweise gelesen wird; siehe: http://search.cpan.org/~dapm/perl-5.10.1/pod/perlv...
Code: (dl
)
1
2
3
4
# von Zeile "PartX:..." bis Leerzeile lesen
if ( $line =~ m/^Part\d+:/ .. $line =~ m/^$/ ) {
# tu was mit Zeilen
}
Oder Du setzt $/ auf einen Wert, so dass von vornherein blockweise gelesen wird; siehe: http://search.cpan.org/~dapm/perl-5.10.1/pod/perlv...
Code: (dl
)
1
2
3
4
5
6
{
local $/ = "";
while ( my $block = <$fh> ) {
# tu was mit $block ($block ist nun beispielsweise "PartX:bla\nbli\nblubb\n\n";
}
}meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!