Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Веб-программирование > Perl
Перезагрузить страницу Цикл на 4 раз не срабатывает. В чем проблема
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Anonymous
Guest
 
Сообщений: n/a
По умолчанию Цикл на 4 раз не срабатывает. В чем проблема - 24.02.2003, 22:15

Я совсем newbie, это мой второй в жизни скрипт, но я в упор не понимаю почему 3 раза работает, а на 4ый вылетает. нах . от содержания h.dat ниче не зависит.

-------------------------------------------
[yandex@d00d13 script]$ ./pop.pl
Started!
.. yandexxx -ERR
.. thewhistler -ERR
.. altar -ERR
write error: filehandle isn't open at ./pop.pl line 31
.[yandex@d00d13 script]$
-------------------------------------------
но лайн 31 к файлам не относится. или я не гик? )

1 #!/usr/bin/perl
2 print `rm -f results.dat`;
3 print " Started! n";
4
5 open(Base, "h.dat")|| die;
6 @icq = <Base>;
7 close(Base);
8
9
10 #open(InFile, "h.dat") || die;
11 for ($i=$[; $i<=$#icq; $i++)
12 {
13
14 ($icq, $mail) = split(/ /,$icq[$i]);
15 ($account, $host) = split(/@/,$mail);
16 chomp $mail;
17 $hostname = "хост тут";
18
19 use Net::Telnet ();
20 $pop = new Net::Telnet (Telnetmode => 0);
21 $pop->open(Host => $hostname,
22 Port => 110);
23
24 ##
25
26
27 $gotline = $pop->getline;
28 print ".";
29 ## .
30
31 $pop->print("user $mail");
32
33 $gotline = $pop->getline;
34 print ".";
35 ## .
36
37 $pop->print("pass $account");
38 $gotline = $pop->getline;
39 print " $account $gotline";
40
41
42
43 open(Results, ">>results.dat");
44 print Results "$mail n $gotline";
45 close(Results);
46
47
48 }
49 close(InFile);
50 print "n ALL DONE!!!! n!";
51
Ответить с цитированием
  (#2 (permalink)) Старый
ivanyan ivanyan вне форума
Member
 
Сообщений: 305
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 06.06.2002
По умолчанию 27.02.2003, 19:14

Возможно не может подсоединиться к pop серверу (корорый идет четвертым в списке .dat файла) поэтому файл и не открывается...
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не срабатывает клавиатура zvezda Любые вопросы от новичков 4 27.01.2012 18:24
На что срабатывает UAC? Odin_KG Visual C++ 5 28.12.2011 11:55
не срабатывает датчик температуры!!! VESSET Охлаждение и разгон 5 27.01.2011 17:56
Не срабатывает пароль на вход, как обнулить или сбросить? zhanna Любые вопросы от новичков 2 07.09.2008 13:55
На флешке не срабатывает автозапуск, ошибка: отказанно в доступе. grizzli Любые вопросы от новичков 5 19.05.2008 16:39
Не срабатывает OnEventAlert у TIBEvents ROMANTI Delphi 0 25.09.2007 01:21
Буфер обмена как результат - не срабатывает OpenClipboard bartwell Windows CE 10 02.06.2007 14:52
OnMouseDown не срабатывает над ячейкой с данными imported_Larry C++ Builder 4 30.08.2005 17:12
Не срабатывает условие на RESOURCEDISPLAYTYPE_SERVER Olegg C++ Builder 0 11.08.2004 18:02
Скрипт срабатывает, а почта не доходит Anonymous Perl 3 11.01.2003 18:11



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов