#!/usr/bin/perl -w use strict; use Getopt::Declare; my $args = new Getopt::Declare <<'EOSPEC' or die; [strict] FOO <value> first parameter TEST <number> second parameter EVERYTHING <boolean> third parameter EOSPEC for (qw(FOO TEST EVERYTHING)) { print "$_ ... ".$args->{$_}."\n" if defined($args->{$_}); }
In reply to Re: Regular expression double grouping negation headache
by meonkeys
in thread Regular expression double grouping negation headache
by JayBonci
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |