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.
=======================================
