Align columns: Difference between revisions

my @lines = map {[split /\$/] =>} split /\n/ => shift;

for my $col (0 .. max map {$#$_ =>} @lines) {

my $max = max my @widths = map {length $lines[$_][$col] =>} 0 .. $#lines;