Ich brauche Hilfe auf folgende Skript:



Ich brauche, um die Linien, die in Fettschrift in separaten Datei als

Rekord

String ("|") emp_name;

String ("|") emp_id;

decimal ("|") emp_salary;

String ("|") emp_status;

string ( "\ n") emp_proj;

Ende


Obigen Zeilen beziehen sich auf Datei $ (_AB_PROXY_DIR) " '/ rf_emp_status_emp_proj-3.dml, der in 19. Zeile im Skript unten.

Die Frage ist, brauche ich, um nur bestimmte Linien, die in Fettschrift in separaten Datei. In unter-Script finden Sie ein Feld Rekord werden mehrere Male wiederholt. Ich brauche, um alle, dass diese Zeilen ausRekord Feld Ende der Datei $ (_AB_PROXY_DIR) " '/ rf_emp_status_emp_proj-3.dml.



Bitte können Sie helfen, dass zum Senden von fett Schreiben Felder in separaten Datei.
Ich bin highliting alle Linien, die in unter-Skript, welches ich in separaten Datei, in roter Farbe


print-r - "Rekord

String ("|") emp_name;

String ("|") emp_id;

dezimal ( "\ n") emp_salary;

Ende ">" $ (_AB_PROXY_DIR) " '/ in_emp_data-1.dml"

print-r - '/ * Neu * Betrieb /

out:: neu (in) \u003d

beginnen

aus .*:: * in.;

out.emp_status:: if (next_in_sequence () <3) "A" else "D";

out.emp_proj:: "ABC";

end; ">" $ (_AB_PROXY_DIR) " '/ rf_emp_status_emp_proj-2.xfr"

print-r -- "Rekord

String ("|") emp_name;

String ("|") emp_id;

decimal ("|") emp_salary;

String ("|") emp_status;

string ( "\ n") emp_proj;

Ende, ">" $ (_AB_PROXY_DIR) " '/ Rf_emp_status_emp_proj-3.dml"

print-r - '/ * Neu * Betrieb /

out:: neu (in) \u003d

beginnen

aus .*:: * in.;

out.emp_loc:: "USA";

end; ">" $ (_AB_PROXY_DIR) " '/ rf_emp_location-4.xfr"

print-r - "Rekord

String ("|") emp_name;

String ("|") emp_id;

String ("|") emp_salary;

String ("|") emp_status;

String ("|") emp_proj;

string ( "\ n") emp_loc;

end; ">" $ (_AB_PROXY_DIR) " '/ rf_emp_location-5.dml"

Danke,
gangadhar.

Was ist das Kriterium für die Entscheidung, welcher Teil der Datei zu extrahieren? Der Name der Ausgabedatei?

perl -0777 -pe "s%;' > \"\\$\\{_AB_PROXY_DIR\\}\"'/rf_emp_status_emp_proj-3.dml'.*%%s;
s/^.*print -r -- '//s" file