核心语句:
$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