Enum Regex

danambrose has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Enum Regex by reneeb (Chaplain) on Nov 05, 2004 at 09:48 UTC
`#! /usr/bin/perl my $string = "enum('one','two','three','four') "; my @values = $string =~ /'([^']+)'/g; print $_,"\n" for(@values);` [download]	[reply] [d/l]
Re: Enum Regex by gaal (Parson) on Nov 05, 2004 at 09:48 UTC
Are the quoted values guaranteed not to have single quotes inside them? If so: `my @names = /'(.?)'/g;` If you do need to protect against embedded quotes, take a look at Text::Balanced. Update:* removed silly extraneous `.*?` at end of regexp.	[reply] [d/l] [select]
Re: Enum Regex by Joost (Canon) on Nov 05, 2004 at 09:44 UTC
simple solution (and very insecure): `sub enum { my (@values) = @_; print "Found @values\n"; } my $string = "enum('one','two','three','four')"; eval $string;` [download] "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]