Teile einer Datei ausgeben

[pummeltiger]

Hallo zusammen,
ich suche nach der Möglichkeit einen bestimmten Teil einer Datei in eine neue Datei zu schreiben.

Meine Quelldatei ist wie folgt aufgebaut:

string1 {
Name1 = bar
Name2 = foo
}
string2 {
Name1 = foo
Name2 = bar
}

Es soll nun die jeder String in eine neue Datei geschrieben werden. In diesem Fall, möchte ich zwei Dateien haben.

Ich hoffe es ist klar was ich meine...

Habe bereits einige Versuche mit sed und egrep hinter mir, aber immer ohne den gewünschten Erfolg. Es kann auch was in Perl sein, muss nicht Shellscript sein.

Vielen Dank im Voraus für Eure Hilfe.

Grüße
Christian

[Meillo]

Code: Alles auswählen

#!/usr/bin/awk -f

/{$/ {
        fname = $1
}

/{$/,/^}$/ {
        print >> fname
}

[chrisbra]

Code: Alles auswählen

~$ perl -l -0777 -ne 's/((\w+?)\s*?{.*?})/open $2,">$2";print {$2} "$1"  /speg' datei

sollte gehen.