Question

When calling a perl script with:

myPerlScript --myarg 10 --my2Darg 42x87.

How do I make the assignments:

$myarg = 10;
$my2Darg_x = 42;
$my2Darg_y = 87;

if and only if myarg and my2Darg is valid arguments?

I think I need something like this:

#!/usr/bin/perl

foreach (@ARGV) {

    if ($_ eq '--myarg') {

        $myarg =
    }
    elsif ($_ eq '--my2Darg') {
        $my2Darg_x =
        $my2Darg_y =
    }
    else {

        print "Not valid argument!!";
    }
}

As you can see this code is not complete. Plz. help.

Is there a short way to write if($_ eq 'text') (is if('text') valid Perl?)?

Answer 1

Check Getopt::Long module, it’s on core.

Script

use strict;
use Getopt::Long;

my ($arg, $arg_2d);

# prepare format cmd string
GetOptions( "myarg=i" => \$arg, "my2Darg=s" => \$arg_2d);

unless ( $arg && $arg_2d && $arg_2d =~ m{\d+x\d+}i ) {

    print "Usage: $0 --myarg 10 --my2Darg 42x87 \n";
    exit 1;
}

my ($arg_2d_x, $arg_2d_y) = split 'x', $arg_2d;

printf "arg: %s \narg_2d_x: %s \narg_2d_y: %s\n", $arg, $arg_2d_x, $arg_2d_y;

Output

arg: 10 
arg_2d_x: 42 
arg_2d_y: 87