mkrf.pl

mkrf download system on perl

#!/usr/bin/perl

$search= $ARGV[0];
#$search="101%20%C4%E0%EB%EC%E0%F2%E8%ED%E5%F6%20.";
$search =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
print $search;
$body=`curl "http://mkrf.ru/activity/register/certificates/?move-certificates%5BNazv%5D=$search&move-certificates%5BN_Ud%5D=&move-certificates%5BFirm_Z%5D=&move-certificates_search=%CF%EE%E8%F1%EA"`;

#print "$body\n";
@buffer_arr = split(/\n+/, $body);
LINE: foreach $ip (@buffer_arr) { 
$_=$ip;
if ($ip =~ /\.\/detail\.php/) {
($tag1,$tag2,$tag3)=split(/=/,$ip);
($id,$zib)=split(/\"/,$tag3);
print "--- $ip\n ---- $tag1 ---- $tag2 ------- $tag3 ----- $id ----- $zib\n";    
$idbody=`curl "http://mkrf.ru/activity/register/certificates/detail.php?id=$id"`;


if ($idbody=~ m/(<table class="table" width="100%"  align=center border=0  cellpadding=3  cellSpacing=0  style="border-collapse: collapse;">.*?<\/table>)/s){

$tdbody=$1;
print "$tdbody\n";

    if ($tdbodym=~ m/(<td.*?\/td>)/s){
    #$tbody=$1;
    print "$1\n";
    }
}

}
}
exit;