in reply to Re: How to get at perl's options in a program
in thread How to get at perl's options in a program
I'm writing a Tk interface to SVN for my own consumption because I like working a certain way. In particular, this is wrap of svn diff with each file in a tab. As I commit files and do other stuff on the files, I want to refresh the tabs to reflect the new file state. The easiest way to do that is to provide a button to re-exec the original command:
my @reexec = [ $0, @ARGV ]; # when I press the refresh button: exec( @reexec )
So far no big deal. But if I am debugging, I didn't run
(pseudo) $0 @ARGVI ran
(pseudo) perl -d:ptkdb $0 @ARGVTo get around the issue, I do this:
my @reexec = [ $0, @ARGV ]; if ( defined (&DB::DB ) ) { unshift @reexec, 'perl', '-d:ptkdb'; } # when I press the refresh button: exec( @reexec )
but I was just wondering if there was a more generic way to read any perl option. I grok about the #! line args. I just figured that perl.exe would save that info some place. If there isn't, then there isn't. Thanks all. End of Thread.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: How to get at perl's options in a program (exec)
by tye (Sage) on Nov 06, 2012 at 21:57 UTC | |
Re^3: How to get at perl's options in a program
by kennethk (Abbot) on Nov 06, 2012 at 21:25 UTC | |
by tobyink (Canon) on Nov 06, 2012 at 22:09 UTC |