Help for this page

Select Code to Download


  1. or download this
    use strict;#etc,
my $parser = Text::CSV::Simple->new();
...
  print {$cfh} join( ',', @{$row}{@fm} );
} ## end foreach my $row (@data)
close $cfh || die "Can't close $cf: $!";
  2. or download this
    Fixing a percentage (Spread3y) --now 0.781063003540039%
--now 78.1063003540039
...
--now 23
Fixing a percentage (Spread7y) --now 1.3%
--now 130