Select Code to Download

Use of uninitialized value in concatenation (.) or string at x.pl line
+ 47.
Use of uninitialized value in concatenation (.) or string at x.pl line
+ 47.
...

$w_columns{$w_col_ix} = "$w_columns{$w_col_ix}${w_pad}${w_char}";

$w_columns{$w_col_ix} .= "${w_pad}${w_char}";

use strict;
use warnings;
...
    @_ =  map { ($")x($p||2),$_ } @$x;
    map { map { print substr($_, 0, 1, "") || $" } @_; print $/ } 1..$
+m
}

sub rows_to_cols {
    my ($x, $p, $j) = @_;
...
    ##
    # This does the magic horizontal to vertical conversion
}