perl中一些问题

开发中遇到的几点问题：

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了。

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