Re: comparing two array

If what you want is to see if a scalar is in the array, you can try grep:

print +(grep {$_ eq $elem} @array) ? "Yes" : "No";
[download]

my %h = map { $_ => 1 } @array;
print defined $h{$elem} ? "Yes" : "No";
[download]

Update: Changed the grep regexp by eq (see the comment below from davorg)

citromatik

Comment on Re: comparing two array Select or Download Code

Replies are listed 'Best First'.
Re^2: comparing two array by davorg (Chancellor) on Jun 17, 2009 at 13:29 UTC
`print +(grep {/$elem/} @array) ? "Yes" : "No";` `$ cat ./arr #!/usr/bin/perl my @arr = (100 .. 110); my $elem = 11; print +(grep { /$elem/ } @arr) ? 'Yes' : 'No'; $ ./arr Yes$` [download] Hmm... You might want to reconsider your idea of equality :-) -- See the Copyright notice on my home node. Perl training courses	[reply] [d/l]
Re^2: comparing two array by Crian (Curate) on Jun 17, 2009 at 12:37 UTC
Shouldn't it be `print exists $h{$elem} ? "Yes" : "No";` [download] the second example?	[reply] [d/l]
Re^3: comparing two array by JavaFan (Canon) on Jun 17, 2009 at 12:42 UTC
Considering all the values in `%h` are `1`, it doesn't make any difference whether you use `exists $h{$elem}`, `defined $h{$elem}` or `$h{$elem}`.	[reply] [d/l] [select]
Re^3: comparing two array by citromatik (Curate) on Jun 17, 2009 at 12:54 UTC
In this case... `print defined $h{$elem} ? "Yes" : "No"; print exists $h{$elem} ? "Yes" : "No"; print $h{$elem} ? "Yes" : "No";` [download] Are all equivalent (give the same result). `exists` returns true if the specified element in the hash has ever been initialized, even if its current value is `undefined`. In this case, all elements has been initialized to `1`. If you `undef`ine one element of the hash, for example `undef $h{$elem}`, then `$h{$elem}` still exists, but its value is `undef` citromatik	[reply] [d/l] [select]