VPF::Обработка строки - Форум программистов

rcdimon

Дата 25.1.2009, 01:50 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

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

Всем привет.

Есть строка, которая может быть либо просто числом, либо такого вида- "1,12,344,123,44,55"
Надо это число или каждое из этих чисел пропусить через процедуру и вывести строкой.

Пример

Код


sub add {
  my $a = shift;
  return $a+1;
}

my $s = '1,2,3,4,5,6';

print $s =~ m/,/ ?
     join(',', 
        add($_) foreach(
          split(/,/, $s)
        )
     ) : add($s)

Что-то типа этого, только чтобы работало )
Уверен, что как-то можно записать это так, одной строкой....

unicross

Дата 25.1.2009, 02:07 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


sub add {
  my $a = shift;
  return $a+1;
}

my $s = '1,2,3,4,5,6';
print join(',', map(&add($_), split(/,/, $s)));

Или

Код


my $s = '1,2,3,4,5,6';
print join(',', map($_+1, split(/,/, $s)));

Это сообщение отредактировал(а) unicross - 25.1.2009, 02:09

tolkien

Дата 25.1.2009, 04:43 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(rcdimon @ 25.1.2009, 01:50)

...
Уверен, что как-то можно записать это так, одной строкой....

это у вас в ТЗ такое жесткое условие поставлено?

amg

Дата 25.1.2009, 08:47 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

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

Еще вариант:
$s = "1,12,344,123,44,55";
$s =~ s/\d+/add($&)/eg;
print "$s\n";

nitr

Дата 25.1.2009, 12:41 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

Понравился вариант от amg, сам только повторюсь ;) А в примере unicross можно просто убрать столько скобочек.

Цитата(rcdimon @ 25.1.2009, 01:50

)

$s =~ m/,/ ?

эта проверка лишняя, за вас всё сделает split.

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

I love ArchLinux

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