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