разделить строки файла на основе первого поля

Вы можете использовать awkи перебирать поля, начиная с 2:

awk -F, '{ OFS=FS; for (i=2;i<=NF;i++) print $1,$i }' file

Выход:

1,a
1,b
1,c
2,b
2,c
3,e
3,f
4,l

С sedвы бы сделали

sed -E 's/([^,]*,)([^,]*),/\1\2\n\1/;P;D' file

Обратите внимание, что использование \nв строке замены работает только для GNU sed. В других системах вам нужно будет использовать фактический перевод строки, которому предшествует обратная косая черта:

sed -E 's/([^,]*,)([^,]*),/\1\2\
\1/;P;D' file

• -Eозначает расширенные регулярные выражения, поэтому я могу использовать ()вместо \(\). Просто для удобства чтения
• [^,]*соответствует строке без запятой, поэтому соответствует одному полю
• Таким образом, [^,]*,[^,]*,соответствует первым двум полям. Я поместил ()вокруг полей, чтобы я мог повторно использовать их как \1и \2в замене
• Команда sзаменяет первые два поля на себя, добавляет новую строку и повторяет первое поле в новой строке. Таким образом, строка разделена на две части :1,a,b,c, одна строка будет с 1,a, а другая — с 1,b,c
.
• Теперь Pпечатает первую строку в буфере (мы знаем, что уже можно печатать)
• Dудаляет первую строку из буфера и запускает скрипт заново, если после удаления в буфере что-то осталось. Таким образом, оставшиеся 1,b,cснова будут разделены на строки 1,bи 1,c.
• Если остался только один x,y, шаблон больше не будет совпадать, поэтому новая строка не вставляется, а sedне циклически повторяется, а продолжается со следующей строки

Использование Миллера(https://github.com/johnkerl/miller)

mlr --c2n --ofs "," --implicit-csv-header then reshape -r "[^1]" -o item,value then cut -x -f item input.txt

вы получите на выходе

1,a
1,b
1,c
2,b
2,c
3,e
3,f
4,l

Вы можете выполнить эту задачу различными способами, как показано ниже:

$ sed -e ':a
    s/,/\n/2;/\n/!b
    P;s/,.*\n/,/;ba
' file.csv

Пояснение:

Мы пытаемся заменить вторую запятую новой строкой. Если это невозможно => пространство шаблонов было меньше двух и, следовательно, должно быть передано в стандартный вывод.

OTW, мы печатаем первые две запятые -поля, разделенные -, затем удаляем второе поле, чтобы третье теперь стало вторым и так далее.

$ perl -F,  -lane '
    my $f1 = shift @F;
    print join ",", $f1, $_ for @F;
' file.csv

Пояснение:

Разделите каждую строку на поля через запятую, и perlсохранит поля в массиве @F. Первое поле мы смещаем из массива @F и сохраняем в скаляре $f1. Затем последовательно печатайте элементы массива.

$ perl -F\(,\) -lane '
    my $f1 = shift @F;
    print $f1, splice @F, 0, 2 while @F > 1 ;
' file.csv

$ perl -F, -lane 'print $F[0], $_ for /,(?:(?!,).)*/g' file.csv

$ sed -Ee 's/,?[^,]*/[&] /g'  file.csv |
   dc -e "
   [q]sq
   [SMlN1+sNz1<a]sa
   [dnLMn10anlN1-dsN0<b]sb
   [?z0=q0sNlaxlbxclcx]sclcx
"

Результат:

 1,a
 1,b
 1,c
 2,b
 2,c
 3,e
 3,f
 4,l