|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/371.32 14 Dec 2000 18:40:56
To : Evgeny Kariakin
Subject : Re: Состояние удалленого хоста.
--------------------------------------------------------------------------------
В твоём письме от Wed, 13 Dec 2000 13:15:46 +0300 написано:
ciur>>> Локальная машина под Linux, удаленная WinNT.
ciur>>> Открываю коннект к MSSQL
ciur>>> $dbh = DBI->connect("dbi:Sybase:server=$server", $user,
ciur>>> $passwd); Ели машина живая, то все ок. Если нет то скрипт висит
ciur>>> на этой строчке, ни какие TimeOut and LoginTimeOut не помогают.
AC>> perldoc -f alarm?
EK>
EK> Я уже спрашивал один раз, но никто не ответил. Обращаюсь конкретно к
EK> тебе, как к корифею эхотага. ;-) Кусочек кода: --= тут все аплодируют,
EK> аплодируют... [Windows Clipboard] =-- eval { local $SIG{ALRM} = sub
EK> { die "alarm\n" }; alarm( 90 ); # # тут обращение к ремоте, ради чего и
EK> используется аларм. # alarm( 0 ); }; return( -5 ) if( $@ && $@ ne
EK> "alarm\n" ); # ещё один оператор; --= кончили аплодировать [Windows
EK> Clipboard] =--------------- Пример взят из perldoc -f alarm , но вместо
EK> того, чтобы продолжить работу при таймауте, скрипт выполняет # ещё один
EK> оператор; и выходит. Hе знаешь, в чём тут может быть дело?
==== 8< [qqq.pl] ====
#!/usr/bin/perl
eval {
local $SIG{ALRM} = sub { die "alarm\n" };
alarm( 9 );
sleep(15);
alarm( 0 );
};
print "$@\n" if $@;
==== >8 [qqq.pl] ====
17:37:55.ttypts/12@Menegroth> time perl qqq.pl
alarm
perl qqq.pl 0.06s user 0.00s system 0% cpu 9.031 total
17:39:19.ttypts/12@Menegroth> uname -a
Linux Menegroth.ran.pp.ru 2.2.17 #2 Mon Sep 25 20:09:59 MSD 2000 i586 unknown
А вот если у тебя не только код лежит в Windows Clipboard, но и исполнение
происходит в Windows же, то опаньки. Hету там alarm.
--- slrn/0.9.6.3-as (Linux)
* Origin: AKA с подствольным плюсомётом (2:5020/371.32)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
