正则表达式匹配的问题

[potato1234]

想匹配文本中的这些行：
if a;
if a and b;
if a;
if a and b;
我的正则是这样写的：
$part =~ m/(if\s*\w\s*((and)?)\s*\w?\s*;$)/ismg

但是输出结果一直不对，希望大家能帮忙解答一下

[m00z]

试试这样

#! perl
use strict;
my $str = "if a;

if a and b;
  if a;
  if a and b;";

if ( $str =~ /((\s+)?if\s+\w+(\s+and\s+\w+)(.*?)){2}/s ) {
	print $str;
}

[potato1234]

好的，我试一下，谢谢您的答复。
后来我改了一下写法：
$part =~ m/（if\s*\w\s*(and?)\s*\w?\s*;）/ismg
[Quote=引用 1 楼 will2ni 的回复:]
试试这样

Perl code
#! perl
use strict;
my $str = "if a;

if a and b;
if a;
if a and b;";

if ( $str =~ /((\s+)?if\s+\w+(\s+and\s+\w+)(.*?)){2}/s ) {
print $str;
}
[/Quote]