Perl 字串處理 (頭尾去除空白)

原文 http://www.devdaily.com/perl/perl-trim-function-trim-whitespace-perl

# perl trim function - remove leading and trailing whitespace
sub trim($)
{
  my $string = shift;
  $string =~ s/^\s+//; # 去頭
  $string =~ s/\s+$//; # 去尾
  return $string;
}