Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict; use warnings;
my $do_me="do_me.pl";
...
  print("$result\n") if defined $result;
}
print "(4)Can not read $do_me: $!\n" if $!;
  2. or download this
    (1)Can not read do_me.pl: Bad file descriptor
Create file with newline
(2)Can not read do_me.pl: Bad file descriptor
...
(3)Can not read do_me.pl: Bad file descriptor
string
(4)Can not read do_me.pl: Bad file descriptor