Форум АНТИЧАТ - [perl] ycandex checker на регистрацию

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- E-Mail (https://forum.antichat.xyz/forumdisplay.php?f=14)

- - [perl] ycandex checker на регистрацию (https://forum.antichat.xyz/showthread.php?t=99208)

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

Код:

 

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/

Дада,вот и он.С асечки :)
Вот тоже самое на пыхе.
http://forum.antichat.ru/thread99199.html

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

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

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

Удобно,например чтото вроде 2 значных мыл чекать...малоли.

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