Question

perl 写的下面一段程序，麻烦解释一下~（以前学过C，C++等，所以没有慢慢看perl语法，求解释，谢谢）

sub trim {
my @out = @_;
for (@out) {
s/^\s+//;
s/\s+$//;
}
return wantarray ? @out : $out[0];
}

Answer 1

首先, 这个 sub 是用来去掉每行头和尾的空白字符, 然後,
根据你希望回传的方式, 给你回传数列 (array) 或单一字串
如:
my @this = ( " Hello World!! ", "\they there\t", " Are you alright? " ) ;

my @str = trim ( @this ) ; # 因为左边是 @str, 所以 wantarray 将会为真!
# 这样就给你回传数组 @str = ( "Hello World!!", "hey there", "Are you alright?" )

my $str = trim ( " blah blah blah " ) ; # 因为左边是 $str, 所以 wantarray 将会为假
# $str = 这样就只回传单一字串 "blah blah blah"

my $str = trim ( @this ) ; # 因为左边是 $str, 所以 wantarray 将会为假
# 这样子 $str = "Hello World"

sub trim {
my @out = @_; # 先将参数复制一份, 原因是, 你不能直接改 @_ 里的资料
for (@out) { # 现在开始续笔资料看
s/^\s+//; # 移除字串中"开头"的空白字符
s/\s+$//; # 移除字串中"结尾前"的空白字符
}
return wantarray ? @out : $out[0];
# wantarray 为真时( 看上例 ), 给你回传整个 array
# wantarry不为真时, 就只回传第一笔参数给你, 这里也假设了, 你只有一个参数输入

}

Answer 2

这个就是删除所有参数的首位空格，使用的正则表达式，核心部分是：
s/^\s+//;
s/\s+$//;
^表示开始，$表示结果，\s表示空白

最后返回的时候是个和C语言一样的?:三元运算，根据wantarray的值返回参数数组或者第一个参数

my @out = @_;
定义局部数组，并且值为参数数组

for (@out) {
这个相当于for each，针对数组的每个元素进行循环

追问

谢谢你~