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中子程式的返回結果總需要有人來接收的！