After all, it
knows the way I wanted to do that. if he
doesn't run. NO, wait, never mind, I still think it's
kinda cool: open IN, 'blog_hits.txt'; $max_count = 0; sub inc_kw_count
{ my $ct = shift @_; my $weight; my $font;
my $sm = 70; $lg = 200; my $del =
$lg - $sm; open CLOUD, ">hitwords.tag"; foreach $kw (sort keys
%tag_count) { $weight = $tag_count{$kw} / $max_count; $font = sprintf ("%d", $sm + $del * $weight); $url = '/blog/'; } print CLOUD "<a href=\"$url\" style=\"font-size: $font%;\">$kw</a>\n"; } close P; $sm = 70; $lg = 200; $del = $lg - $sm; open CLOUD, ">hitwords.tag"; foreach $kw (split / /, $respbw; ($j1, $j3, $type, $tag, $j2) = split / /, $req; ($resp, $bandwidth) = split / *" */, $last; ($meth, $url, $protocol) = split / /, $respbw; ($j1, $j3, $type, $tag, $j2) = split /\t/; next unless $page_count{$page}; foreach $kw (split / /, $req; ($resp, $bandwidth) = split /\t/; next unless $tag; if ($type eq 't') { $page_count{$tag} += 1; } } close P; $sm = 70; $lg = 200; my $del = $lg - $sm; my $ret = ''; foreach my $k (sort keys %tag_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 a valid business technique, then: s!
ure, go ahead.
Monday, October 1, 2007
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment