| Nun | data | ditta | onorari | INAR | IVA | Totale
ENDHTML
open (RIEP, "riepilogo") or die "Can't open riepilogo: $!\en";
while () {
chomp ($_);
@riga = split ",- ";
($numero,$data,$ditta,$oggetto,$prestazioni,$inar,$iva) = @riga;
if ($numero ne "numero") {
if ($prestazioni =~ m/^-/) {
$flag = -1;
$seg = "-";
} else {
$flag = 1;
$seg = "";
}
# $prestazioni =~ s/\D//g;
# $inar =~ s/\D//g;
# $iva =~ s/\D//g;
$totale = $prestazioni * 1.02 * 1.2;
# $vprestazioni = $seg . &forval( &arr ($prestazioni));
# $vinar = $seg . &forval( &arr ($inar));
# $viva = $seg . &forval( &arr ($iva));
# $vtotale = $seg . &forval( &arr ($totale));
#
# $tprestazioni = $tprestazioni + $prestazioni * $flag;
# $tinar = $tinar + $inar * $flag;
# $tiva = $tiva + $iva * $flag;
# $ttotale = $ttotale + $totale * $flag;
#
# $vtprestazioni = &forval( &arr ($tprestazioni));
# $vtinar = &forval( &arr ($tinar));
# $vtiva = &forval( &arr ($tiva));
# $vttotale = &forval( &arr ($tprestazioni+$tinar+$tiva));
#####################################
$vprestazioni = $seg . &forval ($prestazioni);
$vinar = $seg . &forval ($inar);
$viva = $seg . &forval ($iva);
$vtotale = $seg . &forval ($totale);
$tprestazioni = $tprestazioni + $prestazioni * $flag;
$tinar = $tinar + $inar * $flag;
$tiva = $tiva + $iva * $flag;
$ttotale = $ttotale + $totale * $flag;
$vtprestazioni = &forval ($tprestazioni);
$vtinar = &forval ($tinar);
$vtiva = &forval ($tiva);
$vttotale = &forval ($tprestazioni+$tinar+$tiva);
#################################
print <<"ENDHTML";
| $numero | $data | $ditta | $vprestazioni | $vinar | $viva | $vtotale
ENDHTML
}
}
print <<"ENDHTML";
| | Totale | | | $vtprestazioni | $vtinar | $vtiva | $vttotale
| |