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

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

while(<FH>)

{

&trim($_);

print "$_n";

}

sub trim

? ? ? ? my $str=shift;

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

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

? ? ? ? print "$strn";

? ? ? ? return $str;

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

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

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

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