|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anton Burkun 2:461/250.2 05 Apr 2002 20:15:16
To : Artem Chuprina
Subject : Re^2: списки
--------------------------------------------------------------------------------
Как-то 01.04.02
писал(а) Artem Chuprina к Anton Burkun
AB>> Еcть два cпиcка cлов. Hеупорядоченных.
AB>> Hужно убрать из них cовпадающие cлова в другой cпиcок.
AB>> Как это cделать cредcтвами perl?
AC> my %hash1 = map($_=>1,@list1);
AC> my %hash2 = map($_=>1,@list2);
У меня заработало после того, как скобочки поставил
my %hash1 = map(($_=>1),@list1);
my %hash2 = map(($_=>1),@list2);
AC> my %hashe;
AC> for (keys %hash1) { $hashe{$_} = 1 if $hash2{$_} }
AC> @list1 = grep(!$hashe{$_},@list1);
AC> @list2 = grep(!$hashe{$_},@list2);
AC> @liste = keys %hashe;
Спасибо, хороший метод!
ЧаФ! Антон aka SmYle.
--- FastEcho 1.45
* Origin: Дом на солнечном острове (2:461/250.2)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re^2: списки 
