#!/usr/bin/perl # prosite2perl -- convert Prosite patterns to Perl regular expressions # # Jordan Dimov (jdimov@cis.clarion.edu) # # Submitted to bioperl scripts project 2001/08/03 # # Description: # Prosite patterns to Perl regular expressions. # The prositeRegEx($) sub accepts a string # containing a Prosite pattern and returns a # string containing a valid Perl regex. The code # is self-explanatory. sub prositeRegEx($); while (<>) { chomp ($_); print prositeRegEx ($_), "\n"; } sub prositeRegEx ($) { my $regex = shift; $regex =~ s/[\-\.]//g; $regex =~ s/\{/[^/g; $regex =~ tr/x()<>}/.{}^$]/; return ($regex); }