Help for this page

Select Code to Download


  1. or download this
    GetOptions( 'test=s' => \$option_test )
    or exit(1);

defined($option_test)
    or die("Missing argument -t");
  2. or download this
    GetOptions( 'test=s' => \$option_test )
    or die("Invalid command-line option\n");

defined($option_test)
    or die("Missing argument -t\nInvalid command-line option\n");
  3. or download this
    use File::Basename qw( basename );

...

defined($option_test)
    or usage("Missing argument -t\n");