遍历perl中匹配变量的方法

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