Select Code to Download

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 },
]

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 },
]