22 1 月 2013

如何用 Perl 比較兩個陣列

作者:Ben哥|發布日期:2009/05/16

有兩個陣列,每個都有兩欄(所以是 A1,B1 和 A2,B2),A 是座標,對應到一個 B 是 value,請計算 B1 和 B2 之間的比例,如果他們相對應的A相同或相近。

#!/usr/bin/perl -w

my @data = qw( 1 3 );
my @data1 = qw( 2 10 );

$coor_diff_allow = 1;

if ( abs( $data[ 0 ] – $data1[ 0 ] )
{
print "\nThe ratio of values is : ", $data[1]/$data1[1] ,"\n";
exit 1;
}
else
{
print "The coordination is not even close.\n";
exit 1;
}