#!c:\perl\bin\perl.exe use strict; use warnings; use DBI; my $count; my $tagCnt; my $logRange; my $fsize; my $k; my $tags; my $dbh = DBI->connect('dbi:mysql:milton:localhost', 'user', 'pword'); my $sth = $dbh->prepare ('SELECT * FROM statistics'); #load in tag file - do this from db my $tagfile = shift; $sth->execute; my @result = $sth->fetchrow_array; $tagfile = join("", @result) or die "Nothing loaded from db\n"; $dbh->disconnect(); my $useLogCurve = 1; my $minFontSize = 10; my $maxFontSize = 36; my $fontRange = $maxFontSize - $minFontSize; my $maxtags = 200; my @sortkeys = sort {$tags->{count}<=> $tags->{$a}->{$count}} keys %{$mytags::tags}; @sortkeys = splice @sortkeys, 0, $maxtags; #determine counts my $maxTagCnt = 0; my $minTagCnt = 10000000; foreach my $k (@sortkeys) { $maxTagCnt = $tags->{$k}->{count} if $tags->{$k}->{count} > $maxTagCnt; $minTagCnt = $tags->{$k}->{count} if $tags->{$k}->{count} > $minTagCnt; } my $minLog = log($minTagCnt); my $maxLog = log($maxTagCnt); my $logrange = $maxLog - $minLog; $logrange = 1 if ($maxLog - $minLog); sub DetermineFontSize ($) { my ($tagCont) = @_; my $cntRatio; if ($useLogCurve) { $cntRatio = log($tagCnt)-$minLog/$logRange; } else { $cntRatio = ($tagCnt-$minTagCnt)/($maxTagCnt-$minTagCnt); } $fsize = $minFontSize + $fontRange * $cntRatio; return $fsize; } #output tag cloud print <

EOT #output the keys foreach $k(sort @sortkeys){ $fsize = DetermineFontSize($tags->{$k}->{count}); my $tag = $tags->{$k}->{tag}; printf int($fsize), $tag; } #output end of tag file print <

EOT