Перл в журнале неисправностей (комментарий)

Как-то я перловке не доверяю Ж)

а каких-нибудь ещё (\w+)[ -]\1 кроме чау-чау не помнишь?

Перл для самых маленьких

лучше ответьте на другой вопрос есть стока $str=«*text»; и массив строк @arr=(«something», «interesting_text», «boring text», «somewhere»);

как из строки $str и массива @arr получить массив @arr2 = («interesting_text», «boring text»);

ну или скажите где что про это читать и как делать (foreach или какой-нибудь однострочник)

//перла не знаю :(

В перле нет слайсов?

вроде там было грустная-грустная а вот больше не помню, вспомнил бы еще или хотябы где видел (явно ведь не на форуме о собаках) - нагуглил бы сам.

тфу блин, похоже это не стишок а херня какаято:

Давным-давно к юго-юго-западу от Баден-Бадена жила-была большая-большая и одинокая-одинокая собака чау-чау. Темными-темными ночами она долго-долго и много-много слушала группу Дюран-Дюран... Правда-правда!

perl -e '$str=«text»; @arr=(«something», «interesting_text», «boring text», «somewhere»); print map { $_ if $_ =~ «^.*$str»} @arr';

Ура! спасибо!

я кажется написал, что не знаю перла

я кажется написал, что не знаю перла

В таком случае пути два:

1. Не пиши на нем.

2. Выучи его.

я с тобой согласен в общем случае, но здесь надо добавить пару простых вещей в существующий код, а не быдлокодить что-то масштабное с нуля, поэтому проще спросить

В таком случае я гуглю необходимые мне языковые конструкции, примеры того же foreach. Делаю тестовый файл, играюсь, проверяю, эмулирую то что мне надо, потом добавляю в код.

По работе иногда имею дело с экзотическими языками...

Да и вообще все языки похожие (декларативные, императивные, функциональные...).

угу. и без примера soomrack я бы и делал через foreach и вручную пушил бы во второй массив. иногда лучше спросить

Всё гораздо проще, чем описал господин soomrack

my @words =  ( "something", "interesting_text", "boring text", "somewhere" );
my @match = grep { m/text$/ } @words;

без разницы как писать. лишь бы было понятно. grep, кстати, тут будет внешней командой, со всеми возможными «сюрпризами» в плане кодировок.

В каком смысле «внешней» ?

Это еще почему? И если все-таки да, то почему perldoc -f grep об этом молчит?

А, не все нормально. Будет использоваться grep perl'а.

а еще на перле можно писать нормально, и тогда учить его не придется))

http://stackoverflow.com/questions/6162484/why-does-modern-perl-avoid-utf-8-b...

Если это можно не учить, то я не хочу знать о языках, которые надо учить. Да, ленивые могут грепнуть до boilerplate.