Capture

#!/usr/local/bin/perl
## capture the command-line, stdout and stderr
#  David H.  2000-08-24

# default temp file names
$prefix = '/tmp/Capture.std';
$out = "$prefix.out.$$";
$err = "$prefix.err.$$";

# usage
exec "pod2text $0" unless @ARGV;

if ($#ARGV == 0 && $ARGV[0] =~ /[\s>]/) {
        ($cmd,$args,$out) = $ARGV[0] =~ /(\S+)\s*(.*)?>+\s*(.*)/;
} else {
        $args = join ' ', @ARGV;
}

system "$cmd $args > $out 2> $err";

print "::CMD::\n$cmd $args\n\n";
print "::STDOUT::\n" . `cat $out` . "\n" unless -z $out;
print "::STDERR::\n" . `cat $err` . "\n" unless -z $err;
unlink $out if $out =~ m#$prefix#;
unlink $err;

#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

=head1 NAME

Capture - capture command-line, stdout and stderr

=head1 SYNOPSIS

Capture B<command> [ B<args> ]

=head1 DESCRIPTION

Captures the command-line, stdout and stderr, then present them on STDOUT,
in that order.  The three sections of output are marked with the lines:

        ::CMD:: ::STDOUT:: ::STDERR::

If the 'command' being executed needs to redirect it's own STDOUT
you must quote the entire command string:

        Capture 'find / -type l -print > all_links'

Note that appending (B<E<gt>E<gt>>) with STDOUT will not work.

=head1 AUTHOR

David Hoekman <dhoekman@halcyon.com>