Re: multiple options for pattern match help

Try this,

my $regexp = qr/ (?: ( int | char | bool | long ) ) /x;

if ($string =~ /\A $regexp \z/xms){
  print $&, "\n";
}
[download]

PooLpi
Update : Parenthesis, thanks lima1 ;)

Comment on Re: multiple options for pattern match help Download Code

Replies are listed 'Best First'.
Re^2: multiple options for pattern match help by alexm (Chaplain) on Jan 08, 2008 at 23:20 UTC
`my $regexp = qr/ (?: ( int \| char \| bool \| long ) ) /x;` [download] There's still the grouping parentheses. It should be like this in order to follow lima1's update: `my $regexp = qr/ (?: int \| char \| bool \| long ) /x;` [download]	[reply] [d/l] [select]