On Jan 2, John W. Krahn said:
>> I want to compare between two arrays.
>> $a = (join " ",@a);
>> $b = (join " ",@b);
>> if ($b eq $a) { print "equal";}
>
>Well you _can_ do this in one line. :-)
>
>$ perl -le'@a = qw(one
Amit Nisim wrote:
>
> Hi All,
Hello,
> I want to compare between two arrays.
> How can I do it ?
>
> One way I know is :
>
> $a = (join " ",@a);
> $b = (join " ",@b);
> if ($b eq $a) { print "equal";}
Well you _can_ do this in one
>I want to compare between two arrays.
This is what you want?
$fail = 0;
if (@a!=@b) {
$fail = 1;
} else {
for ( $i=0; $i<@a; $i++ ) {
if ($a[$i]==$b[$i]) { next; }
else { $fail = 1; last; }
}
}
if ($fail)
{ print "not equal\n"; }
else
; 1 ? \@intersection
: \@difference }, $element;
}
mike
-Original Message-
From: Nisim, Amit [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 02, 2002 2:07 PM
To: [EMAIL PROTECTED]
Subject: compare between two arrays
Hi All,
I want to compare between two arrays.
How can I do it ?
Hi All,
I want to compare between two arrays.
How can I do it ?
One way I know is :
$a = (join " ",@a);
$b = (join " ",@b);
if ($b eq $a) { print "equal";}
I am looking for better way.
thanks
amit
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For addit
