Perl基本技二：吹姆 —— 去掉前后空格
核心语句：$t =~ s/^(\s+)|(\s+)$//g;
例子：
#!usr/bin/perlsub AUX_trim{my $t;$t = $_;if($t){$t =~ s/^(\s+)|(\s+)$//g;}return $t;exit;}my @test = ( vv , kk);print "_".AUX_trim(@test)."_";
结果：
http://my.csdn.net/uploads/201206/14/1339642580_5380.JPG
PS: 转载请注明出处，作者：No. Liu
页:
[1]