Enforce order 1

[blarneyme]

Using getopts and have 4 options; H, M, X , C
getopts('HX:M:C');
use vars qw($opt_H, $opt_X, $opt_M, $opt_C);
if ($opt_H) {...};
if ($opt_C) {...};
if ($opt_M) {...};
if ($opt_X) {...};

1. H is for help
2. C, M or X can be used by themselves
3. C and M can be used together and C must be used first
4. C cannot be used with X

How can I enforce the requirements for 3 & 4?

 

[travs69]

if ($opt_M && $opt_C) {
die "Can't use options M & C at the same time!\n";
}

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[blarneyme]

Of course. I should have recognized that.

For number 3, how would I make sure C is before M?

 

[travs69]

Just make sure you process them in that order, always process your C part first, and if you have M the process it.

if your really worried you can do a bunch of ifs like

if (opt_c && opt_M) {
&process_c
&process_m
}
elsif (opt_c) {
&process_c
}
elsif (opt_M) {
&process_M
}



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;