Re: perl клиент-сервер
От: Аноним  
Дата: 30.04.10 22:24
Оценка:
Здравствуйте, bobtheblob, Вы писали:

B> после приема файла не получается отправить строку.


Потому что в таком варианте состояние "после приема файла" не наступит никогда. Надо со стороны клиента сообщить серверу, что у нас EOF. Проще всего так:
# открытие сокета и передача файла не меняется ...
close FILE;

shutdown($socket, 1);  # Закрыть его здесь на запись и спокойно прочитать ответ.
while (<$socket>) {
        print $_;
}

close $socket;
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.