6 lines
182 B
Perl
6 lines
182 B
Perl
|
my $a = [["a", "b", "c"], ["", "q", "z"], ["zap", "zip", "Zot"]];
|
||
|
|
foreach (@{sorttable $a, column => 1, reverse => 1})
|
||
|
|
{foreach (@$_)
|
||
|
|
{printf "%-5s", $_;}
|
||
|
|
print "\n";}
|