perl的子程序sub返回值不改变的解决方法

用子程序去掉从文件读取的每行的首尾空格，sub函数print的值已经没有空格了，但是返回值打印出来还是有空格。代码如下：

while(<FH>)

{

&trim($_);

print "$_\n";

}

sub trim

{

        my $str=shift;

        $str=~s/^\s*//g;

        $str=~s/\s*$//g;

        print "$str\n";

        return $str;

}

乍一看，程序没有一点问题。可是输出结果总不能去掉空格。

解决方法：$_=&trim($_);

搞定了！原因是： trim($_)  return 了却没有人接收。

在perl中子程序的返回结果总需要有人来接收的！