Help for this page

Select Code to Download

Select or download this

#! perl -sw
use strict;
...
printf "%s%-${largest}s => %s,\n", @$_ for @bits;
print $last;

Select or download this

C:\test>1159396
C:\test>1159396
...
               larger_key      => "value2",
               even_larger_key => "value3",
             );