perlquestion
swarddb
I am getting the following results:
<CODE>
Game Name
Star Wars
Online Players
67000
Avg Time
4 Hrs
</CODE>
What i would like is:
<CODE>
Game Name Online Players Avg Time
Star Wars 67000 4 Hrs
</CODE>
Please Help!! The bad code i have is:
<CODE>
while ( ($timestamp, $report_type, $game_name, $data_name, $data_value) = $ora_sth->fetchrow_array)
{
if (($data_name eq 'min') || ($data_name eq 'time')) {$data_value = $data_value * 1440}
{ %myvar =( $report_type,
$data_name,
$data_value,
);
$dname{$report_type} = $data_name;
$dvalue{$report_type} = $data_value + $dvalue{$report_type};
}
}
print $query->Tr( $query->th(["Report Name"]) );
foreach $var (keys %dvalue)
{
if ($var =~ m/avg_per_comp_game/) {$dvalue{$var} = $dvalue{$var} / $counter}
if ($var !~ m/unique_user/ and $counter ne 1)
{
print $query->Tr($query->td([$var]));
print $query->Tr($query->td(["$dvalue{$var} $dname{$var}"]));
}
}
$ora_dbh->disconnect;
print $query->end_table;
print "\n";
print $query->end_html;
print "\n";
</CODE>
TIA
SLWARDO
-"Playing games at work is unacceptable. However, testing them is highly encouraged."
<P><SMALL><B>Edit</B> - 2001-26-06 [Masem] - Changed title from "print output"</SMALL></P>