[Perl]杂谈

jqkyp

版权声明：可以任意转载，但转载时必须标明原作者charlee、原始链接http://tech.idv2.com/2008/09/02/perl-misc/以及本声明。


开发中遇到的几点问题：

1. split的分隔符不能使用字符串，只能使用正则表达式。

用perl -de 1; 启动后做实验：

DB<1> x split '//', 'a//b//c'
Trailing / in regex m/// at (eval 13)[/usr/lib/perl5/5.8/perl5db.pl:628] line 2.
DB<2> x split '////', 'a//b//c'
0 'a'
1 'b'
2 'c'
DB<3> x split ////, 'a//b//c'
0 'a'
1 'b'
2 'c'试图指定分隔符为反斜杠，但 '//' 出错，原因是perl会将第一个参数（字符串）的值作为正则表达式来解释，结果 '//' 就变成了 /// ，显然这是错误的正则表达式。正确的写法是 '////' 被解释成 ////，或者直接写 ////。

读了bkブログ的文章后发现， perl的split函数是忽略末尾的空元素的，想让它不忽略，必须加个参数-1：

DB<38> x split /,/, 'a,b,,c,,'
0 'a'
1 'b'
2 ''
3 'c'
DB<39> x split /,/, 'a,b,,c,,',-1
0 'a'
1 'b'
2 ''
3 'c'
4 ''
5 ''更多内容请点开看。

2. 如何计算多个数组中唯一元素的数目？

如，三个数组引用 $a、$b、$c，要计算三个数组中不重复的元素有多少个。用foreach挨个去数，显然不是什么明智的办法。

print scalar keys %{{ map { $_ => 1 } (@$a, @$b, @$c) }};3. 类型的相互转化

上例中可以看到使用 %{{ @a }} 的方式将数组转换成了散列。不难明白，@a是数组，{ @a } 就成了散列的引用，再加上 % 变成 %{{@a}}，就是散列了。

4. 函数调用并非传值也非传引用

许多人认为perl函数调用时会像C语言那样传值调用，想直接修改参数，就必须传引用才行。其实并非如此。

#!/usr/bin/perl

sub foo {
print '$_[0] = ', /$_[0], "/n";
my $str = shift;
print '$str = ', /$str, "/n";
}

$a = "hello";
print '$a = ', /$a, "/n";
foo($a);运行结果：

$a = SCALAR(0x1002e994)
$_[0] = SCALAR(0x1002e994)
$str = SCALAR(0x1002e940)这就证明，函数内被传递的参数$_[0]与调用时的$a是同一个变量（不仅是相同的变量，而且是同一变量）。此时修改$_[0]就等于在修改$a。但我们一般都会在函数开头写上 $str = shift，将参数保存到$str中，就是在这时，$a和$str就不再是同一变量，对$str的修改也不会影响到$a了。

根据这一点，就可以从函数中操作调用时的参数，而不用传引用。