Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: Comparing arrays in perl.

by prasadbabu (Prior)
on Aug 06, 2008 at 05:43 UTC ( #702558=note: print w/ replies, xml ) Need Help??


in reply to Comparing arrays in perl.

Hi anand_perl,

Here is one way to do it. Also you can use some array modules to accomplish the same.

use strict; use warnings; my @arr1 = ("one","two","three","four","five"); my @arr2 = ("one","a","b","one","c","d","e","two","f","g","h","two","i +","j","two"); my @arr3; my %hash; for my $arr2 (@arr2){ if (grep $arr2, @arr1){ $hash{$arr2}++; }else{ push (@arr3, $arr2); } } push (@arr3, keys %hash); print "@arr3"; output: ------- e a d two j c h one g b f i

Prasad


Comment on Re: Comparing arrays in perl.
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://702558]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2014-07-12 22:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (241 votes), past polls