è¿·æãã©ãã¯ããã¯å¯¾çï¼ãã©ãã¯ããã¯â¦ ããã«ã¡ã¯ã楽天åºå ´ã§ãã è¿·æãã©ãã¯ããã¯å¯¾çã¨ãã¦ããã©ãã¯ããã¯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
{{#tags}}- {{label}}
{{/tags}}