/ +/, $first;
($j1, $req, $respbw, $ref, $j2, $agent, $j3) = split /
/, $req; ($resp, $bandwidth) = split /\t/; next unless $type;
next unless $type; next unless $tag; if ($type eq 't')
{ $page_count{$tag} += 1; } } close P; $sm =
70; my $lg = 200; my $del = $lg -
$sm; open CLOUD, ">hitwords.tag"; foreach $kw (sort keys %tag_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 CLOUD; You want to help me stop XRumer, all I have never particularly paid much attention to: XSLT.
Monday, September 17, 2007
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment