2006年04月05日19:14 カテゴリLightweight Languages perl - 成はてブん析 さらに調子にのって、こんなものもこさえてみた。Bookmarkletの方はBookmarklet Generatorで作成。 成はてブん析 成はてブん析bookmarklet CGIの方のソースはこんな。 #!/usr/local/bin/perl -Tw use strict; use CGI; use LWP::Simple; use HTML::Entities; use HTML::LinkExtor; my %keywords; my $uri = decode_entities( $ENV{PATH_INFO} || $ENV{HTTP_REFERER} ); $uri =~ s,^/,,o; my $rss_root = "http://b.hatena.ne.j
![perl - 成はてブん析 : 404 Blog Not Found](https://cdn-ak-scissors.b.st-hatena.com/image/square/da78a05937633f7a2b4b2219826151c370cd607b/height=288;version=1;width=512/https%3A%2F%2Fparts.blog.livedoor.jp%2Fimg%2Fusr%2Fcmn%2Fogp_image%2Flivedoor.png)