VPF::Поиск и замена в хеше - Форум программистов

Igоr

Дата 8.12.2005, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Приветствую!
Подскажите плз. Есть хеш например
%H = (
name => 'fedor',
email => 'blabla',
Country => 'Russia',
nickname => 'Fedot',
pro_name => '',
.....
)

мне нужно во все ячейки ключи которых содержат "name" выставить значение 'Sergey' например...
т.е. в name, nickname, pro_name. Пробовал так

Код


while(my ($k,$v)=each(%H) {
if ($k = ~ m/name/isg){
.....}
}

но ничего не получается... как сделать подскажите плз.

ShulgaDenis

Дата 8.12.2005, 11:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

perldoc -f exists

Igоr

Дата 8.12.2005, 13:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

ну как юзать existsесли я знаю какие ключи там должны быть я знаю smile

но никак не реализовал его для поиска совпадений в ключах... smile

Kiber_rat

Дата 8.12.2005, 14:49 (ссылка)

(нет голосов)

Загрузка ...

MACMANIAC

Профиль
Группа: Участник
Сообщений: 276
Регистрация: 18.4.2002
Где: Ashdod, Israel

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

Код

for (grep {/name/} keys %H) {
    $H{$_} = 'sergey';
}

или даже так

Код

$H{$_} = 'sergey' for grep {/name/} keys %H;

Это сообщение отредактировал(а) Kiber_rat - 8.12.2005, 14:50

--------------------

Best regards!
@..@_____Ku6ep
=*=______\______KPbIC

Код

print join "",map{chr}(split/(\w{2})/,hex(int(2175.57302796298**2)))

Igоr

Дата 8.12.2005, 16:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

2 Kiber_rat
Спасибо большое ;)!

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