楽天広場 Trackback Auto-Discovery : にぽたん研究所迷惑トラックバック対策：トラックバック… こんにちは、楽天広場です。 迷惑トラックバック対策として、トラックバックURLの暗号化を行いました。 #!/usr/local/bin/perl use strict; use HTML::Entities; use HTML::TokeParser; use LWP::Simple; my $url = 'http://plaza.rakuten.co.jp/hirobastaff/diary/200605290000/'; print rakuten_hiroba_trackback_auto_discovery($url), "\n"; sub rakuten_hiroba_trackback_auto_discovery { my $url = shift; my $content = get($url) or die "can't fet
