Perl/awk/ - Textersetzung

[Stefan (Gast)]

Servus!

Ich glaube, dass hier sicher einige unter euch sind, die sich gut mit 
derartigen Textersetzungsprogrammen auskennen, die mit links eine 
Befehlszeile schreiben können, die:

Aus einer Textdatei Textstücke, die mit file= beginnen und mit .dat 
enden erfasst und diesem z.B. mit einem Newline oder einem Text getrennt 
in eine andere Textdatei schreibt.

Ich hab mir zwar schon Perl angesehen, aber ich bring es nicht zusammen.

Danke im Voraus,

Stefan

[Εrnst B. (ernst)]

perl -ne '/^file=(.*\.dat)$/ && print $1,"\n"' source.txt > target.txt

Oder soll das "file=" auch mit in die Ausgabe, also ganze Zeilen 
kopieren?

perl -ne '/^file=.*\.dat$/ && print' source.txt > target.txt

Oder steht das "file=" nicht immer am Zeilenanfang, und das ".dat" nicht 
immer am Zeilenende, und das ganze kann mehrfach pro Zeile vorkommen?

 perl -ne 'while (/(file=[^\.]*\.dat)/g) { print $1,"\n";}' source.txt > target.txt

[Daniel (Gast)]

Wenn file= und .dat nicht auf einer Zeile sind, dann kannst du awk 
vergessen. Ansonsten

cat deine datei | awk '/^file=\.dat$/{print $0}'

wenn deine Datei so aussieht

abc
123
file=xyz.dat
blabla
plumplum
file=dudilidu.dat
abc

kannst du wie oben gezeigt mit awk filtern

wenn es komplexer ist würde ich python nehmen

import re
pattern = re.compile(r'file=(.*)\.dat', re.M)
lst = re.findall(file("datei", "r").read())
for i in lst:
    print i