initial values in perl

[tsp120]

I want to be able to run my program in unix in this way:

perl filename -p hhc -v 2

Then i want to designate hhc into a variable called '$prefix' and 2 into a variable '$version'. I am under the impression that this is possible. How would I store these values into the appropriate variables?

Note, it is possible that it will not always be necessary to insert an initial prefix and version.

Hope this made sense. Thanks.

 

[arcnon]

they are put in @ARGV

 

[PaulTEG]

http://search.cpan.org

look up getopts

--Paul
arcnon is right @ARGV is where they go, what, and how you want to deal with them is your choice

It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

 

[mikevh]

Check out Getopt::Std

http://www.perldoc.com/perl5.8.4/lib/Getopt/Std.html

or you could roll your own, e.g.

#!perl
use strict;
use warnings;

my ($prefix, $version);

while (@ARGV && $ARGV[0] =~ /^-/) {
    $_ = shift;
    last if /^--$/;
    if (/^-p$/) {
        $prefix = shift;
    } elsif (/^-v$/) {
        $version = shift;
    } else {
        die qq(Unrecognized option "$_"!\n);
    }
}

print qq(\$prefix = $prefix, \$version = $version\n);