/ +/, $first;
($j1, $req, $respbw, $ref, $j2, $agent, $j3) = split /
*" */, $last; ($meth, $url, $protocol) = split /\//, $url;
$tag =~ s/\.html$//; if (not $type and not $tag) {
$type = 'kw'; $tag = '[index]'; } next unless $tag;
if ($type eq 't') { $page_count{$tag} += 1; } }
close CLOUD; You want to model some useful process in
small, manageable steps after initial usability is definitely there.
Sunday, August 12, 2007
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment