use IO::File;
use IO::Dir;
-# XXX parse config file
-
my %options = (debug => 0,
help => 0,
man => 0,
dir => '.',
keyword => undef,
+ keywords => 0,
);
-GetOptions(\%options,'keyword|k=s','dir|D=s','debug|d+','help|h|?','man|m');
+GetOptions(\%options,'keyword|k=s','dir|D=s','debug|d+','help|h|?','man|m',
+ 'keywords',
+ );
pod2usage() if $options{help};
FILENAME => 8,
};
+if ($options{keywords}) {
+ if (@ARGV != 1) {
+ pod2usage("If the --keywords option is used, exactly one argument (the keyword) must be passed");
+ }
+ $option{dir} = "$ARGV[0]_results_genecard";
+}
+
if (not -d $options{dir}) {
die "$options{dir} does not exist or is not a directory";
}