Help for this page

Select Code to Download


  1. or download this
    } # real datafiles
    my ($basename) = ( $filename =~ m/^(\S+)\.txt/ ) or warn;
  2. or download this
        printf "        D + C: \t%15s%16s\n",
      &big_money(
        ( $saldi{$filename}{'"D"'} * -1 ) + ( $saldi{$filename}{'"C"'}
+ ) ),
      &big_money($deltaSum);
} #sample
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
494,eur,2006,"D",79
494,eur,2006,"C",100
494,eur,2006,"C",1