in reply to Re^2: Search in array from match in another array, print once only.
in thread Search in array from match in another array, print once only.
Track counts instead of assign 1 to hash:
use strict ; use warnings ; my @array = ( "54321", "54312", "5999", "54352", "12345" ) ; my @original = ( "12345" , "54321" , "12345" ) ; my %count ; map( { $count{ $_ }++ } @original ); print "". ( ( $count{ $_ } ) ? "$_ Found $count{ $_ } times.\n" : "$_ +Not Found\n" ) foreach ( @array ) ;
Output:
54321 Found 1 times. 54312 Not Found 5999 Not Found 54352 Not Found 12345 Found 2 times.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: Search in array from match in another array, print once only.
by satans-nightmare (Initiate) on Feb 22, 2013 at 11:50 UTC | |
Re^4: Search in array from match in another array, print once only.
by garikapati (Initiate) on Feb 22, 2013 at 11:13 UTC |
In Section
Seekers of Perl Wisdom