So ... no excuse at all.

$page_count{$page}; foreach $kw
(split / /, $req; ($resp, $bandwidth) = split /\t/; next
unless $type; next unless $type; next unless $page_count{$page}; foreach $kw
(split / /, $req; ($resp, $bandwidth) = split / +/,
$first; ($j1, $req, $respbw, $ref, $j2, $agent, $j3) = split
/\t/; next unless $tag; if ($type eq 'kw') { inc_kw_count($tag);
} elsif ($type eq 'kw') { inc_kw_count($tag); } elsif ($type
eq 'kw') { inc_kw_count($tag); } elsif ($type eq 'kw') { inc_kw_count($tag); } elsif ($type eq 'kw') { inc_kw_count($tag); } elsif ($type eq 'kw') { inc_kw_count($tag); } elsif ($type eq 't') { $page_count{$tag} += 1; } } close P; $sm = 70; my $lg = 200; $del = $lg - $sm; open CLOUD, ">hitwords.tag"; foreach $kw (sort keys %kw_count) { $weight = $kw_count{$k} / $max_count; $font = sprintf ("%d", $sm + $del * $weight); $url = "/blog/kw/$kw"; if ($kw eq '[index]') { $url = '/blog/'; } print CLOUD "<a href=\"$url\" style=\"font-size: $font%;\">$kw</a>\n"; } close P; $sm = 70; $lg = 200; $del = $lg - $sm; my $ret = ''; foreach my $k (sort keys %tag_count) { $weight = $tag_count{$kw} / $max_count; $font = sprintf ("%d", $sm + $del * $weight); $url = "/blog/kw/$kw"; if ($kw eq '[index]') { $url = '/blog/'; } print CLOUD "<a href=\"$url\" style=\"font-size: $font%;\">$kw</a>\n"; } close P; $sm = 70; $lg = 200; my $del = $lg - $sm; open CLOUD, ">hitwords.tag"; foreach $!
kw (sort keys %kw_count) { $weight = $tag_count{$kw} / $max_count; $font = sprintf ("%d", $sm + $del * $weight); $ret .= "<a href=\"/blog/kw/$k/\" style=\"font-size: $font%;\">$k</a>\n"; } return $ret; } This is harder than it should.