«

Hi,

I have a simple question but somehow I can't solve it myself:

my $var = "[ a a a a a a a a ]";

I'm working with Parse::Recdescent and would like to match this (it's
not about Parse::Recdescent but a general question):

rule: "[" /.*/ "]"

Now "/.*/" matches everything including the "]", but I'd like to match
every before "]". How should this be done?

Thanks a lot for any response,
Tom

wrote:
>
> my $var = "[ a a a a a a a a ]";
>
> I'm working with Parse::Recdescent and would like to match this (it's
> not about Parse::Recdescent but a general question):
>
> rule: "[" /.*/ "]"
>
> Now "/.*/" matches everything including the "]", but I'd like to match
> every before "]". How should this be done?

$var =~ /\[(.*)]/;
print "\"$1\"\n";

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl