zeilen aus datei sortiert ausgeben - #69548 (Allgemeines zu Perl)

vayu

2006-09-07 13:16

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

open(FILE, "<", $filename) or die $!;

foreach my $line (sort <FILE>) {
    print $line;
}
close FILE;

oder wo wir schon beim kurzschreiben sind ...

Code: (dl )

1
2
3

open(FILE, "<", $filename) or die $!;
print foreach (sort <FILE>);
close FILE;

\n\n