Text zerlegen - #177939 (Allgemeines zu Perl)

Linuxer

2014-10-23 19:18

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Siehe perldoc perlre:

perldoc perlre
(?=pattern)

A zero-width positive look-ahead assertion. For example, /\w+(?=\t)/ matches a word followed by a tab, without including the tab in $& .

Also:

Code (perl): (dl )

my @arr = split /\n(?=\S)/, $str;

EDIT:

oder zeilenweise verarbeiten und Kriterium beachten:

Code (perl): (dl )

my @arr;
while ( my $line = <HANDLE> ) {
    if ( $line =~ m/^\S/ ) {
        push @arr, $line;
    }
    else {
        $arr[-1] .= $line;
    }
}

Last edited: 2014-10-23 19:21:32 +0200 (CEST)

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!