Adriano,
Mesmo utilizando o c�digo como voc� sugeriu o problema continua. Outras
pessoas disseram que poderia ser por enviar no modo binario mas envio sempre
como ASCII.
Para voc� ter uma id�ia nem este codigo abaixo funciona:
#! /usr/local/bin/perl
print qq~
Dados Ordenados
~;
Sendo que muitos outros cgis feitos e instalados por mim est�o funcionando
normalmente no mesmo servidor.
Simplesmente n�o vejo l�gica para este problema.
:(((
Obrigado,
Deivison Alves Elias
----- Original Message -----
From: Adriano Bonat <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, September 21, 2000 1:45 PM
Subject: Re: [perl] Socorro! (Erro interno no servidor)
> Ae Deivison,
> pelo codigo que voce colou ae embaixo eu notei apenas um erro, que eh
> esse:
>
> open (LABASE,"$base");
> @input = <LABASE>;
> close ("$base"); # o erro � esse
>
> O correto:
>
> open (LABASE,"<$base"); # e uma boa eh sempre indicar que voce esta lendo
ou
> escrevendo com < >
> @input = <LABASE>;
> close (LABASE);
>
> Espero ter ajudado.
> []'s
> Adriano Alves
> Maximous in BRASnet
> Ajudaall - http://www.ajudaall.f2s.com
>
>
>
> -----Mensagem original-----
> De: Deivison A. Elias <[EMAIL PROTECTED]>
> Para: [EMAIL PROTECTED] <[EMAIL PROTECTED]>
> Data: Quarta-feira, 20 de Setembro de 2000 19:26
> Assunto: [perl] Socorro! (Erro interno no servidor)
>
>
> Ol� Pessoal
>
> Escrevi um pequeno c�digo em perl, sua fun��o seria organizar em ordem
> alfab�tica um arquivo .txt. Funciona beleza no sambar mas quando envio
para
> meu servidor ele retorna o Error 500 Erro interno no servidor.
> J� existem outros cgis rodando nesse servidor feitos por mim e sem
> nenhum problema com o mesmo endere�o #! /usr/local/bin/perl. N�o tenho
id�ia
> do que esteja ocorrendo. J� tentei de tudo. Isto ocorre com outros cgis
mas
> em outros funciona 100%.
>
> o c�digo fonte do cgi que funciona no sambar mas em outros servidores
> n�o:
>
> #! /usr/local/bin/perl
> $base ='cds.txt';
> $base_ordenada ='cds.txt';
>
> sub entete
> {
> print qq~
> Dados Ordenados
> ~;
> }
>
> open (LABASE,"$base");
> @input = <LABASE>;
> close ("$base");
> open (FILE,">$base_ordenada" );
> @out = sort {uc($a) cmp uc($b)} @input;
> print FILE (@out);
> &entete;
>
>
> Se alguem tem id�ia do que est� acontecendo por favor me ajude.
>
> Obrigado,
>
> Deivison Alves Elias
>
>
>
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.com
>
> 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.
> =======================================
>
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.
=======================================
