sub print_tofile{
open(TMPFILE, ">>$file") or die "Can not open $file\n";
while ($pointer = $sth->fetchrow_hashref){
$date = $pointer->{'date'};
$logtime = $pointer->{'logtime'};
$user = $pointer->{'user'};
$volume = $pointer->{'volume'};
$directory = $pointer->{'directory'};
$filesize = $pointer->{'filesize'};
$key = "$user\t$volume\t$directory";
if ( exists $data{$key} )
{
$total = ($filesize - $data{$key});
print TMPFILE "$key\t$total\n";
} else {
$data{$key} = $filesize;
}
} # End of while.
close TMPFILE;
}
Pack/Unpack Tutorial (aka How the System Stores Data)
|