my $var = "1 1 1 1";
if($var =~/^(/d+)/s+(/d+)/s+(/d+)/s+(/d+)/s*/)
{
for($i = 1;$i<=4;$i++)
{
no strict 'refs';
print "$$i/n";
}
use strict 'refs'; #保险起见,用完记得关上。
}
or
if(@list = $var =~/^(/d+)/s+(/d+)/s+(/d+)/s+(/d+)/s*/)
{
print "@list";
}
对于strict的用法,参见perldoc strict