ShowRooms/PlasmaPerformance/Plasma/VacuumVersusPlasma/399vs400/No:400/basicdiagn/TotalCharge.pl
#!/bin/perl
do "parameters.pl";
# Open the file for reading.
open DATA, "Irogowski_dp.csv" or die "can't open file $!";
my @data = <DATA>;
close (DATA);
$TotalCharge=0;
for ($i = 1; $i < $LineCount; ++$i)
{
@row = split(';',$data[$i]);$Ipl=$row[1];
$TotalCharge+=$row[1]*$DeltaTs;
}
open RESULT, ">TotalCharge";
printf RESULT "%4.1f", $TotalCharge;
close RESULT;