Hi Todd, I'm completely new to perl. I'm have to work in biology using perl, postgresql (as database) and clustalw or multalin (as the alignment tool). I'm stating my problem briefly:
In the postgresql db the data is clustered using complete linkage clustering. I've to connect to that db, fetch those data, feed it to the multiple alignment tool, run it and show the results. All these needs to be automated using perl. I'll be obliged if you help me with this. Thanks, Angshu On 10/11/05, Todd W <[EMAIL PROTECTED]> wrote: > > "Frank Geueke" <[EMAIL PROTECTED]> wrote in message > news:[EMAIL PROTECTED] > > Hi. I need to grab regex matches from a string in > > perl. The string is an enum data type in Mysql. i.e. > > enum('Berks','Carbon','Lehigh','Montgomery') > > So basically I need a match on alphabetic chars > > between single quotes. No problem. But I'd like to > > be able to grab each match and store it in an array > > (in as few lines as possible). I was told that split > > has an option that grabs delimiter matches instead of > > dropping delimiters and returning what's between them. > > Any ideas? Thanks. Frank > > > Here is what I would use: > > $ perl -mwarnings -mstrict > my $data = q|enum('Berks','Carbon','Lehigh','Montgomery')|; > > my @vals = $data =~ m|'(.+?)'|g; # the expression you want > > print( map "$_\n", @vals ); > Ctrl-D > Berks > Carbon > Lehigh > Montgomery > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > <http://learn.perl.org/> <http://learn.perl.org/first-response> > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
