bar

   1 #!./perl
   2
   3 BEGIN {require POSIX; import POSIX; }
   4
   5
   6 print POSIX::pipe(), "\n";
   7
   8 $sigset = new POSIX::SigSet 1,3;
   9 delset $sigset 1;
  10 if (ismember $sigset 1) { print "BAD\n" }
  11 if (ismember $sigset 3) { print "GOOD\n" }
  12 $mask = new POSIX::SigSet &SIGINT;
  13 $action = new POSIX::SigAction 'main::SigHUP', $mask, 0;
  14 sigaction(&SIGHUP, $action);
  15 kill HUP, $$;
  16 print "DONE\n";
  17
  18 sub SigHUP {
  19     print "SigHUP1\n";
  20     sleep 10;
  21     print "SigHUP2\n";
  22 }
  23
  24 __END__
  25 print &_POSIX_OPEN_MAX, "\n";
  26
  27 $x =  setlocale(&LC_NUMERIC, "En_TRY");
  28 print $x,"\n";
  29 $! = 12;
  30
  31 print +POSIX::errno(), "\n";
  32 print 123.45,"\n";
  33 __END__
  34 $lconv = localeconv();
  35 print %$lconv, "\n";