Help for this page

Select Code to Download


  1. or download this
    my $cmdin=gensym;
my $cmdout=gensym;
...
close($cmderr)|| warn "Error:  Could not close $$cmderr: $!";
print LOG "*-*-end_run-*-*\n";
close(LOG);
  2. or download this
    $pid = open3(*CMD_IN, *CMD_OUT, *CMD_ERR, $cmd);
close(CMD_IN);

...

close(CMD_OUT);
close(CMD_ERR);
  3. or download this
    #!/opt/local/bin/perl

...
print "2:  I am great!\n";
warn "3:  Warning:  I am great!\n";
print "4:  I am great!\n";