Help for this page

Select Code to Download


  1. or download this
    my $pid = open3("<&STDIN", ">&OUTPUT", ">&ERRLOG", $cmd) or die "$!";
  2. or download this
    #!/usr/local/bin/perl

# Script to test IPC::Open3
...
close(ERRLOG) or die "Can't close filehandle! $!";
close(OUTPUT) or die "Can't close filehandle! $!";
defined( my $x= <STDIN> ) or warn "Can't read STDIN: $!\n";
  3. or download this
    PID was 416
readline() on closed filehandle main::STDIN at open3.pl line 32.
Can't read STDIN: Bad file descriptor
  4. or download this
    open( IN, "<&STDIN" ) or die "...: $!\n";