Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> 2 массива 
V
    Опции темы
meridian
Дата 23.1.2006, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 8.11.2005

Репутация: нет
Всего: нет



Привет всем,

есть 2 массива
@choices_sources
@choices_target

Нужно склеить 2 массива, но чтобы каждому элемету массива @choices_sources
был найден такой же элемент в массиве @choices_target

сделал вот так, но че то не так, подсобите

Код

foreach $element ( @choices_sources )
{
    @choices = grep { $element } @choices_target;
}


пасиба
PM   Вверх
Kannabismus
Дата 23.1.2006, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Тим Тоуди



Профиль
Группа: Участник
Сообщений: 45
Регистрация: 20.11.2005

Репутация: 1
Всего: 2



Не совсем понятно, что Вы имеете ввиду.
Возможно ошибка в том, что Вы каждый раз перезаписываете заново @choices. Попробуйте так:

Код

foreach $element ( @choices_sources ) {
   push @choices, grep { /$element/ } @choices_target;
}


PM   Вверх
meridian
Дата 23.1.2006, 15:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 8.11.2005

Репутация: нет
Всего: нет



пасиба, конгениально, работает
а еще тогда вопрос,
чтобы названия элементов массива были только русские буквы
PM   Вверх
meridian
Дата 23.1.2006, 15:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 8.11.2005

Репутация: нет
Всего: нет



Вот так получилось
foreach $element ( @choices_sources )
{
if ( $element=~m/[А-Яа-я]/gi )
{
push @choices, grep { /$element/ } @choices_target;
}
}

PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0559 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.