From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DSB / ClearCase-Argv-1.11 / examples / ctcmd / func.pl 

            

              
1
2
3
4
5
6
7
8
9

              
use ClearCase::CtCmd qw(cleartool);
# Returns an array containing three scalars: (exit status, stdout, stderr)
my @results = cleartool('pwv');
# Now distribute stdout to stdout, stderr to stderr, and return the exit code.
print STDOUT $results[1];
print STDERR $results[2];
exit $results[0];