Добавление текста во все ячейки определенной колонки в csv, а также удаление определенных символов?

Question

[brar]

Добрый день. Есть CSV:

A, B, C, D,
bla, ghd, gfg, $11,
sfw, dfs, mbh, $14,
...
kjg,ef,efwe,$5

где A, B, C, D - названия колонок. А в ячейках произвольные значения/текст.
Подскажите, пожалуйста, как можно добавить ко всем ячейкам первой колонки определенное слово SLOVO? И удалить знак $ из четвертой колонки.

A, B, C, D,
SLOVObla, ghd, gfg, 11,
SLOVOsfw, dfs, mbh, 14,
...
SLOVOkjg, ef, efwe, 5

Answer 1

[Olgeir]

\^(.*)$\SLOVO$1\
\^(.*,)\$?([^,]*)$\$1$2\

Comments

[vaut]

Первое можно проще сделать, $_="SLOVO".$_
А во втором регекспе мне кажется есть опечатка: [^,]* . И к тому же вырежет $ из более ранних колонок, если он там будет. Или последующих, если в его не будет в 4.

[brar]

cat FileIN.csv | perl -e 'while(<>){ @words=split(/,/, $_); {if(@words[0]=$_="SLOVO".$_){ print $_; }}}' >> FileOUT.csv

Это отрабатывает норм, как сказал vaut .
А как сделать, чтобы можно было задвать колонку, в которой менять?
Изменение words[0] на words[2] меняет первую колонку, не важно какое значение вставлять.

[vaut]

kinvlad: У вас получилась каша:
"while(<>)" Читает построчно в $_ и ни $words=split(/,/, $_) ни @words[0]= потом не используется. $_ модифицируется конкатенацией $_="SLOVO".$_ и выводится принтом.
А if на присваивание вообще глупость. Он всегда возвращает истину.

0) @words[0] не валидная запись правильно $words[0]
1) Вам нужно переделать принт. Кажется так: print (join(@words, ",") ),",")
2) $words[0]="SLOVO".$words[0] и так присваивание.

Answer 2

[brar]

Долго мучал perl. Но так как не смог.
Сделал некрасиво и в лоб:

awk -F"," '{print "SLOVO1 "$1 "," $2 "," "SLOVO2 "$3 "," $4}' FileIN.csv >> FileOUT

Всем спасибо.