#!perl use LWP::UserAgent; use HTTP::Request::Common; use Jcode; my $ua = new LWP::UserAgent(); my $comment = <<"EOM"; 種別：放火予告 URL：http://mamono.2ch.net/test/read.cgi/newsplus/1215191796/17 原文：[元サイトからの転載] ------- http:/…

perlから自動的に警察に通報する仕組みを考えたよ。 さぁて、コマンドラインから通報できる時代の到来ですよ。 要は警視庁の提供する↓のフォームにHTTPを通じてデータをPOSTするだけのプログラムなんだけどね。 https://www.keishicho.metro.tokyo.jp/anket/…