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!;