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

I guess the title for the post says it all, but to restate... Is there an internal perl variable that holds not just the command line used when calling the current script, but also all parameters with it? For example 
./scriptname --flag

[download]

The $0 value is './scriptname', however I am looking for a variable that will return './scriptname --flag'.

Thanks! -c

Replies are listed 'Best First'.
Re: Is it possible to include GetOpt flags in $0
by robartes (Priest) on Oct 24, 2002 at 13:46 UTC
    Just use @ARGV: 
    use strict;
my @commandline=@ARGV;
unshift @commandline, $0;

    [download]

    CU
    Robartes-

[reply]
[d/l]
Re: Is it possible to include GetOpt flags in $0
by sch (Pilgrim) on Oct 24, 2002 at 14:03 UTC

    How about: 

    $var = join / /, @ARGV;

    [download]

    But today you took me walking, Through a land that we have lost,
    While our children sit at websites, With no access to the cost

[reply]
[d/l]
Re: Is it possible to include GetOpt flags in $0
by Jenda (Abbot) on Oct 24, 2002 at 15:44 UTC

    If you happen to use Windows you may get the raw commandline with 

    use Win32::API;
my $GetCommandLine = Win32::API->new('kernel32', 'GetCommandLine', [ ]
+ , 'P' );
$cmdline = $GetCommandLine->Call();

    [download]

    In other case you will probably want something like: 

    BEGIN { @ORIGINAL_ARGV = @ARGV };
use GetOpt::Long ...
...

    [download]

    I don't think you should add the options to $0 itself, but I guess you may if you want to.

    HTH, Jenda

[reply]
[d/l]
[select]
Re: Is it possible to include GetOpt flags in $0
by roik (Scribe) on Oct 24, 2002 at 13:54 UTC
    In Perl the parameters are passed in a special list called @ARGV.
    An example of accessing them is:
    my $variable1 = $ARGV[0];
my $variable2 = $ARGV[1];
# etc..

    [download]
[reply]
[d/l]
      Update - having noticed that c is an Abbot I expect (s)he knows this and is after something more esoteric! No patronisation intended!
[reply]

        Someone can become a Saint without knowing diddly squat about Perl. All it takes is some clever replies that draw upvotes and time. Do not assume that simply because someone has moved up the "ranks" here that they are Perl experts.

        Update: Reworded... Must not have had enough caffeine in my blood system yet.

[reply]

Back to Seekers of Perl Wisdom