)}gis + push @functions, (map {s/\n//g; $_;} + map {s#\s*(?:
)}gis ); $results[FUNCTION] = join('; ', map {(defined $_)?($_):()} @functions); $results[FUNCTION] ||= 'NO FUNCTION'; @@ -171,8 +171,19 @@ while ($_ = $dir->read) { $results[KEYWORD] ||= 'NO KEYWORD'; + # Swiss prot functions + my @description = (map {s/<[^>]+>/ /g; + s/\s+/ /g; + $_; + } + $result =~ m{<(?:dd|li)>Function(?::|:)\s+ + (.+?)<(?:/dd|li)>}xgis + ); + # Figure out what the description is - $results[DESCRIPTION] = ''; + $results[DESCRIPTION] = join('; ', + map {(defined $_)?($_):()} + @description); # Database searched $results[DBNAME] = 'genecard';