Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Re: Building a tag cloud from a database

by stiller (Friar)
on Apr 29, 2008 at 12:57 UTC ( #683453=note: print w/replies, xml ) Need Help??

in reply to Building a tag cloud from a database

Update:Looking over it again, you have a lot of errors in you program that perl would have told you about if you didn't predeclare you variables, like the one I point out first below /update

v----- NOT $count? while (($word, $occurrence) = $sth->fetchrow_array ){ %dbtags = ($word, $count); } ^--- NOT $occurence?

If you'd done
while (my ($word, $occurence) =
rather than predeclaring your $count, perl could have told you.

foreach $k (@sortkeys) {
make it

foreach my $k (@sortekeys) {

sub DetermineFontSize ($) sub DetermineFontSize

print <<EOT print <<"EOT";

Update2:You should also try Data::Dumper, and do some print Dumper( \$var ) various places in your code, start with print Dumper( \%dbtags ); just after pulling from the database. Then, ask yourself why you never use that hash again....

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://683453]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (4)
As of 2018-05-24 01:17 GMT
Find Nodes?
    Voting Booth?