#!/usr/bin/perl

use strict;
use LWP::UserAgent;

my $Hissi_URL = $ARGV[0];

die qq!"$Hissi_URL" is not hissi result URL.\n!
unless $Hissi_URL =~ m!
http://hissi\.org/read\.php/\w+?/\d{4}\d{2}\d{2}/[0-9a-zA-Z]+\.html
|http://hissi\.link/5ch/php_files/hissi/read\.php/\w+?/\d{4}\d{2}\d{2}/[0-9a-zA-Z]+html
!x;

my $User_Agent = LWP::UserAgent->new();
$User_Agent->agent('Monazilla/1.00 hissi2format4');
$User_Agent->timeout(30);
my $Response_hissi = $User_Agent->get($Hissi_URL);

if($Response_hissi->is_success){
my @Result_format4;
my $Result_hissi;
$Result_hissi = ($Response_hissi->content() =~ m!<tr bgcolor=#E5FFFF><td>(<dl><dt>.+)$!s)[0];
$Result_hissi =~ s!<dl><dt><a href=(https?://.+?) .+?(\d{4}/\d{2}/\d{2}\(.+?)<dd>!push @Result_format4, qq|$1 $2\n|!eg;
die qq!No results.\n! unless scalar @Result_format4;
print join q!!, qq!#### Result.\n!, @Result_format4;
}
else {
die $Response_hissi->status_line;
}
print q!End of job.\n!;

exit;
__END__