Jak mogę porównać różne elementy tablicy w Perlu?
Jestem nowy w tej dziedzinie. Tak uprzejmie idź na mnie. Mam dwie tablice:
@array1 = ("ABC321", "CDB672", "PLE89",....);
@array2 = ("PLE89", "ABC678", "LMD789",...);
Chcę porównać elementy tych dwóch różnych tablic. Ale chcę dopasować tylko litery z literami. Na przykład, jeśli tablice są porównywane,$array[2]
element (PLE) powinien pasować do$array2[0]
(PLE) i podobnie$array1[0]
(ABC) powinien pasować do$array[1]
(ABC). Jestem w stanie to zrobić pojedynczo, ale nie jestem w stanie porównać wszystkich elementów obu tablic w tym samym czasie (czyli pętli tablic).
my ($value1)= ($array[2]=~ /([A-Z]+)[0-9]+/);
print "Value1: $value1 \n";
my ($value2)= ($array[0]=~ /([A-Z]+)[0-9]+/);
print "Value2 : $value2 \n";
if ($value1 eq $value2){
print " length \n";
}
Jakieś sugestie dotyczące konfiguracji pętli dla obu macierzy jednocześnie?