Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

monk2b's scratchpad

by monk2b (Monk)
on Dec 28, 2004 at 22:53 UTC ( #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
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2014-07-12 00:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (236 votes), past polls