मैं पर्ल में सरणी की तुलना कैसे कर सकता हूं?

Question

मेरे पास दो सरणी हैं, @a और @b। मैं दो सरणी के तत्वों के बीच तुलना करना चाहता हूं।

my @a = qw"abc def efg ghy klm ghn"; 
my @b = qw"def ghy jgk lom com klm"; 

यदि कोई तत्व मिलान करता है तो ध्वज सेट करता है। क्या ऐसा करने का कोई आसान तरीका है?

Answer 1

पहले, अपने 2 सरणियों सही ढंग से लिखे जाने की जरूरत है।

@a = ("abc","def","efg","ghy","klm","ghn"); 
@b = ("def","efg","ghy","klm","ghn","klm"); 

सभी का दूसरा, मनमाने ढंग से सरणियों (जैसे सरणियों जिसका तत्वों अन्य डेटा संरचना के लिए संदर्भ हो सकता है) आप Data::Compare उपयोग कर सकते हैं के लिए।

उन तत्वों के लिए जिनके तत्व स्केलर हैं, आप List::MoreUtilspairwise BLOCK ARRAY1 ARRAY2 का उपयोग करके तुलना कर सकते हैं, जहां ब्लॉक आपकी तुलना subroutine है। आप pairwise का अनुकरण कर सकते हैं के माध्यम से (यदि आप सूची :: MoreUtils पहुँच नहीं है):

if (@a != @b) { 
    $equals = 0; 
} else { 
    $equals = 1; 
    foreach (my $i = 0; $i < @a; $i++) { 
     # Ideally, check for undef/value comparison here as well 
     if ($a[$i] != $b[$i]) { # use "ne" if elements are strings, not numbers 
           # Or you can use generic sub comparing 2 values 
      $equals = 0; 
      last; 
     } 
    } 
} 

पी.एस. मुझे यकीन नहीं है लेकिन List::Compare हमेशा सूचियों को सॉर्ट कर सकता है। मुझे यकीन नहीं है कि यह जोड़ों की तुलना कर सकता है।

Answer 2

List::Compare

सभी की

if (scalar List::Compare->new(\@a, \@b)->get_intersection) { 
    … 
} 

Answer 3

my @a = qw' abc def efg ghy klm ghn '; 
my @b = qw' def ghy jgk lom com klm '; 

my $flag; 

foreach my $item(@a) { 
    $flag = @b~~$item ? 0 : 1; 
    last if !$flag; 
} 

ध्यान दें कि आप Perl 5.10, या बाद में की आवश्यकता होगी, smart match operator (~~) का उपयोग करें।

Answer 4

आवश्यकता है कि 'अगर किसी भी तत्व मैचों', सेट के चौराहे का उपयोग से:

sub set{ 
    my %set = map { $_, undef }, @_; 
    return sort keys %set; 
} 
sub compare{ 
    my ($listA,$listB) = @_; 
    return ((set(@$listA)-set(@$listB)) > 0) 
} 

Answer 5

यह एक तरीका है:

use warnings; 
use strict; 
my @a = split /,/, "abc,def,efg,ghy,klm,ghn"; 
my @b = split /,/, "def,ghy,jgk,lom,com,klm"; 
my $flag = 0; 
my %a; 
@a{@a} = (1) x @a; 
for (@b) { 
    if ($a{$_}) { 
     $flag = 1; 
     last; 
    } 
} 
print "$flag\n"; 

Answer 6

ब्रूट बल छोटे के लिए चाल करना चाहिए n:

my $flag = 0; 
foreach my $i (@a) { 
    foreach my $k (@b) { 
     if ($i eq $k) { 
      $flag = 1; 
      last; 
     } 
    } 
} 

ला के लिए

my $flag = 0; 
my %aa  =(); 
    $aa{$_} = 1 foreach (@a); 
foreach my $i (@b) { 
    if ($aa{$i}) { 
     $flag = 1; 
     last; 
    } 
} 

कहाँ एक बड़ी n|@a| + |@b| > ~1000

Answer 7

चेक आइटम है एक दूसरे को काटना समारोह है, जो आइटम है कि दोनों सूचियों में मौजूद हैं की एक सूची प्रदान करेगा बनाने के लिए: rge n, एक हैश तालिका का उपयोग करें। फिर आपका वापसी मूल्य छेड़छाड़ की गई सूची में वस्तुओं की संख्या पर निर्भर है।

आप आसानी से वेब पर पर्ल के लिए छेड़छाड़ का सर्वोत्तम कार्यान्वयन कर सकते हैं। मुझे कुछ साल पहले इसकी तलाश याद है।

यहाँ मैं क्या मिला है:

 

my @array1 = (1, 2, 3); 
my @array2 = (2, 3, 4); 
my %original =(); 
my @isect =(); 

map { $original{$_} = 1 } @array1; 
@isect = grep { $original{$_} } @array2; 

Answer 8

IMHO, आप List::MoreUtils::pairwise उपयोग करना चाहिए। हालांकि, अगर किसी कारण से आप नहीं कर सकते हैं, तो निम्न उप प्रत्येक इंडेक्स के लिए 1 लौटाएगा जहां पहले सरणी में मान दूसरे सरणी में मान के बराबर होता है।आप जितनी चाहें उतनी विधि को सामान्यीकृत कर सकते हैं और यदि आप चाहें तो अपना खुद का तुलनित्र पास कर सकते हैं, लेकिन उस समय, बस List::MoreUtils इंस्टॉल करना आपके समय का अधिक उत्पादक उपयोग होगा।

use strict; use warnings; 

my @a = qw(abc def ghi jkl); 
my @b = qw(abc dgh dlkfj jkl kjj lkm); 
my $map = which_ones_equal(\@a, \@b); 

print join(', ', @$map), "\n"; 

sub which_ones_equal { 
    my ($x, $y, $compare) = @_; 
    my $last = $#$x > $#$y ? $#$x : $#$y; 
    no warnings 'uninitialized'; 
    return [ map { 0 + ($x->[$_] eq $y->[$_]) } $[ .. $last ]; 
} 

Answer 9

यह पर्ल है। 'स्पष्ट' समाधान:

my @a = qw"abc def efg ghy klm ghn"; 
my @b = qw"def ghy jgk lom com klm"; 
print "arrays equal\n" 
    if @a == @b and join("\0", @a) eq join("\0", @b); 

दिया "\ 0" @a में नहीं किया जा रहा।

लेकिन यह पुष्टि करने के लिए धन्यवाद कि आपके खुद को रोल करने से कोई अन्य सामान्य समाधान नहीं है।

Answer 10

my @a1 = qw|a b c d|; 
my @a2 = qw|b c d e|; 

for my $i (0..$#a1) { 
    say "element $i of array 1 was not found in array 2" 
     unless grep {$_ eq $a1[$i]} @a2 
}