)}gis + push @functions, (map {s/\n//g; $_;} + map {s#\s*(?:
)}gis ); $results[FUNCTION] = join('; ', map {(defined $_)?($_):()} @functions); $results[FUNCTION] ||= 'NO FUNCTION'; # Figure out the keyword used - ($results[KEYWORD]) = $file_name =~ /search=([^&]+)/; + ($results[KEYWORD]) = $file_name =~ /search=?([^&]+)$/; + + $results[KEYWORD] ||= $keyword || 'NO KEYWORD'; - $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';