A unica coisa que me parece diferente aqui eh

> (..)
>         # Separa os campos pelo caractere |             #16
>         ($idemp, $idprod, $prod, $prec) = split(/\s*\|\s*/, $_); #17
>         &limpa;                                          #18
um (;) aqui ----^
Pode ser?

[]'s
Dickson

-- 
+------------------------/
| Real Name..: Dickson dos Santos Guedes
| Nick Name..: xX[Guedes]Xx @ BrasIRC.Net
| ChanOP in..: #Brasil #BrasIRCop
|
| >> Equipe de Atendimento BrasIRC.Net <<
+-----------------/
| mails:
|    * [EMAIL PROTECTED]
|    * [EMAIL PROTECTED]
| URLs:
|    * http://www.BrasIRC.net/
|    * http://www.IrcBR.com.br/
|    * http://www.GaloVeio.cjb.net/
+-------/
"Guedes vive em algum lugar do tempo!"
http://www.mrweb.com.br/perl/
=======================================
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
=======================================

Responder a