>Разумеется будет, интересны
Дело в том что у меня вызываемая процедура коннектит
к хосту и забирает страничку, но почему-то забирает
только первый раз, а при следуюющей проверке с хостом
соединяется но страницу не тащит.
. . .
BOOT:
for($i=0;$i<=$#allurls;$i++)
{
if(defined($URLS[$i]))
{
$url1=shift @newurls;
$url1=~s/^\s*//;
$url1=~s/\s*$//;
if(&checkconn($url1))
{
if(&openurls)
{
print "Indexing... \n";
#&remote_connect
} else
{
print "Server: $url1 Complete indexed...\n";
}
push(@wasindex,$url1);
print "$url1 : Ok... \n";
}
else
{
push(@badurls,$url1);
print "$url1 : Error... \n";
next BOOT;
}
}
}
. . .
Здесь в массиве @newurls сайты, а $#allurls количество сайтов в массиве.