Help for this page

Select Code to Download


  1. or download this
    use IPC::Run qw/run/;
use IO::Tee;
...

my $in = ""; # this data is sent into the command
run [qw/cleartool describe lbtype:MYLABEL/], \$in, $printer, $printer;
  2. or download this
    run [qw/cleartool describe lbtype:MYLABEL/], \$in, $tee, $tee;
  3. or download this
    run [qw/cleartool describe lbtype:MYLABEL/], ">&", $printer;