Есть текстовый файлик вида

переменная1,переменная2,переменная3,
переменная4,переменная5,переменная6,
переменная7,переменная8,переменная9,

Надо поудалять последние запятые в каждой строке.
Как бы это поэлегантнее сделать?

• Вывести строку без последнего символа,m, 13:05 , 30-Ноя-05
  • Вывести строку без последнего символа,San, 15:56 , 30-Ноя-05
  • Вывести строку без последнего символа,madskull, 15:57 , 30-Ноя-05
    • Вывести строку без последнего символа,dimcha, 18:18 , 30-Ноя-05
    • Вывести строку без последнего символа,San, 07:58 , 02-Дек-05
• Вывести строку без последнего символа,dimcha, 14:01 , 30-Ноя-05
  • Вывести строку без последнего символа,San, 15:57 , 30-Ноя-05
    • Вывести строку без последнего символа,vnp, 02:34 , 02-Дек-05
      • Вывести строку без последнего символа,San, 07:56 , 02-Дек-05
• Вывести строку без последнего символа,mezantrop, 17:40 , 30-Ноя-05
  • Вывести строку без последнего символа,San, 12:16 , 01-Дек-05

may be : sed -r 's/(.*),$/\1/'

>may be : sed -r 's/(.*),$/\1/'

Под SCO у меня оно. Под 7.1.3

на "-r" ругается:
UX:sed: ERROR: Illegal option -- r

А если без "-r", то:
cat file.txt | sed 's/(.*),$/\1/'
UX:sed: ERROR: Command garbled: s/(.*),$/\1/

>may be : sed -r 's/(.*),$/\1/'
а может, все-таки
sed 's/.$//'

>>may be : sed -r 's/(.*),$/\1/'
>а может, все-таки
>sed 's/.$//'

хорошее решение

>>may be : sed -r 's/(.*),$/\1/'
>а может, все-таки
>sed 's/.$//'

А вот это - идеальное решение!
Работает везде! Спасибо!

>Есть текстовый файлик вида
>
>переменная1,переменная2,переменная3,
>переменная4,переменная5,переменная6,
>переменная7,переменная8,переменная9,
>
>Надо поудалять последние запятые в каждой строке.
>Как бы это поэлегантнее сделать?

$ cat file | perl -lane 'chomp; $s = $_; $s = $1 if $s =~ /^(.*)[,]$/; print $s . "\n";' > file2

>>Есть текстовый файлик вида
>>
>>переменная1,переменная2,переменная3,
>>переменная4,переменная5,переменная6,
>>переменная7,переменная8,переменная9,
>>
>>Надо поудалять последние запятые в каждой строке.
>>Как бы это поэлегантнее сделать?
>
>$ cat file | perl -lane 'chomp; $s = $_; $s = $1 if $s =~ /^(.*)[,]$/; print $s . "\n";' > file2

А можно не прибегая к перлу?
На чистом bash-скрипте?

>На чистом bash-скрипте?

while read; do echo ${REPLY%,}; done < file

>>На чистом bash-скрипте?
>
>
>while read; do echo ${REPLY%,}; done < file

Спасибо! Это заработало!
Правда только на редхате, а на SCO видимо bash более древний и не работает как надо.

>Есть текстовый файлик вида
>
>переменная1,переменная2,переменная3,
>переменная4,переменная5,переменная6,
>переменная7,переменная8,переменная9,
>
>Надо поудалять последние запятые в каждой строке.
>Как бы это поэлегантнее сделать?
$ cat test.txt
v1,v2,v3,
v4,v5,v6,
v7,v8,v9,

$ cut -f1,2,3 -d, test.txt
v1,v2,v3
v4,v5,v6
v7,v8,v9

>>Как бы это поэлегантнее сделать?
>$ cat test.txt
>v1,v2,v3,
>v4,v5,v6,
>v7,v8,v9,
>
>$ cut -f1,2,3 -d, test.txt
>v1,v2,v3
>v4,v5,v6
>v7,v8,v9

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