Как я могу сравнить различные элементы массива в Perl?
Я новичок в этой области. Так что будь добр ко мне. У меня есть два массива:
@array1 = ("ABC321", "CDB672", "PLE89",....);
@array2 = ("PLE89", "ABC678", "LMD789",...);
Я хочу сравнить элементы этих двух разных массивов. Но я хочу сопоставлять буквы только с буквами. Так, например, если сравниваются массивы,$array[2]
элемент (PLE) должен совпадать с$array2[0]
(PLE) и аналогично$array1[0]
(ABC) должен совпадать с$array[1]
(АВС). Я могу сделать это по одному, но не могу сравнить все элементы обоих массивов одновременно (то есть зацикливание массивов).
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";
}
Любые предложения о том, как настроить цикл для обоих массивов одновременно?