Учусь писать на перле в стиле перла

[nataraj]

perl -n -e "s/\s//;chop;print ;print ','" <edu.txt

Без единого гвоздя единой переменной...

Comments

[what-me.livejournal.com]

perl -0777pe "y.\n .,." edu.txt

[shaplov.livejournal.com]

Толи я не настоящий сварщик, то-ли это полный бред... ;-)

[shaplov.livejournal.com]

Да... Видимо я не настоящий сварщик...

Тока оно по две запятые добавляет...
А как работает -- так и не понял... ;-)

[what-me.livejournal.com]

А что оригинальное решение должно было делать? Объединить через запятые все строки из файла в одну?
Непонятно зачем удалять по одному пробельному символу из каждой строки и зачем запятая в самом конце. И какой формат файла edu.txt

Чтоб посмотреть как работает можно сказать
perl -MO=Deparse -0777pe "y.\n .,." edu.txt

[shaplov.livejournal.com]

Объединить через запятые все строки из файла в одну?
Угу...

Непонятно зачем удалять по одному пробельному символу из каждой строки
Потому что он там есть ;-)

и зачем запятая в самом конце
Потому что мне не лень ее потом удалить ;-)

И какой формат файла edu.txt
Это перенаправленный в файл вывод запроса SELECT ITEM_ID FROM ITEM WHERE=....
Мне единоразово нужен был список идов через запятую...

Оно таки получается через две запятые, ибо
=====================
$ perl -MO=Deparse -0777pe "y.\n .,." edu.txt
BEGIN { $/ = undef; $\ = undef; }
LINE: while (defined($_ = )) {
tr/\n /,/;
}
continue {
print $_;
}
====================
и пробел и перевод строки заменяется на запятую...

Таки нужный эффект достигается путем perl -0777pe "y.\n.,." edu.txt

Тока я все равно не понимаю что это за такая странная нотация y.\n.,. Какой мануал читать?

[what-me.livejournal.com]

тогда perl -0777pe "y/\n /,/d" edu.txt пробелы удалит


читать perdoc perlop, начиная с Quote and Quote-like operators
'y' - это второе имя оператора 'tr'
ограничители, обычно прямые слэши, могут быть любыми символами, либо парными скобками, tr/a/b/, tr{a}{b}, tr#a#b# и т.п.