Есть дав массива:
@array1 = (\'1\',\'2\',\'3\',\'4\',\'5\',\'6\');
@array2 = (\'2\',\'4\',\'6\',\'7\',\'8\',\'9\');
Нужно получить элементы первого массива значения элементов которого, нет во втором (\'1\',\'3\',\'5\'). У меня получилось такое:
my @array3;
map {my $i = $_; push @array3, $_ unless grep {/$i/} @array2} @array1;
Но кажется я перемудрил... %)
Может можно проще (только не циклы)?