perl杂项

hbf

　　不好分类的暂时都放到这里

判断两个数组所有元素是否相同
　　直接比较数组名字即可，不必逐个元素比较。



my @a = (1..10) ;
my @b = (1..10) ;
if (@a == @b) {
    print "equal\n" ; #equal
}
　　但需要注意一点，如果是数组的引用，那么就不能直接比较了。必须先解引用再比较。



my $aref1 = [1..10] ;
my $aref2 = [1..10] ;
if ($aref1 == $aref2) {
    print "equal\n" # not equal
}
　　先解引用再比较



my $aref1 = [1..10] ;
my $aref2 = [1..10] ;
if (@$aref1 == @$aref2) {
    print "equal\n" ; # equal
}
打印数组
　　最笨的方法，多半来自其他语言比较熟悉的coder们。其中$#numbers表示数组numbers的最后一个元素的下标。在这里时9，所有要使用<=，而不是<，否则会漏掉最后一个元素。



my @numbers = (1..10);
for (my $i =0; $i <= $#numbers; ++$i) {        
    print $numbers[$i], "\n";
}
　　

　　其实普通数组直接打印即可，无需遍历。



my @a = (1..10) ;
print @a ;
　　需要注意，定义数组和哈希都使用圆括弧()，定义匿名数组用方括弧[]，定义匿名哈希用花括弧{}。如果不小心把()写成了[]，那么结果可能很奇怪，比如



my @b = [1..10] ;
print @b ; #输出 ARRAY(0x248bec)
　　为什么呢？因为=右边是[]，实际上定义了一个匿名数组，但是=左边并非引用变量（引用变量需以$开头），而是数组，这就导致了将匿名数组的引用放入了数组b中，也就是说数组b只有一个元素，这个元素是指向匿名数组[1..10]的引用，所以下面两句产生同样的结果。



print @b ;
print $b[0] ;
　　一个小结论：当数组只有一个元素的时候。print @array和print $array[0]的结果是相同的。有了这个结论，就不难想通上面两句为什么相同了。

判断某元素是否在数组中
　　方法一
　　直接遍历数组，逐个元素判断。
　　方法二
　　是用grep



my @Colors= (
        'Red',
        'Green',
        'Yellow',
    );
    if (grep {$_ eq 'Red'} @Colors) {
        print "Exists!\n";
    }
}
　　方法三
　　如果是perl 5.10.0以上，可以使用智能匹配，如下。



my @array = (1, 2, 3, 4, 5) ;
my $var = 2 ;
if( $var ~~ @array) {
    print "$var exists in (@array)\n" ;
}
定义空列表
　　定义空列表用(),而不是undef
　　下面代码输出1，这种写法表示列表的第一个元素是undef.严格的说并不是空列表。



my @list = undef;
push @list, 1 ;
push @list, 2 ;
print $list[1], "\n" ; # Output 1
　　下面代码输出2



my @list = ();
push @list, 1 ;
push @list, 2 ;
print $list[1], "\n" ; # Output 2
unless(xxx) 与 unless defined(xxx)
　　这两者是不一样的，前者表示xxx为假的时候执行代码，而后者表示xxx未定义时执行代码，也就是只有当xxx==undef时，后者才会执行，而前者以下几种情况都会执行的。
　　xxx==undef
　　xxx=0
　　xxx='0'
　　xxx=''
　　xxx=""

将数组元素分组
　　有一个数组含100个元素，请将每10个元素分为一组，分成10组，保存到一个新的数组中。



my @a = (1..100);
my @b = map { join '',@a[$_..$_+9] } map { $_ * 10 } 0..9;
　　或者



my @a = (1..100);
my @b = map { join '',@a[$_..$_+9] } map { $_ * 10 } 0..9;
　　来自CU


　　==