菜鸟求救

tryMD

如何用perl实现先匹配,然后把字符串放到变量中
例如:<td class=a>this is a test
我需要先把<td class=a>匹配出来,然后把字符串"this is a test"放到一个变量中。

tojeff

#!/usr/bin/perl -w
local $_ = '<td class=a>this is a test';
/<td class=a>/;
$out = $';
print "$out";

cozo

那如果test后面还有别的东西呢？比如</td>

tojeff

#!/usr/bin/perl -w
local $_ = '<td class=a>this is a test</td>';
/<.*>([a-z\s]+)<.*>/ig;
my $out = $1;
print $1;

tryMD

非常感谢!!!!