Help for this page

Select Code to Download


  1. or download this
    use IO::Select;;
IO::Select->new( STDOUT ) or die $^E;;
@s = $s->can_read() or print "$^E";;
An operation was attempted on something that is not a socket
  2. or download this
    C:\test>p1
[0] Perl> $SIG{INT} = sub{ print "Got ^C" };;
...
Got ^C
;;
[0] Perl>