Textdatei bearbeiten - #154023 (Allgemeines zu Perl)

2011-11-08 17:05

User since
2003-08-04
12208 Artikel
Admin1

wo ist denn dann das problem? du wiederholst die aufgabenstellung, sagst aber nichts zu meinem code.
wenn nicht im einzeiler und du nur die ausgabe brauchst, dann halt so:

Code (perl): (dl )

open my $fh, "<", "datei" or die $!;
my $body = 0;
while (<$fh>) {
    if ($body) {
        print
    }
    else {
        $body = 1 if m/^$/;
    }
}

alternativ:

Code (perl): (dl )

while (<$fh>) {
    if (m/^$/) {
        # rest ausgeben. aus der schleife springen
        print <$fh>;
        last;
    }
}

Last edited: 2011-11-08 17:07:28 +0100 (CET)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem