Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
use warnings;
...
syscall(&SYS_write, 2, $f, 10) != -1 or warn "write: $!";
print STDERR "\n";
defined read($f, my $waste, 1) or die "read: $!";
  2. or download this
    GLOB(0x814
read() on unopened filehandle at ./script line 9.
read: Bad file descriptor at ./script line 9.