Die längste Zeile einer Datei: angeregt durch ein weblog - #51632 (Allgemeines zu Perl)

Dubu

2005-02-10 23:32

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

user image

Code: (dl )

perl -e 'print+(sort{$b<=>$a}map{length}<>)[0]'  file

Sehr ineffizient (weil der ganze Text im Speicher sortiert wird), aber kuerzer. 8)

Edit: Oder:

Code: (dl )

perl -lpe '$_=(sort{$b<=>$a}map{length}<>)[0]' < foo

\n\n