Цитата:
#!/usr/bin/perl
use LWP::UserAgent;
open (FILE, "numbers.txt") || die "$!";
@dat=<FILE>;
close(FILE);
for ($c=0;$c<@dat;$c++) {
$ua=LWP::UserAgent->new;
$number=$dat[$c];
$number=~ s/\n//;
$req=new HTTP::Request('GET' => "http://www.site.ru/page.asp?$number");
$res=$ua->request($req);
if ($res->is_success) { $page = $res->content; $pag=true; } else {print "Can't get page"; $pag=false;}
if ($pag) {
if ($page=~ /этой записи не существует/) {
print "Number $number escaped\n";
$dat[$c]="";
}
} else {
exit;
}
} else {
exit;
}
open (FILE, ">new_numbers.txt");
print FILE @dat;
close(FILE);
|
Но тебе нужно генерить по чуть-чуть номера, ибо скрипт просто умрет, пока будет открывать файл со всеми номерами.