Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

monk2b's scratchpad

by monk2b (Pilgrim)
on Dec 28, 2004 at 22:53 UTC ( [id://417867]=scratchpad: print w/replies, xml ) Need Help??

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)
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (3)
As of 2024-03-29 05:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found