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

Dubu

2006-09-08 01:51

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

[quote=vayu,07.09.2006, 11:16]oder wo wir schon beim kurzschreiben sind ...

Code: (dl )

1
2
3

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

[/quote]
Wozu überhaupt eine Schleife?

Code: (dl )

print sort <FILE>;

Ergänzung: Wenn's nur darum geht, auf der Kommandozeile mal eine Datei sortieren zu lassen, und man bedauerlicherweise kein unixoides Betriebssystem mit wunderbar passenden Tools wie dem sort(1)-Befehl hat, dann geht's auch ganz kurz in Perl:

Code: (dl )

C:\> perl -e "print sort <>" datei.txt > datei_sortiert.txt

\n\n