VPF::исключение части строки - Форум программистов

meridian

Дата 27.1.2006, 18:34 (ссылка)

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

Загрузка ...

Шустрый

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

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

Привет всем
Есть массив @choices
состоит из значений типа XX.XX.XXX.X_XXXX
кол-во XX может меняться

нужно выбрость значение после 3-й точки до знака _

что использовать ? substr или s///

пасиба

meridian

Дата 27.1.2006, 19:15 (ссылка)

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

Загрузка ...

Шустрый

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

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

Удалось придумать только сие

Код


foreach $elem ( @choices )
{
  push( @new_choices, substr( $elem, 0, rindex( $elem, ".") ) . substr( $elem, index( $elem, "_") ) );
}

korob2001

Дата 28.1.2006, 00:11 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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

Код


$_ = join(".", (split(/\./))[0..2]) for @choices;

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

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Kannabismus

Дата 28.1.2006, 01:44 (ссылка)

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

Загрузка ...

Тим Тоуди

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

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

Код


$elem=~s/^((?:.+?\.){3}).+?_(.+)$/$1$2/

meridian

Дата 28.1.2006, 12:30 (ссылка)

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

Загрузка ...

Шустрый

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

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

всем респект

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