Jemand zu Hause?Readers: 23
Wie frage ich & perlintro
brian's Leitfaden für jedes Perl-Problem1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
use POSIX ":signal_h"; my $mask = POSIX::SigSet->new( SIGALRM ); my $dbh = ...; my ($t) = $dbh->selectrow_array("SELECT CONNECTION_ID()"); my $sth = $dbh->prepare("mein select"); my $action = POSIX::SigAction->new( sub { my $dbh = ...; my $foo = $dbh->prepare("kill ?"); $foo->execute($t); die "connection ($t) timeout"; }, $mask, ); my $oldaction = POSIX::SigAction->new(); sigaction( SIGALRM, $action, $oldaction ); eval { alarm 5; $sth->execute(...); alarm 0; }; alarm 0; sigaction( SIGALRM, $oldaction ); if ($@) { ... }
Wie frage ich & perlintro
brian's Leitfaden für jedes Perl-Problem2011-01-25T13:18:36 pktmAber ich habe neulich gehört
Wie frage ich & perlintro
brian's Leitfaden für jedes Perl-Problem
Wie frage ich & perlintro
brian's Leitfaden für jedes Perl-Problem