Thread sysread und alert: kein Abbruch (1 answers)
Opened by burnersk at 2008-10-17 19:53

burnersk
 2008-10-17 19:53
#115602 #115602
User since
2008-03-25
83 Artikel
BenutzerIn
[default_avatar]
Hallo,

ich möchte in einer while-Schleife den STDIN mit sysread auslesen.

In alarm habe ich folgendes Beispiel gefunden (angepasst)
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14

print 'Eingabe: ', eval
{
  local $SIG{ALRM} = sub { die "alarm\n" };
  alarm(1);
  my $buffer = '';
  while (1) 
  {
    my $tmp = '';
    sysread(STDIN, $tmp, 1024);
    $buffer .= $tmp;
  }
  alarm(0);
  return $buffer;
};

Nun sollte doch nach (ungefähr) einer Sekunde SIGALRM kommen und das Auslesen mittels sysread unterbrochen werden und der eval verlassen werden.
Nur leider passiert dies nicht.

Ich habe ActivePerl 5.8.8 unter Win32.

View full thread sysread und alert: kein Abbruch