Help for this page

Select Code to Download

Select or download this

# Not sure if you are trying to pass literal '\t','\n' or tab and newl
+ine characters...assuming tab and newline
system(cleartool => 'lsco', '-r', '-brt', $stream, '-fmt', "%En\t%u\n"
+);

Select or download this

open(my $fh, "-|",
  cleartool => 'lsco', '-r', '-brt', $stream, '-fmt', "%En\t%u\n") or 
+die "Err: $!";
...
  print "OUTPUT: $_";
}
close $fh or die "Error: $!";