man => 0,
dir => '.',
keyword => undef,
+ keywords => 0,
);
-GetOptions(\%options,'keyword|k=s','debug|d+','help|h|?','man|m');
+GetOptions(\%options,'keyword|k=s','debug|d+','help|h|?','man|m',
+ 'keywords'
+ );
pod2usage() if $options{help};
'Char' => \&tag_content
);
+print STDOUT join(",", map {qq("$_");} qw(Name RefSeq Location Alias Function Description Keyword DBName Filename)),qq(\n);
for (@ARGV) {
$file_name = $_;
- ($keyword) = $options{keyword} || $file_name =~ m#(?:^|/)([^\/]+?)[\s-]+AND[\s\-].+_results.xml$#;
- print STDOUT join(",", map {qq("$_");} qw(Name RefSeq Location Alias Function Description Keyword DBName Filename)),qq(\n);
+ if ($options{keywords}) {
+ $keyword = $_;
+ $file_name = "ncbi_${keyword}_results.xml";
+ }
+ else {
+ ($keyword) = $options{keyword} || $file_name =~ m#(?:^|/)([^\/]+?)[\s-]+AND[\s\-].+_results.xml$#;
+ }
my $file = new IO::File $file_name, 'r' or die "Unable to open file $file_name $!";
$parser->parse($file);