Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
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?
[Corion]: Meh. Some Open Source people get bought out by advertising firms to change their projects to include advertising. But nobody has approached me to buy out WWW::Mechanize ::$browser from me, to make the browsers launch an ad page ...
[Corion]: ... instead of about:blank, which the modules currently do at startup.
[Corion]: Maybe I'm too pricey. But I haven't received any offers at all ;-)
[Corion]: The ad hits from CPAN testers alone should bring in a pretty penny IMO. But maybe I misestimate the CPC that ads pay.

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (9)
As of 2017-07-24 14:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (354 votes). Check out past polls.