#このスクリプトファイルはSJISで保存すること

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use HTTP::Cookies;

my $url='hhttps://matsuri.5ch.net/test/read.cgi/entrance/1516417594/'; #URL
my $message="やめたれｗ"; #レス
my $mail=''; #mail
my $FROM=''; #名前
my $sleep='15'; #間隔(秒)
my $times='10'; #連投回数
my $ua='Monazilla/4.0'; #User-Agent
my $server;
my $bbs;
my $key;

if($url =~ /https?:\/\/([a-z0-9]+)\.5ch\.net\/test\/read\.cgi\/([a-z0-9]+)\/([0-9]+)\//){
  $server=$1;
  $bbs=$2;
  $key=$3;
} else {
  die
}

my %formdata = (
  MESSAGE        => $message,
  mail           => $mail,
  FROM           => $FROM,
  time           => '1',
  key            => $key,
  bbs            => $bbs,
);

my $cookie_jar = HTTP::Cookies->new();
my $hd = LWP::UserAgent->new;
$hd->agent($ua);
$hd->timeout('10');
$hd->cookie_jar($cookie_jar);


for (my $count=0; $count<$times; $count++){
  sleep $sleep;
  my $req = POST( "http://".$server.".5ch.net/test/bbs.cgi", [%formdata] );
  $req->referer("http://".$server.".5ch.net/".$bbs."/");
  $req->header( 'Accept' => 'text/html' );
  my $res = $hd->request($req);
  if ($res->is_success) {
    $res = $hd->request($req);
    if ($res->is_success) {
      print $count.":success:".$res->status_line,"\n";
    } else {
      print $count.":faile:","\n";
    }
  } else {
    print $res->status_line, "\n";
  }
  $cookie_jar->clear;
}