Preciso de ajuda no seguinte script:



Eu preciso imprimir as linhas que estão em negrito e letras em arquivo separado como

record

string ("|") emp_name;

string ("|") emp_id;

decimais ("|") emp_salary;

string ("|") emp_status;

string ( "\ n") emp_proj;

fim


Acima linhas estão relacionadas com o arquivo $ (_AB_PROXY_DIR) " '/ rf_emp_status_emp_proj-3.dml que está presente na 19 ª linha no script abaixo.

A questão é que preciso imprimir apenas linhas específicas que estão em negrito e letras em arquivo separado. No script abaixo você encontrará um campo record que será repetir mais vezes. Preciso selecionar todos os que a partir de linhasrecord campo para fim do ficheiro $ (_AB_PROXY_DIR) " '/ rf_emp_status_emp_proj-3.dml.



Por favor, você pode ajudar em enviar a carta campos em negrito arquivo separado.
Estou highliting todas as linhas em que o script abaixo que eu quero, em arquivo separado, na cor vermelha


print-r - 'registo

string ("|") emp_name;

string ("|") emp_id;

decimal ( "\ n") emp_salary;

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

print-r - '/ * Reformate operação * /

out:: reformate (em) \u003d

começo

fora .*:: pol *;

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

out.emp_proj: "ABC";

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

print-r -- 'registo

string ("|") emp_name;

string ("|") emp_id;

decimais ("|") emp_salary;

string ("|") emp_status;

string ( "\ n") emp_proj;

fim; '> "$ (_AB_PROXY_DIR)"' / Rf_emp_status_emp_proj-3.dml '

print-r - '/ * Reformate operação * /

out:: reformate (em) \u003d

começo

fora .*:: pol *;

out.emp_loc:: "E.U.A.";

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

print-r - 'registo

string ("|") emp_name;

string ("|") emp_id;

string ("|") emp_salary;

string ("|") emp_status;

string ("|") emp_proj;

string ( "\ n") emp_loc;

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

Obrigado,
gangadhar.

Qual é o critério para decidir que parte do arquivo para extrair? O nome do arquivo de saída?

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