Extract Last Command Line Within script

EchoAngel has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks, I have this idea where I run my perl script with certain arguments. If it does die within my script , I want to recreate the extra unix command line that was used.

ie abc.pl -file1 testing.txt atitech -extract_lines
[download]

is there anyway to find out what was my command within my perl script? note I am using Getopt::Long; any examples would be nice

Comment on Extract Last Command Line Within script Download Code

Replies are listed 'Best First'.
Re: Extract Last Command Line Within script by Joost (Canon) on Mar 02, 2005 at 17:20 UTC
Getopt::Long's GetOptions() sub modifies @ARGV, so you need to put this code before that call: `my $cmdline = "$0 @ARGV";` [download] Note that $0 doesn't work on all platforms, and that shell interpolation is already done before the perl script starts, so you can't rely on this to be 100% accurate. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]
Re: Extract Last Command Line Within script by RazorbladeBidet (Friar) on Mar 02, 2005 at 17:22 UTC
I'm not entirely sure I understand the question. The thing that's throwing me off is extra unix command line. If you just want the command and args as they were typed in `print "$0 ".join( " ", @ARGV )."\n"` or something similar should suffice. -------------- It's sad that a family can be torn apart by such a such a simple thing as a pack of wild dogs	[reply] [d/l]