以下のようなブロックを足すだけ。言及リンクを厳密に調べているわけ$i->{timestamp} = time; respond_exit("No URL (url)") unless $i->{url}; my $data = load_data($tb_id); unshift @$data, $i;
(「qw(!head)」は「Prototype mismatch: sub main::head ($)...」が$i->{timestamp} = time; respond_exit("No URL (url)") unless $i->{url}; { use LWP::Simple qw(!head); my $str = get($i->{url}) || ""; respond_exit("No Link") unless $str =~ /nais\.to/; } my $data = load_data($tb_id); unshift @$data, $i;