(I'm mailing this after posting through Google Groups. I didn't see it
get posted, so I'm sending email instead. I hope this doesn't double
post. If it does, I'm sorry.)
Hi Perl folks,
I am trying to write a wrapper script around an executable file so
that I am able to better control the results of other programs calling
that file. I have written a short and easy script that collects the
options in a log file, and then execs the original command (just for
testing).
#!/usr/bin/perl
use strict;
use warnings;
my $datestampe = localtime(time);
open LOG, ">>/tmp/options.log" or die "Can't open /tmp/options.log:
$!";
print LOG "$datestamp: Command and options: $0 @ARGS";
exec( '/usr/bin/original-executable', @ARGS);
However, I have found that some open the original file in a pipe. Is
there a way I can view the contents of what is being sent through the
pipe?
Thanks,
--Errin