Help for this page

Select Code to Download


  1. or download this
    sub blank_formatter {
  my ($printf_format, $length) = @_;
...
# Was:
# printf( "A float: %12.4f$/", $root_beer );
my_printf( "A float: %s$/", blank_formatter('%12.4f'), $root_beer );
  2. or download this
    my $fmt = blank_formatter('%12.4f');
my_printf("%10s: %s %s %s %s\n", $rowname, 
          map {$fmt => $_} ($numcol1, $numcol2, $numcol3, $numcol4));
  3. or download this
    --
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/