【求助】perl 去掉每行开始的空格

wanggd1983

有一个文件格式如下:
9 131  0.9451
  9 132  0.9481
10  1  0.0001
10  2  0.0031

我想把头上的空格去掉并导入二维数组：

while (<RES>)
{
      chomp($_);
      $_ = s/^\s+//;
      push @list, [ split/\s+/ ];
}

数组导入了，但是某些行开始的空格没有去掉。
      $_ = s/^\s+//;
这个替代错在哪里？

wanggd1983

$_ =~ s/^ +//;

为什么我改正这样就没有问题了呢？

infernor

你说一下你是怎么理解这一句的
$_ = s/^\s+//;

wanggd1983

原帖由 infernor 于 2009-3-24 09:24 发表
你说一下你是怎么理解这一句的
$_ = s/^\s+//;

s///是替换的意思； s/^\s+// 的意思是指把每行开始（^）的 \s+替换成空。

可是为什么 s/^\s+// 不行，s/^ +// 这样就可以了呢？

wanggd1983

原帖由 wanggd1983 于 2009-3-24 09:29 发表


s///是替换的意思； s/^\s+// 的意思是指把每行开始（^）的 \s+替换成空。

可是为什么 s/^\s+// 不行，s/^ +// 这样就可以了呢？

我知道了，关键是 =~ 的问题。

flw

这个帖子是典型的基础不过关导致的疑神疑鬼胡乱猜测。

wanggd1983

呵呵：），继续小骆驼书中~~~~~

xiaozhu8766

回复 5# wanggd1983


    这个是正解！