perl таймаут

0

0

подскажите как сделать таймаут на перле например если есть код:

while(1){ 1.оператор 2.оператор 3.оператор }

нужно чтобы за каждый цикл программа выполняла 1 оператор, потом начинала выполнять 2 и если 2 оператор выполняется слишком долго то переходила сразу к 3 оператору.

Ссылка

←	Макросы в emacs

M$ Word document из Python

→

#!/usr/bin/perl -w

use strict;

$SIG{ALRM} = sub { die "read timeout" };
alarm 2;
$_=<>;
print "read: $_\n";

lodin ★★★★
(19.09.09 03:37:19 MSD)

Ответ на: комментарий от lodin 19.09.09 03:37:19 MSD

http://search.cpan.org/~patl/Time-Out-0.10/Out.pod

lodin ★★★★
(19.09.09 03:38:32 MSD)

Ответ на: комментарий от lodin 19.09.09 03:38:32 MSD

alarm и Time::Out не подходят извините забыл сказать что таймаут надо меньше 1 секунды. есть другие варианты?

TDrive ★★★★★
(19.09.09 05:09:24 MSD) автор топика

Можно завязать все на Glib::Timeout, который умеет таймауты меньше секунды, но, естественно для этого понадобятся перловые биндинги для Glib'а.

d_a ★★★★★
(19.09.09 05:19:23 MSD)

Ответ на: комментарий от d_a 19.09.09 05:19:23 MSD

в CPAN его нету?

nolock_cpan> i /Glib::Timeout/ No objects found of any type for argument /Glib::Timeout/

TDrive ★★★★★
(19.09.09 06:01:31 MSD) автор топика

Ответ на: комментарий от TDrive 19.09.09 06:01:31 MSD

$ perldoc -f alarm | grep -A6 Time::HiRes
               Time::HiRes module (from CPAN, and starting from Perl 5.8 part
               of the standard distribution) provides ualarm().  You may also
               use Perl’s four-argument version of select() leaving the first
               three arguments undefined, or you might be able to use the
               "syscall" interface to access setitimer(2) if your system
               supports it. See perlfaq8 for details.

Eshkin_kot ★★
(19.09.09 06:20:02 MSD)