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

Responder a