[perl] ycandex checker на регистрацию

Code:

 
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.8;" . $ua->agent);
open(A,"source.txt");
open(B,">>er_log.txt");
while(<A>)
{
chomp($_);
$res = $ua->get( "http://passport.yandex.ru/passport?mode=constructlogin&login=$_&iname=123&fname=123");
$res = $res->as_string;
if($res =~ /"input_login_status":"free"/s)
{
print "[+]\t$_\n";
open(C,">>good.txt");
print C "$_\n";
close(C);
}
elsif($res =~ /"input_login_status":"occupied"/s)
{
print "[-]\t$_\n";
}
elsif($res =~ /"input_login_status":"badlogin_length"/s)
{
print "[--]\t$_\n";
print B $res;
}
elsif($res =~ /"input_login_status":"badlogin"/s)
{
print "[--]\t$_\n";
print B $res;
}
else
{
print "[--]\t$_\n";
print B $res;
}}
close(B);

В екзе кому надо (perl2exe)
http://multi-up.com/44273/

 

close() - плохой тон =)

chomp($_);
можно просто chomp;

а вообще я не понял зачем этот скрипт нужен

 

Spyder Да да знаю что плохой...И не пытался красиво