Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > продолжить цикл

Автор: TikiTak 8.4.2012, 18:39

У меня сейчас скрипт вот так вообщем выглядет
проходит 1 страницу, парсит все прокси и закрывается,
а как вот сделать чтоб цикл не прекратился пока весь файл не был прочитан так как в нем несколько строк в этих строках ссылки на сайты с проксями...

Код


open(MYFILE, "site_proxy.txt");
while(<MYFILE>){
    $url=$_;
    $page=get($url);
    while($page =~ m/([\d]{1,3}\.[\d]{1,3}\.[\d]{1,3}\.[\d]{1,3}:[\d]{1,4})/g) {
                     print $1."\n";
  }
  
}
close(MYFILE);

Все что приходит на ум это МЕТКИ: но ими я пользоваться не хочу

Вообщем не то чтобы продолжить цикл а как правильно я в перл новичек так что практики нет и это печально очень тяжело

Автор: TikiTak 8.4.2012, 19:36

разобрался !