Что то по этому треду незаметно.

фу завоняло как
в словарь посмотри что-ли

А че вот по этому коду свое авторитетное замечание не выблевал? Это чем-то отличается? Perl. Найти элемент массива и заменить его значение. (комментарий)

Тебе того же искрене желаю, в раздел о правилах пунктуации.

Кстати, даже тут ты умудрился обосраться, грамотей

Щёки у мадемуазель Жорж белые от пудры, и ничего незаметно. Но уши загорелись, и красные пятна на плечах, на шее. Е. И. Замятин, «Детская», 1920 г. (цитата из Национального корпуса русского языка

https://ru.wiktionary.org/wiki/незаметно

Perl. Найти элемент массива и заменить его значение. (комментарий)

Вот, учись, сынок, как люди пишут на перле. Я то на нем не пишу, есличо, вообще не знаю. И не забудь сказать, что я есличо неправильно написал. слитно, с ошибками, etc

Кстати, даже тут ты умудрился обосраться, грамотей

ты даже не в состоянии понять, что я не имел ввиду твою речь
едрить_ты_простофиля.жпг

Вот

можешь себе в задницу засунуть этот никому ненужный кусок

Я то на нем не пишу, есличо, вообще не знаю

а, так ты еще и делитель на ноль. Я бы мог тебе объяснить почему «кусок» и почему ты не прав, но ты же сейчас начнёшь кукарекать

в словарь посмотри

я не имел ввиду твою речь

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

можешь себе в задницу засунуть этот никому ненужный кусок

как раз для тебя хорошо подойдет в качестве анестезии.

$" (the list separator) - по умолчанию пробел. Он действует, когда мы интерполируем массив в строку $s. В получившейся строке меняем test2 на best2 до первого вхождения. Затем, переопределяем массив: разделяем строку пробелами, и возвращаем этот массив в @a.

Все просто, на самом деле. Не знал что ты новичок в perl.

Io

еще один годный вариант на ё try(l atPut(l indexOf("test2"), "best2"))

Не знал что ты новичок в perl.

А как ты узнаешь? Он ведь ведет себя как гуру, осуждает код взрослых дядей, периодически.

sub MY_CONST () { 42 }

inline fix.

осуждает код

код не пострадает от этого))

Две страницы и ни одного правильного ответа. Держи:

perl -wE 'my @my_arr = ("test1", "test2", "test3", "test2", "test5", "test2", "test6");for(@my_arr){$_ eq "test2"||next;$_="best2";last};map {say} @my_arr'

Может лучше так:

$_ eq 'test2' and $_ = 'best2', last foreach @my_arr;

Ну да, та же суть с другим синтаксисом. Главное что не regex replace без \Q\E

Правильно, строй велосипеды и провоцируй баги в стиле «а на моей ОС и машине все работает!»

«Помогите Маше расставить лог связи»

1)

повелосипедить
в словарь посмотри

2)

Вот, учись, сынок, как люди пишут на перле
фу завоняло как

курил утром?

Правильно, строй велосипеды и провоцируй баги в стиле «а на моей ОС и машине все работает!»

какие нахрен велосипеды и баги? чё за чушь ты порешь?

Да, ты сейчас начнешь строить глобальную теорию вселенского идеального кода, мне это не интересно.

ты сейчас начинаешь шланговать, а если тебе не интересно - просто не пиши, всё просто

А суть в том,что что в контексте задачи именно такие куски и ожидаются, простые и лаконичные, в которые ты не умеешь.

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

а, я же забыл что ты js-макака. Тогда сори, вопросов нет

сопровождать

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

т.е. на себя?

на perl-5.10 не пашет))

похоже на задачу на собеседовании «найдите две ошибки»...

... выкопали стюардессу?

5.14 вышел в марте 2013. Для личных нужд я использую фичи <= 5.18, т.к. вкусно и есть в любом актуальном дистре. Но решил что стоит упомянуть, ради мхом покрытого продакшена, где модули начинают писать с «use 5.006» :)

4) Не стоит использовать сторонние модули в простых задачах, даже если они есть в стандартной комплектации

«Простая задача», имхо, размытый термин. Согласен, например потому, что подключать модуль - это расходы. А если еще и устанавливать - так вдвойне. А если тянет зависимости - так вообще. Решение простых задачек (копипаст или написание каждый раз заново) забирает время. Как и сложных (поиск готового модуля, или своё решение), в общем-то.

Так вот, бывает случаи, когда расходы из за потраченного времени/усилия/внимания на решение простых задачек, не стоят расходов на подключение модуля из стандартной комплектации.

5) Всегда пользуйся use strict; use warnings;

Или добавить «-w» к #!perl. Понятно, и меньше клацать))

Если ты, амёба, думаешь, что ты сможешь мне кукарекнуть что-то типа:

нет гарантии что во входных данных нет строки с ','
хардокод: 'test2' тоже должен подаваться из вне

И при этом я не смешаю тебя с дермищем - я тебя огорчу.

Днищескриптуха и школозадачки меня не интересуют - найдёшь хоть что-то достойное царя - кастуй.

повинуюсь, ваше величество

Видимо, мой опыт в perl всё еще достаточно скудный...

Мой тоже. Наткнулся тут на такое: http://perldoc.perl.org/perlsub.html#Constant-Functions

В частности, выхлоп:

perl -MO=Deparse -le 'sub ONE () { 1 } if (ONE) { print ONE if ONE }'