Veja se assim te satisfaz
//-------------------------------------------------
[EMAIL PROTECTED] ~]# cat teste
EATE TABLE tmor_1212_cred_agreg (
seq_ctrc integer NOT NULL,
tp_credito character(1) NOT NULL,
placa_agreg character(7) NOT NULL,
data_baixa date NOT NULL,
vlr_credito numeric(9,2) NOT NULL,
seq_ficha_frete integer NOT NULL,
vlr_credito_orig numeric(9,2) NOT NULL,
data_inclusao date,
hora_inclusao time without time zone,
CONSTRAINT cst01_tmor_1212_cred_agreg CHECK (((tp_credito
= 'C'::bpchar) OR
(tp_credito = 'E'::bpchar)))
);
[EMAIL PROTECTED] ~]# tac teste | sed '/)\;/{
:find
N
s/\,//g
t
b find
}
' | tac
EATE TABLE tmor_1212_cred_agreg (
seq_ctrc integer NOT NULL,
tp_credito character(1) NOT NULL,
placa_agreg character(7) NOT NULL,
data_baixa date NOT NULL,
vlr_credito numeric(9,2) NOT NULL,
seq_ficha_frete integer NOT NULL,
vlr_credito_orig numeric(9,2) NOT NULL,
data_inclusao date,
hora_inclusao time without time zone
CONSTRAINT cst01_tmor_1212_cred_agreg CHECK (((tp_credito
= 'C'::bpchar) OR
(tp_credito = 'E'::bpchar)))
);
[EMAIL PROTECTED] ~]#
//-------------------------------------------------
explicando :
tac teste | sed '/)\;/{
:find
N
s/\,//g
t
b find
}
' | tac
primeiro , como queremos o a primeira "," antes do "};" , invertemos o
arquivo [tac]
quando ele achar o "};" ['/)\;/] , primeiro ele cria uma label [:find]
, depois ele tenta fazer a troca de "," para "" [s/\,//g] , caso ele
consiga , o script termina [t] , caso ele nao faca nenhuma troca , ele
volta para onde definimos a label find e repete tudo outra vez ate
achar uma "," a ser trocada [b find] . Por ultimo , queremos nosso
arquivo de volta na ordem certa , entao invertemos denovo [tac]
qualquer coisa eh soh chamar :)
---------------------------------------------------------------------
Esta lista não admite a abordagem de outras liguagens de programação, como
perl, C etc. Quem insistir em não seguir esta regra será moderado sem prévio
aviso.
---------------------------------------------------------------------
Sair da lista: [EMAIL PROTECTED]
---------------------------------------------------------------------
Esta lista é moderada de acordo com o previsto em
http://www.listas-discussao.cjb.net
---------------------------------------------------------------------
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/shell-script/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
