ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL) IO::Socket, как выйти из цикла, если сервер закончил передавать данные
8 сообщений из 8, страница 1 из 1
(PERL) IO::Socket, как выйти из цикла, если сервер закончил передавать данные
    #33794583
dff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dff
Участник
Господа, помогите решить проблему. Есть сервер, который получает команды от клиента на выполнение. Возвращаемые результаты могут быть разной длины. Все они разделены \n.

К примеру, отправляем команду на выполнение и ждем ответа. Ответ состоит из трех частей, разделенных \n

Пробем получить все 3 ответа:

Код: plaintext
1.
2.
3.
4.
while ( <$socket> )
 {
    print $_;
}

В результате мы получаем все эти ответы, но из цикла не выходим. Мы продолжаем ждать еще результатов, хотя их больше нет. Подскажите пожалуйста, как выйти из цикла, если сервер закончил передавать данные без какого-либо специального символа "конец выполнения" ?
...
Рейтинг: 0 / 0
16.06.2006, 09:39:49
| Ответить | Цитировать | Написать  
(PERL) IO::Socket, как выйти из цикла, если сервер закончил передавать данные
    #33794673
g613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
g613
Участник
Код: plaintext
1.
2.
3.
for ( 0  ..  2 ) {
  my $in = <$socket>;
  print $in;
}

?
...
Рейтинг: 0 / 0
16.06.2006, 10:05:08
| Ответить | Цитировать | Написать  
(PERL) IO::Socket, как выйти из цикла, если сервер закончил передавать данные
    #33794682
dff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dff
Участник
g613
Код: plaintext
1.
2.
3.
for ( 0  ..  2 ) {
  my $in = <$socket>;
  print $in;
}

?

Проблема в том, что в зависимости от результатов выполнения, может быть любое кол-во ответов. Либо 3, либо вообще 5. Да, довольно странный протокол, но все же что делать? :)
...
Рейтинг: 0 / 0
16.06.2006, 10:07:41
| Ответить | Цитировать | Написать  
(PERL) IO::Socket, как выйти из цикла, если сервер закончил передавать данные
    #33794769
g613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
g613
Участник
...анализировать ответ, в зависимости от полученного результата говорить внутри цикла last, иначе не знаю.
Код: plaintext
1.
2.
3.
while ( <$socket> ) {
    print $_;
    last if ( какой то результат );
}
...
Рейтинг: 0 / 0
16.06.2006, 10:30:08
| Ответить | Цитировать | Написать  
(PERL) IO::Socket, как выйти из цикла, если сервер закончил передавать данные
    #33796237
dff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dff
Участник
g613...анализировать ответ, в зависимости от полученного результата

Так в этом-то и проблема, что нечего анализировать. Т.е. нет определенного символа конца передачи данных. Вот такие бывают у китайцев девайсы :-(
...
Рейтинг: 0 / 0
16.06.2006, 16:24:40
| Ответить | Цитировать | Написать  
(PERL) IO::Socket, как выйти из цикла, если сервер закончил передавать данные
    #33796446
g613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
g613
Участник
тогда могу еще предложить почитать perldoc -f select ( тот который с 4 параметрами )
и `читать из сокета до тех пор пока туда пишут'...
...
Рейтинг: 0 / 0
16.06.2006, 17:14:13
| Ответить | Цитировать | Написать  
(PERL) IO::Socket, как выйти из цикла, если сервер закончил передавать данные
    #33796455
g613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
g613
Участник
P.S.
в твоем случае лудше наверное будет почитать perldoc IO::Select
...
Рейтинг: 0 / 0
16.06.2006, 17:16:27
| Ответить | Цитировать | Написать  
(PERL) IO::Socket, как выйти из цикла, если сервер закончил передавать данные
    #33796700
dff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dff
Участник
g613P.S.
в твоем случае лудше наверное будет почитать perldoc IO::Select

ок, спасибо
...
Рейтинг: 0 / 0
16.06.2006, 18:39:31
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL) IO::Socket, как выйти из цикла, если сервер закончил передавать данные
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=23&msg=33794583&tid=1475980]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 217ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 198ms
total:  498ms
созд. / загр.: 498ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]