if (@ARGV != 1) {
pod2usage("If the --keywords option is used, exactly one argument (the keyword) must be passed");
}
- $options{dir} = "$ARGV[0]_results_genecard";
+ $options{dir} = "$ARGV[0]_results_ensembl";
}
if (not -d $options{dir}) {
print join(",", map {qq("$_");} qw(Name RefSeq Location Alias Function Description Keyword DBName Filename)),qq(\n);
-my ($keyword) = $options{keyword} || $options{dir} =~ m#(?:^|/)([^\/]+)_results_genecard#;
+my ($keyword) = $options{keyword} || $options{dir} =~ m#(?:^|/)([^\/]+)_results_ensembl#;
while ($_ = $dir->read) {
my $file_name = $_;
my @results;
# Find gene name
- ($results[NAME]) = map {s/^[^:]+://; $_;}$result =~ m{a\s+href=\"[^"]+genenames.org[^"]+">\s*([^<]+?)\s*</a>}xis;
+ ($results[NAME]) = $result =~ m{a\s+href=\"[^"]+genenames.org[^"]+">\s*([^<]+?)\s*</a>}xis;
$results[NAME] ||= 'NO NAME';
+ # strip of leading : bits
+ $results[NAME] =~ s/^[^\:]+\://;
# Find REF SEQ number
($results[REFSEQ]) = $result =~ m{for\s*(ENSG\d+)}xis;