Size: a a a

2020 February 01

SU

Someone Unknown 🇭🇷 in Modern::Perl
Вот если бы там было /^\s+|\s+$/, то я бы сам мозг сломал, как оно сгруппирует. И даже подумав, я совсем не уверен, что сгруппирует правильно
источник

c

crux in Modern::Perl
Someone Unknown 🇭🇷
Вот если бы там было /^\s+|\s+$/, то я бы сам мозг сломал, как оно сгруппирует. И даже подумав, я совсем не уверен, что сгруппирует правильно
Тогда разбей на две ))))
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
Я и разбил. На две. Группы 8)
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
Не, говорите чё хотите, но for (values %$j) { s/^\s+//; s/\s+$// } читается хуже
источник

VG

Vadim Goncharov in Modern::Perl
так в 2 строчки помести
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
Ага, и комментарий ещё к каждой
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
# Здесь мы убираем пробелы слева
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
# Здесь мы убираем пробелы справа
источник

c

crux in Modern::Perl
Ну вот конкретно с этой регуляркой всё же вкусовщина. Я б тоже в одну написал. Без ?: только.
источник

c

crux in Modern::Perl
Someone Unknown 🇭🇷
Ага, и комментарий ещё к каждой
А вот это, кстати, збс, через пару лет здесь не появится чувака с вопросом "что делает эта строка", которого всё же допустили к этому коду.
источник

VG

Vadim Goncharov in Modern::Perl
Someone Unknown 🇭🇷
Ага, и комментарий ещё к каждой
если обучающий код для джуниоров пишешь, добавь
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
Если б это был обучающий код для джунов, то там бы был String::Util 8))
источник

VG

Vadim Goncharov in Modern::Perl
а так это достаточно часто встречающаяся идиома
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
crux
А вот это, кстати, збс, через пару лет здесь не появится чувака с вопросом "что делает эта строка", которого всё же допустили к этому коду.
Ну, это будет хорошим сигналом о переоценке его компетентности, что тоже плюс
источник

c

crux in Modern::Perl
Давненько так долго трим не обсуждали
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
Даёшь гольф на самую длинную реализацию трима
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
Антигольф
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
crux
Да и группы зачем
Чёрт, а ты прав
$ perl -E '$_=q| a b c |; s/^\s+|\s+$//g; say qq(|$_|);'
|a b c|
источник

c

crux in Modern::Perl
источник

SU

Someone Unknown 🇭🇷 in Modern::Perl
Ха, интересно. То есть без привлечения внешних модулей, двухстрочник получается самым быстрым вариантом
источник