Help for this page

Select Code to Download


  1. or download this
    sub padded {
        my ($arg_ref) = @_;
    ...
            . $arg_ref->{text}
                . $arg_ref->{filler} x $right;
    }
    
  2. or download this
    for my $line (@lines) {
        $line = padded({ text=>$line, cols=>20, centered=>1, filler=>$SPAC
    +E });
    }