2011年8月1日 星期一

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;
}

沒有留言:

張貼留言