Perl基本技二：吹姆 —— 去掉前后空格

核心语句：

$t =~ s/^(\s+)|(\s+)$//g;

例子：

#!usr/bin/perl

sub AUX_trim{
 my $t;
 $t = $_[0];
 if($t){
  $t =~ s/^(\s+)|(\s+)$//g;
 }
 
 return $t;
 exit;
}

my @test = ( vv , kk);
print "_".AUX_trim(@test)."_";

结果：

PS: 转载请注明出处，作者：No. Liu