Simple regex question

[amirovic]

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

 

[Gunnar Hjalmarsson]

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