Klicken Sie auf einen Einzeiler, um eine Liste wie "1: 2, 3, 4, 5" in "1.2, 1.3, 1.4, 1.5" zu konvertieren.

Angenommen, ich habe eine Datei, die ungefähr so ​​aussieht:

23: a, b, c, d
24: b, d, f
25: c, g

und ich möchte folgende Ausgabe erhalten:

23.a
23.b
23.c
23.d
24.b
24.d
24.f
25.c
25.g

Natürlich ist es nicht allzu schwer, einfach etwas rauszuschlagen, aber ich habe mich gefragt, ob es einen glatten Einzeiler gibt, der so etwas wie awk verwendet.

Vielleicht so etwas wie:

sed 's/: /./;s/\(\([^.]*\.\)[^,]*\), /\1\
\2/;P;D'

Das sind zwei Zeilen ( \<LF>können durch \neinige sedImplementierungen ersetzt werden).

Der DBefehl ist eine Möglichkeit , zu implementieren , während Schleifen in sed. Es entfernt die erste Zeile des Musterraums und solange noch etwas im Musterraum übrig ist, beginnt alles von vorne mit dem, was noch übrig ist. Das Obige kann also wie folgt gelesen werden:

do {
  - change ": " to "." so we start with "23.a, b, c"
  - change "23.x, y, z" to "23.x\n23.y, z"
  - print the first line ("23.x"): P
  - remove it
} while (pattern space is not empty)

Wir brauchen nicht den ersten sBefehl, um Teil der Schleife zu sein, aber um dies zu vermeiden, müssten wir einen ausführlicheren Schleifentyp verwenden, wie die Verwendung von Beschriftungen ( :) und Verzweigungsbefehlen ( b, t).

Egal, ich habe mich gerade an die awk split Funktion erinnert, was dies ziemlich einfach macht.

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

(Der gsub entfernt fremde Leerzeichen.)

Vielen Dank für die anderen Antworten.

Hier ist ein Perl:

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

ERLÄUTERUNG:

• perl -nle: Dies weist Perl an, die Eingabedatei zeilenweise zu analysieren ( -n), das als Argument angegebene Skript auszuführen -eund \njeder gedruckten Zeichenfolge ( -l) eine neue Zeile ( ) hinzuzufügen .

• /(.+?):\s*(.+)/: Ordnen Sie die ersten Zeichen bis zum ersten Doppelpunkt zu, gefolgt von 0 oder mehr Leerzeichen ( :\s*) und dem Rest der Zeile. Die Klammern sind Perl-Syntax zum Erfassen von Mustern, die beiden Übereinstimmungen werden als $1und gespeichert $2.

• split(/[,\s]*/,$2);: Dies teilt $2(das zweite übereinstimmende Muster aus der obigen Übereinstimmungsoperation) an ,und / oder Leerzeichen auf und erstellt ein anonymes Array.

• print "$1.$_" for split(): Durchlaufen Sie das anonyme Array, das durch die obige Aufteilung erstellt wurde, speichern Sie jedes Array-Mitglied als $_und drucken Sie es zusammen mit $1(dem ersten im ersten Schritt erfassten Muster) und einem Punkt ..

Hier ist ein Ruby:

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

Erläuterung

• ruby -ane: Dies weist Ruby an, adie Zeilen einzeln zu teilen nund edas Argument als Skript auszuführen.

• In einer Auto-Split-Datei $Fbefindet sich ein Array des Split-Ergebnisses.

• drop(1)Überspringt das erste Feld (die Zeilennummer) und .eachdurchläuft die folgenden Felder.

• gsubErsetzt das :und chompentfernt ein nachfolgendes Trennzeichen aus der Zeichenfolge.

Ein awk-Einzeiler, den ich für etwas eleganter halte als die andere awk-Lösung:

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

Es nutzt die Tatsache aus, dass der awk-Feldtrenner ein regulärer Ausdruck ist.

Perl:

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

Teilt die Zeile in die erste Zahl und den Rest auf und druckt dann "$first.$_"für jeden der Buchstaben.

Wie wäre es mit einem einfachen Bourne-Shell-Skript (meistens):

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

Der Befehl "tr" bereinigt nur die Doppelpunkte (:) und Kommas (,) - diese Antwort hängt davon ab, dass die Daten Leerzeichen enthalten (die in den Beispieldaten enthalten sind). Andernfalls müssen Sie sed verwenden, um: und stattdessen in Leerzeichen zu konvertieren von tr).

Die Ausgabe von "tr" wird in die äußere Schleife "beim Lesen ...; do ...; done" geleitet, die beim ersten Auftreten von Leerzeichen (oder besser gesagt beim Inhalt von "$ IFS" Zeilen liest und in zwei Teile zerlegt "- das Shell-Eingabefeldtrennzeichen (standardmäßig Leerzeichen), wobei das Präfix in" $ p "und der Rest der Zeile in" $ r "belassen wird.

Die innere Schleife "for i in ...; do ...; done" bricht dann den Inhalt von "$ r" im Leerzeichen ("$ IFS") auf und setzt jedes Element in "$ i", bevor der Echo-Befehl ausgeführt wird .

BEARBEITEN: siehe Kommentare - Sie brauchen überhaupt kein "tr" ... die Doppelpunkte und Kommas können bereinigt werden, indem Sie sie wie folgt in die IFS-Variable aufnehmen:

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

alles innerhalb der Shell erledigt - keine Aufrufe externer Programme ... (es sei denn, Echo ist nicht eingebaut). Beachten Sie, dass IFS = oben ein Leerzeichen und ein Tabulatorzeichen enthält. Beachten Sie auch, dass das $ r in der zweiten for-Schleife keine Anführungszeichen enthält - dies ist absichtlich so, dass die Shell es in Leerzeichen aufteilt.