ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitriy Polahovskiy 2:5020/400 01 Apr 2003 08:18:19
To : All
Subject : Как срочно выйти из $ua->request (LWP)?
--------------------------------------------------------------------------------
Привет всем!
Программа (proxi-сервер?)построена по след. схеме.
my $d = new HTTP::Daemon
my $ua = LWP::UserAgent->new();
while (($c = $d->accept) ) {
my $r = $c->get_request;
if (defined($r)) {
my $response=$ua->request($r)
$c->send_response($response);
$c->close; } }
При ожидании ответа программа застревает на строке
my $response=$ua->request($r)
Подскажите, как можно срочно выйти из этой команды
по заданной комбинации клавиш и продолжить цикл while?
Спасибо. Дмитрий.
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
