Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] вычитание массивов 31.07.03 11:09
Автор: Cyber_Onix Статус: Незарегистрированный пользователь
|
Привет!
Подскажите, как можно в Перле вычесть массив из массива?
Имеется два массива, больший и меньший. Нужно найти все записи в большем массиве, которые отсутствуют в меньшем.
|
|
[Perl] вычитание массивов 31.07.03 13:30
Автор: Eugene Статус: Незарегистрированный пользователь
|
как вариант
#!/usr/bin/perl
use strict;
my @bigger = ('a','o','d','b','c','r');
my @smaller = ('a','b','c');
my @rezult = ();
my $item;
foreach $item (@bigger) {
if (not item_in_array($item,\@smaller)) { push @rezult, $item; }
}
print STDOUT "Rezult: ".join(':',@rezult)."\n";
sub item_in_array {
my $item = $_[0];
my $array = $_[1];
my $i;
foreach $i (@{$array}) {
if ($i eq $item) { return 1;}
}
return 0;
}
хотя грамотней было бы сделать с sort(). еще не ясно - необходимо ли проверять элементы на уникальность.
|
|
|