perl 判斷陣列相等的三種方法

1.陣列相等，陣列成員相同，位置也相同

一般的如果判斷@array1 等於 @array2

a.陣列長度相同 $#array1=$#array2, 比較陣列長度，不能使用length函式，length只適用string型別

陣列引數傳遞，不能直接傳遞

sub

compare()}}
else
if( $flag==1
) 
else
}

my @a=(1,2,3,4,5);

my @b=(1,2,3,4,5);

&compare(\@a,\@b);

輸出：two arrays are  equal

my @a=(1,2,3,4,5);

my @b=(1,2,3,4,5,6);

&compare(\@a,\@b);

輸出：two arrays are not equal

2.以上**可以簡化

使用智慧型匹配 ~~

注意 ：智慧型匹配是從5.10.0開始的

所以要require 5.10.0

@a ~~ @b 兩個陣列相同

$x ~~ @a   x在陣列a中

$x ~~%hash  相當於 exists

hash

;

#

/usr/bin/perl -w 
usestrict;
require
5.10.0
;sub
compare()
else
}

3.使用 模組

#

!/usr/bin/perl
usestrict;
use array::compare;
my@array1=1..10;my
@array2=1..11;my
@array3=1..10
;print
"compare array1 and array2\n";
&check(\@array1,\@array2
);print
"compare array1 and array3\n";
&check(\@array1,\@array3
);sub
check
else
}

執行結果：

d:\>perl suzu.pl

compare array1 and array2

the two arrays not the same

compare array1 and array3

the two arrays are the same

jquery判斷checked的三種方法

jquery判斷checked的三種方法 attr checked 看版本1.6 返回 checked 或 undefined 1.5 返回 true或false prop checked 16 true false is checked 所有版本 true false 別忘記冒號哦 jquery賦...

回文數的判斷 三種方法

最近做了一點關於回文數的總結。首先先寫一篇關於回文數判斷的幾種方法。回文數的概念 即是給定乙個數，這個數順讀和逆讀都是一樣的。例如 121，1221是回文數，123，1231不是回文數。方法一 試用情境，處理小數字。使用數學方法。輸入的回文數x的範圍為x 10 9,int儲存，或者x 10 18,l...

判斷物件型別的三種方法

a instanceof b 判斷a物件是不是b構造出來的 判斷a物件的原型鏈上有木有b function person var person new person var obj console.log person instanceof person true console.log perso...