BugTraq.Ru: форум / programming / [Perl] вычитание массивов

информационная безопасность
без паники и всерьез

подробно о проекте

Анализ криптографических сетевых...

Модель надежности двухузлового...

Специальные марковские модели надежности...

Очередное исследование 19 миллиардов...

Оптимизация ввода-вывода как инструмент...

Зловреды выбирают Lisp и Delphi

bugtraq.ru / форум / programming

Имя

Пароль

если вы видите этот текст, отключите в настройках форума использование JavaScript


ФОРУМ


	все доски
	FAQ
	IRC
	новые сообщения

	site updates
	guestbook
	beginners
	sysadmin
	programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap

регистрация

Легенда:

новое сообщение

закрытая нитка

новое сообщение

в закрытой нитке

старое сообщение

Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
Новичкам также крайне полезно ознакомиться с данным документом.

[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(). еще не ясно - необходимо ли проверять элементы на уникальность.

Page build time: 0 s

Design: Vadim Derkach