Help for this page

Select Code to Download


  1. or download this
    c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
    "my @ra = (
    ...
      { Balance => "-", Total => "-", day => 3, payment => "-" },
      { Balance => "12.86", Total => 0, day => 4, payment => 0 },
    ]
    
  2. or download this
    c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
    "use constant NULL_ITEMS => map { $_ => '\'' } qw(Balance Total day pa
    +yment);
    ...
      { Balance => "'", Total => "'", day => 3, payment => "'" },
      { Balance => "12.86", Total => 0, day => 4, payment => 0 },
    ]