Opened by Ronnie at 2005-02-08 21:43
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Ich in auf http://www.scsy.de/~mas/archiv/000501.html auf eine nette Methode gestossen sich die längste Zeile einer Datei zu suchen. Ich habe mich gefragt wie ich das in Perl machen würde:
1. Entwurf:
Ich wollte das noch etwas eindampfen, daraus wurde der ...
2. Entwurf:
Das gefällt mir schon ganz gut, aber ich glaube da ist noch Luft drin. Hat jemand einen Vorschlag?
1. Entwurf:
Code: (dl
)
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
my $lline = '';
while (<>) { $lline = $_ if (length($_) > length($lline)) }
print $lline;
exit;
Ich wollte das noch etwas eindampfen, daraus wurde der ...
2. Entwurf:
Code: (dl
)
perl -e 'print pop @{[map {$l = $_ if (length($l) < length($_)); $l} (<>)]};' fileDas gefällt mir schon ganz gut, aber ich glaube da ist noch Luft drin. Hat jemand einen Vorschlag?