Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Perl regexp - можно ли возвратить значение m/ или s/ ? / 6 сообщений из 6, страница 1 из 1
07.06.2016, 22:29
    #39252359
Alibek B
Alibek B
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl regexp - можно ли возвратить значение m/ или s/ ?
Нужно немного "причесать" входные данные перед последующей обработкой.
Делаю так:
Код: php
1.
2.
3.
4.
5.
foreach my $row ($te->rows)
{
	$row->[$_] =~ s/\&nbsp//g foreach (0..$#$row);
	my $rs = {map {$col->[$_] => $row->[$_]} (0..$#$row)};
...



А можно ли сделать эту обработку сразу?
Что-то типа такого:
Код: php
1.
my $rs = {map {$col->[$_] => ($row->[$_] =~ s/\&nbsp//g} (0..$#$row)};


Только данный код меняет значение исходного массива $row, а мне нужно, чтобы измененное значение попало в $rs.
________________________
Мы смотрим с оптимизмом...
...в оптический прицел.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2016, 11:32
    #39252622
volodin661
volodin661
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl regexp - можно ли возвратить значение m/ или s/ ?
А можно ли сделать эту обработку сразу?
oh, yes,
улучшайзинг кода до степени вызывания рвотного рефлекса
у случайно в него заглянувшего.

рекомендовано к прочтению:
Damian Conway «Perl Best Practices»

Код: php
1.
2.
3.
4.
5.
6.
7.
8.
9.
use List::MoreUtils('zip');

for my $row ($te->rows) {

    s/ //g for @$row;
    $rs = { zip @$col,@$row };
    ...

}
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2016, 14:01
    #39252788
Alibek B
Alibek B
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl regexp - можно ли возвратить значение m/ или s/ ?
Да, выглядит симпатично.
Но у меня вопрос немного другой.
Я хочу вообще избавиться от циклов, чтобы замену по регулярному шаблону можно было делать внутри map.
То есть можно ли сделать инлайновый вариант такого:
Код: php
1.
$rs = sub { my $v = shift; $v =~ s/abc/xyz/g; return; };  my $rs = {map {$_ => &$r($_)} (@$data)};
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2016, 19:33
    #39253139
volodin661
volodin661
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl regexp - можно ли возвратить значение m/ или s/ ?
Коль душа твоя тянется к эстетике кода,
оборотись лицом к Perl6
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2016, 20:13
    #39253151
Alibek B
Alibek B
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl regexp - можно ли возвратить значение m/ или s/ ?
Не холивара ради, а интереса для.
А почему не Python?
Perl6 ведь практически новый язык, разбираться с ним все равно нужно будет с нуля.
А у питона вроде бы коммунити более активное.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2016, 10:26
    #39253341
volodin661
volodin661
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl regexp - можно ли возвратить значение m/ или s/ ?
я не за величину разных коммюнитей говорил,
а исключительно за эстетику новейшего
языка.

«разбираться с ним все равно нужно будет с нуля.»

судя по приведённым постам, на шарике Perl5 ты оторвался
от поверхности и завис совсем невысоко, поэтому нестрашно )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Perl regexp - можно ли возвратить значение m/ или s/ ? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]