Ver Tema

Guiller · 2007-06-27 04:12 @216

Este es el codigo:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl

use strict;

require "cgi-lib.pl";

my $RASpath = "/"; 

my $RASlist = "$RASpath/RAS.list";    

# ---- Leemos el fichero de RASes  ----------------------------------------

open (RASES,"$RASlist");  # Abro el archivo

my @RASes = <RASES>;  # Leo...

close (RASES);                 # Cierro el archivo

print "Content-type: text/html\n\n";

print <<HTML;

<HTML>

<HEAD>

<TITLE>Datos</title>

<BODY>

HTML

foreach my $ras (@RASes){

        chomp($ras);

        print "<h4>$ras</h4><br>\n";

}

print "</BODY>\n";

print "</HTML>\n";

Como veis, basicamente leo los datos de un fichero y los presento por pantalla.

Pues bien, al ejecutarlo en el terminal todo va bien, veo los datos.. incluso si copio la salida del script a un fichero .html y luego lo abro con el explorador, perfecto.

Si lo ejecuto directamente con el explorador es como si no leyera el fichero y no presenta nada.... ?!?!?

He comprobado permisos y demas, he probado con superusuario y con mi usuario normal... nada. Empiezo a desesperar, alguna idea?

Guiller · 2007-06-27 04:31 @230

Simplificando un poco el codigo (aunque el problema persiste)

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl

use strict;

require "cgi-lib.pl";

# ---- Leemos el fichero 

open (RASES,"/var/log/Datos/RAS.list");  # Abro el archivo

my @RASes = <RASES>;   

close (RASES);          

print "Content-type: text/html\n\n";

print "<HTML><HEAD><TITLE>Indice llamadas CVX DIA</TITLE></HEAD><BODY>";

foreach my $ras (@RASes)

{

        chomp($ras);

        print "<h4>$ras</h4><br>\n";

}

print "</BODY></HTML>";

explorer · 2007-06-27 07:36 @358

Pon un die en el open() para saber si lo abre o no.

Guiller · 2007-06-27 08:42 @404

El usuario con el que entraba a la maquina desde el navegador era diferente al mio, el problema era de permisos... muchas gracias

kidd · 2007-06-27 15:31 @688

Hola:

Por eso siempre es buena práctica checar errores al abrir archivos, de esa manera te aseguras de que realmente está abriendose el archivo, por ejemplo:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

open my $FILE, '<', '/ruta/al/archivo.txt' or die("No se pudo abrir el archivo: $!");

Saludos

Publicidad

Socializa