my @order = sort { $b <=> $a } grep { length } @values;
my $maxval = $order[0];
my $minval = min $order[-1], 0;
my @order = sort { $b <=> $a } grep { length } @values;
my $maxval = $order[0];
my $minval = min $order[-1], 0;
my $len = defined $opt{trim} && $opt{trim} <= 0 ? -$opt{trim} + 1 :
max map { length $values[$_] && length $lines[$_] } 0 .. $#lines; # left padding
my $size = ($maxval - $minval) &&
my $len = defined $opt{trim} && $opt{trim} <= 0 ? -$opt{trim} + 1 :
max map { length $values[$_] && length $lines[$_] } 0 .. $#lines; # left padding
my $size = ($maxval - $minval) &&
Do not strip leading whitespace.
Keep original value alignment, which may be significant in some programs.
Do not strip leading whitespace.
Keep original value alignment, which may be significant in some programs.
=item -w, --width=<columns>
Override the maximum number of columns to use.
=item -w, --width=<columns>
Override the maximum number of columns to use.
curl https://sdw.ecb.europa.eu/export.do \
-Gd 'node=SEARCHRESULTS&q=EXR.D.USD.EUR.SP00.A&exportType=csv' |
curl https://sdw.ecb.europa.eu/export.do \
-Gd 'node=SEARCHRESULTS&q=EXR.D.USD.EUR.SP00.A&exportType=csv' |