Inkludieren aus einer Fileliste mit prefix und suffix - #146234 (Perl/CGI)

2011-03-04 11:17

User since
2003-08-04
12209 Artikel
Admin1

Code (perl): (dl )

open my $fh, '<', $path or die $!;
my @first5;
for (1 .. 5) {
    defined( my $line = <$fh> ) or last;
    push @first5, $line;
}

wenn die datei nicht sehr gross ist und es nichts ausmacht, die restlichen zeilen mit einzulesen und dann zu verwerfen:

Code (perl): (dl )

my @first5 = (<$fh>)[0 .. 4];

evtl. checken, ob auch alle 5 elemente da sind (falls die datei z.b. auch weniger zeilen haben kann).

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