Foro - Perl en Español

por **liceva** » 2011-05-30 22:16 @970

Ya corrió mi cgi ¡Yupiiiiii!

Si quiere comprobarlo para que vea qué bonito se
ve...

http://www.liceva.mx/index.html

Hola buenas noches.

Mi pregunta ronda en torno a las pequeñas diferencias entre correr tus cgi en un servidor local y hacerlo en un hosting.

El tema es que estoy por contratar un servicio de hosting y me parece muy bueno el servicio y con precio acorde, puedo instalar yo mismo los módulos de Perl y manejar un par de cosas más. Esta gente me dio un mes para testear si era lo que realmente necesitaba, pero cuando quise migrar las páginas ya hechas y probadas localmente surgieron errores, pequeños, quizás alguna comilla u otra tontería y me falta todavía solucionar un pequeño inconveniente que pude reducir hasta inferir que se centra en la asignación que hace el módulo HTML::TagParser a un array de los tags en cuestión.

Sin más preámbulos.

my $html = HTML::TagParser->new($url);
my @img = $html->getElementsByTagName("img");
my @p = $html->getElementsByTagName("p");

Al imprimir por pantalla $html, me tira "HTML::TagParser=HASH(0x9448218)".

Los valores de @img y @p son -1.

¿Alguno tiene alguna idea?, porque a mi ya se me acabaron.

Gracias.

por **explorer** » 2011-07-22 06:26 @310

Hace falta algo más de código. Yo veo que está bien lo que está escrito, pero me gustaría ver cómo sacas los valores de @img.

por **makhix** » 2011-07-22 08:25 @392

Buenos días, explorer, gracias por la prontitud en tu respuesta, como siempre.
Este es el código que extrae los valores del @img:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        my $html = HTML::TagParser->new($url);
        my @img  = $html->getElementsByTagName("img");
        my @p    = $html->getElementsByTagName("p");
 
        foreach my $elem1 (@img) {
            my $attr1 = $elem1->attributes;
 
            foreach my $key ( sort keys %$attr1 ) {
                if ( $key eq "height" && $attr1->{$key} == 100 ) {
                    if ( $attr1->{src} =~ m/$filtro/g ) {
                        push( @src, $attr1->{src} );
                        push( @alt, $attr1->{alt} );
                    }
                }
            }
        }
 
        foreach my $elem2 (@p) {
            my $attr2 = $elem2->attributes;
            my $text2 = $elem2->innerText;
 
            foreach my $key ( sort keys %$attr2 ) {
                if ( $attr2->{$key} eq "product_price" ) {
                    $text2 =~ s/\$//g;
                    $text2 =~ s/(.+\..+)Now (.+\..+)/$2/g;
                    my $inc = ( $text2 / 100 ) * $GANANCIA;
                    $valor_final = $text2 + $inc;
                    $valor_final = sprintf( "%.2f", $valor_final );
                    push( @txt, $valor_final );
                }
            }
        }
 
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

Por favor no te fijes en la elegancia, todavía es una prueba. :roll:

Gracias de antemano.

por **explorer** » 2011-07-22 11:15 @510

Sí que puede haber diferencias de ejecución entre hacerlo en local y hacerlo en un alojamiento externo: las bibliotecas y módulos pueden ser de versiones distintas, con lo que el comportamiento y errores no corregidos pueden dar lugar a esos diferentes comportamientos.

En cuanto al código que muestras, no lo he probado, pero me parece que está bien.

Dices que te funciona en local, pero no en el alojamiento. Si es un CGI, supongo que habrás puesto las líneas para sacar la cabecera HTTP antes de la salida normal.

por **makhix** » 2011-07-22 14:48 @658

Sí, lo he hecho. La famosa : "Content-type: text/html\n\n"; pero bueno, debe ser alguna tontería, supongo que me tendré que pelear con el admin. :twisted:

Igualmente, muchas gracias, explorer, es bueno tener alguien con quien contar.

Saludos al foro.

por **explorer** » 2011-07-22 14:52 @661

Prueba mi CGI mínimo para comprobar que el sistema CGI está funcionando correctamente.

Observa que uso CGI::Carp, para que los errores del programa salgan en la pantalla del navegador, y así tenemos más pistas para saber por qué está fallando.

por **makhix** » 2011-07-22 15:45 @698

Lo había probado, y no me salió ningún error. Por las dudas lo probé nuevamente ahora y nuevamente no sale nada extraño. No cabe dudas que el tema pasa por la implementación de alguna de las librerías o algún bug en el CRM, como lo marcaste con anterioridad.

A la noche me pelearé con esta gente y les comento cómo me fue.

Saludos y nuevamente gracias.

por **makhix** » 2011-07-26 22:03 @960

Bueno, al final pude hacer que funcione el script. ¡Je,je! Había unas comillas de más en el parámetro $url que se le pasaba al HTML::TagParser.

$html = HTML::TagParser->new($url);

En realidad no sé por qué cuando recibía la variable le adosaba "'".$url."'".
Bueno en definitiva, se resolvió y es un ejemplo más de que hay que revisar el código antes de abrir la boca.

Sin más muchas gracias al foro, sobre todo al explorer que tiene que transpirar la camiseta con todos nosotros.

Hasta pronto muchachos.

Foro - Perl en Español

Problemas con mi código CGI en hosting

Re: Problemas con mi código CGI en hosting

Publicidad

Re: Problemas con mi código CGI en hosting

Re: Problemas con mi código CGI en hosting

Re: Problemas con mi código CGI en hosting

Re: Problemas con mi código CGI en hosting

Re: Problemas con mi código CGI en hosting

Re: Problemas con mi código CGI en hosting

Re: Problemas con mi código CGI en hosting

Re: Problemas con mi código CGI en hosting

¿Quién está conectado?