Ausgabe von Fileliste in Spalten - #100406 (Allgemeines zu Perl)

ptk

2007-10-06 18:24

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Ach so. Ein Modul ist mir nicht bekannt. Man könnte es so lösen

Code: (dl )

1
2

perl -Mstrict -MList::Util=max -e 'my @a=@ARGV;my $max=max map { length } @a; my $col = 0; while(my $a = shift @a) { $col+=(1+$max); if ($col >= 80) { $col = (1+$max); print "\n" } print $a." "x(1+$max-length($a))} print "\n"' ..
.