Евгений: В вашем случае лучше зайти с другой стороны, не патчить бинарный исполняемый файл, а поправить исходники и скомпилировать. Только чур не нарушать лицензию.
Павел Грязнов: насчет непопулярности согласен. Но он совсем не мертвый, проблем с деплоем на выделенный сервер нет, баги в популярных модулях фиксят, и сама отрс не плохо развивается.
kinvlad: У вас получилась каша:
"while(<>)" Читает построчно в $_ и ни $words=split(/,/, $_) ни @words[0]= потом не используется. $_ модифицируется конкатенацией $_="SLOVO".$_ и выводится принтом.
А if на присваивание вообще глупость. Он всегда возвращает истину.
0) @words[0] не валидная запись правильно $words[0]
1) Вам нужно переделать принт. Кажется так: print (join(@words, ",") ),",")
2) $words[0]="SLOVO".$words[0] и так присваивание.
Первое можно проще сделать, $_="SLOVO".$_
А во втором регекспе мне кажется есть опечатка: [^,]* . И к тому же вырежет $ из более ранних колонок, если он там будет. Или последующих, если в его не будет в 4.
В fstab само ничего не добавляется, только ручками или при установке ос. Все диски при логине или руками через наутилус монтируются в /media/username/ дальше не помню, вероятно, каждый раз новая точка монтирования.
Отлично должно работать и с ntfs, только прав у файлов не будет, может оно и к лучшему.
