perl write to filehandle with two formats

[mental]

I have the following script, from the Perl Cookbook. I am trying to output the table to a file, instead of STDOUT, in the sub write_report. Can someone suggest a way to do this?

======= sum

http://www.pl

#!/usr/bin/perl -w
# sum

http://www -

sumarize web server log activity
# From Perl Cookbook pp728-729

$lastdate = "";
daily_logs();
summary();
exit;

# read CLF files and tally hits from the hist and to the URL
sub daily_logs {
while (<>) {
($type, $what) = /"(GET|POST)\s+(\S+?) \S+"/ or next;
($host, undef, undef, $datetime) = split;
($bytes) = /\s(\d+)\s*$/ or next;
($date) = ($datetime =~ /\[([^:]*)/);
$posts += ($type eq POST);
$home++ if m, / ,;
if ($date ne $lastdate) {
if ($lastdate) { write_report() }
else { $lastdate = $date }
}
$count++;
$hosts{$host}++;
$what{$what}++;
$bytesum += $bytes;
}
write_report() if $count;
}

# use *typeglob aliasing of global variables for cheap copy
sub summary {
$lastdate = "Grand Total";
*count = *sumcount;
*bytesum = *bytesumsum;
*hosts = *allhosts;
*posts = *allposts;
*what = *allwhat;
*home = *allhome;
write;
}
# display the tallies of hosts and URLs, using formats
sub write_report {
open (STDOUT, ">temp.html");
open (STDOUT_TOP, ">>temp.html");
write STDOUT;
# add to summary data
$lastdate = $date;
$sumcount += $count;
$bytesumsum += $bytesum;
$allposts += $posts;
$allhome += $home;
# reset daily data
$posts = $count = $bytesum = $home = 0;
@allwhat{keys %what} =keys %what;
$allhosts{keys %hosts} =keys %hosts;
%hosts = %what = ();
}

format STDOUT_TOP =
@|||||||||||| @|||||| @||||||| @||||||| @|||||| @|||||| @||||||||||||
"Date", "Hosts", "Accesses", "Unidocs", "POST", "Home", "Bytes"
------------- ------- -------- -------- ------- ------- -------------

.

format STDOUT =
@>>>>>>>>>>> @>>>>>> @>>>>>>> @>>>>>>> @>>>>>> @>>>>>> @>>>>>>>>>>>>
$lastdate, scalar(keys %hosts), $count, scalar(keys %what), $posts, $home, $bytesum

.

 

[uida1154]

not tested:

open FH, ">myfile.txt" or die "can not open file";
write FH;
...
format FH_TOP = 
...

 

[mental]

Thank you uida1154:
A refresher at Roberts Perl Tutorial showed me the wisdom of your answer.

William Branson
Administrator, Systems Planning
Chicago Transit Authority