这可在
@L_
403_0@与修剪
方法:
编辑注意:String :: Util不是一个核心模块,但你可以从CPAN与[sudo] cpan String :: Util安装。
use String::Util 'trim';
my $str = " hello ";
$str = trim($str);
print "string is now: '$str'\n";
打印:
string is now ‘hello’
但是它很容易做到自己:
$str =~ s/^\s+//;
$str =~ s/\s+$//;