Гладкая острота для преобразования списка как “1: 2, 3, 4, 5” к “1.2, 1.3, 1.4, 1.5”

Неважно я просто помнил функцию разделения awk, которая делает это довольно простым.

awk -F ":" '{
  split($2, ps, ",");
  for (i in ps) {
    gsub(" ", "",ps[i]);
    print $1 "." ps[i];
  }
}'

(gsub разделяет посторонний пробел.)

Спасибо за другие ответы, все же.

Вот Perl один:

 perl -nle '/(.+?):\s*(.+)/; print "$1.$_" for split(/[,\s]+/,$2);' foo.txt

ОБЪЯСНЕНИЕ:

• perl -nle : это говорит Perl анализировать входной файл одна строка за один раз (-n), выполните сценарий, данный как аргумент -e и добавьте новую строку (\n) к каждой печатной строке (-l).

• /(.+?):\s*(.+)/ : Соответствуйте первым символам до первого двоеточия, которое сопровождается 0 или больше пробелами (:\s*), затем остальная часть строки. Круглые скобки являются синтаксисом Perl для получения шаблонов, два соответствия сохраняются как $1 и $2.

• split(/[,\s]*/,$2); : это разделит $2 (второй подобранный шаблон от операции соответствия выше) в , и/или пробелы, создавая анонимный массив.

• print "$1.$_" for split() : выполните итерации через анонимный массив, созданный разделением выше, сохранив каждого участника массива как $_ и распечатайте его наряду с $1 (первый шаблон, полученный в первом шаге) и точка ..

Вот Ruby один:

ruby -ane '$F.drop(1).each{|f| puts $F.first.gsub(":",".")+f.chomp(",")}' <file.txt

Объяснение

• рубин-ane: это говорит Ruby auto разделяют строки, один литийne во время, и execute аргумент как сценарий.

• В автоматическом файле разделения $F массив результата разделения.

• drop(1) пропускает первое поле (номер строки) и .each циклы по следующим полям.

• gsub замены : и chomp удаляет запаздывающий разделитель из строки.

awk острота, что я думаю, немного более изящна, чем другое awk решение:

awk -F'[:, ]+' '{for(i=2;i<=NF;i++)printf $1"."$i"\n"}' file.in

Это использует в своих интересах то, что awk разделитель полей является regex.

Perl:

perl -nE '($first,$rest)=split ": "; say "$first.$_" for split ", ", $rest'

Разделяет строку на первое число и остальных, затем печатает "$first.$_" для каждой из букв.

Как насчет простого сценария оболочки Bourne (главным образом):

tr -d ':,' file.txt | while read p r; do for i in $r; do echo "$p.$i"; done; done

Команда "TR" просто чистит двоеточия (:) и запятые () - этот ответ полагается на то, чтобы там быть пробелом в данных (который имеют демонстрационные данные - иначе необходимо использовать sed для преобразования: и, в пробел вместо TR).

Вывод "TR" передается по каналу во внешний цикл, "в то время как считано...; сделайте...; сделанный", который читает строки и повреждает их в два, в первом вхождении пробела (или скорее содержание "$IFS" - разделитель поля ввода оболочки, который значения по умолчанию к пробелу), оставляя префикс в "$p" и остальной части строки в "$r".

Внутренний цикл, "поскольку я в...; сделайте...; сделанный" затем повреждает содержание "$r" в пробеле (" $IFS") и помещает каждый объект в "$i" прежде, чем выполнить команду эха.

Править: см. комментарии - Вам не нужен "TR" вообще... двоеточия и запятые могут быть убраны включением их в переменной IFS как так:

OIFS="$IFS"; IFS=":,       "; while read p r; do 
 for i in $r; do echo "$p.$i"; done; done <file.txt; IFS="$OIFS"

все сделанные в оболочке - никакие вызовы к внешним программам... (если эхо не встроено). Обратите внимание, что IFS = выше имеет пространство и символ вкладки. Также обратите внимание, что $r во втором для цикла не имеет кавычек вокруг этого - это является преднамеренным, таким образом, оболочка разделит его на пробеле.