"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>
