Help for this page

Select Code to Download


  1. or download this
    die $help unless $ARGV[1];
map { /^-?\d+$/ or die "Invalid input $_\n" } @ARGV;
...
sub HELP_MESSAGE {
  print $help;
}
  2. or download this
    /home/ren/bin/ies version 1.0 calling Getopt::Std::getopts (version 1.
+05),
running under Perl version 5.8.8.
...
        Boolean (without arguments): -s

Options may be merged together.  -- stops processing of options.