Сperl
:
perl -F, -lape '$_ = join ",", shift @F, sort {$a <=> $b} @F' < input.csv
С помощью GNUawk
:
gawk -F, '
{
split($0, a)
printf "%s", a[1]
delete a[1]
n = asort(a)
for (i = 1; i <= n ; i++) printf "%s", FS a[i]
print ""
}' < input.csv
Или с помощью библиотеки join.awk
(спасибо @WeijunZhou)
gawk -i join -F, -v OFS=, '
{
split($0, a)
first = a[1]
delete a[1]
n = asort(a)
print first, join(a, 1, n, OFS)
}'