open (DB, "<$db_file_name") or &cgierr("error in count.
unable to open database: $db_file_name.\nReason: $!");
if ($db_use_flock) { flock(DB, 1); }
@lines = <DB>;
close DB;

foreach $line (@lines) {
chomp ($line);
@data = &split_decode($line);
++$count{$data[10]};
++total_count;
}

print qq|Country list:<P><table>|;
foreach $country (%count) {
print qq|<tr><td>$country:</td><td>$count{$country}</td></tr>|;
}
print qq|<tr><td>Total:</td><td>$total_count</td></tr></table>|;
}

I think that should do it. You'll probably want to play around with the formatting of the table so it looks nice.


------------------
JPD

print qq|Country list:<P><table>|;
foreach $country (%count) {
print qq|<tr><td>$country:</td><td>$count{$country}</td></tr>|;
}
print qq|<tr><td>Total:</td><td>$total_count</td></tr></table>|;
}


In the abovementioned foreach statement the whole hash is being processed ... e.g. Austria, 1, Belgium, 3 .... which gives funny results in the lay out. It would be better to have the foreach only go through the country names and skip the totals ... because now you get a result like:

Austria: 1
1:
Belgium: 3
3:

but how to do this ?

TIA


------------------
Michael De Coninck
C-Ware IT Consultants
http://www.c-ware.net

[This message has been edited by MichaelDC (edited August 04, 1999).]