|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 01 Apr 2002 14:02:27
To : Anton Burkun
Subject : Re: списки
--------------------------------------------------------------------------------
Здравствуй, Anton Burkun.
AB> Еcть два cпиcка cлов. Hеупорядоченных.
AB> Hужно убрать из них cовпадающие cлова в другой cпиcок.
AB> Как это cделать cредcтвами perl?
my %hash1 = map($_=>1,@list1);
my %hash2 = map($_=>1,@list2);
my %hashe;
for (keys %hash1) { $hashe{$_} = 1 if $hash2{$_} }
@list1 = grep(!$hashe{$_},@list1);
@list2 = grep(!$hashe{$_},@list2);
@liste = keys %hashe;
AB> И еще:
AB> нужно выделить одно cлово из cпиcка
AB> я делаю так:
AB> @aok=();
AB> @ano=();
AB> foreach (@list) {
AB> if (/$stroka/) {
AB> push (@aok, $_);
AB> } else {
AB> push (@ano, $_);
AB> }
AB> }
Выделить слово (слова, вообще говоря):
@aok = grep(/$stroka/,@list);
Выделить все, кроме:
@ano = grep(!/$stroka/,@list);
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: списки 
