Foro - Perl en Español

por **spacepecjks** » 2010-01-29 12:52 @578

¡Hola todos!

Espero puedan ayudarme con mi código; lo que sucede es que quiero ver el subneteo de alguna dirección IP. Mi código al correrlo desde el MS-DOS, sí funciona, pero al pasarlo al navegador, me marca error, no me muestra nada. Según yo, el error es por el módulo use Net::Subnets el cual estoy usando, ya que cada vez que lo desactivo, ya me imprime cualquier cosa en pantalla, y la verdad, solo al usar este módulo me ha ocurrido un error en el navegador.

Ojalá y alguno de ustedes pueda ayudarme, se lo agradecería de sobre manera, ¡de antemano gracias!

Aquí les pongo mi código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!c:/perl/bin/perl.exe
use Net::Subnets;
print "content-type: text/html \n\n";
 
########################
#FUNCIONES
verver22();
########################
sub verver22()
{
        print "prueba", "\n\n";
        print "prueba2222", "\n\n";
        my @subnets = qw(10.0.0.0/24);
    my $sn = Net::Subnets->new;
    my $results;
    foreach my $subnet (@subnets) {
        my ($lowipref, $highipref) = $sn->range(\$subnet);
        $results .= "$subnet: $$lowipref - $$highipref\n";
                $results22 .= "$$lowipref";
                $results23 .= "$$highipref";
            @ipip = $results22;
                @ipip2 = $results23;
                }
                $ipip=@ipip[0];
                #$ipip=@ipip[1];
    print( $results );
        #print "@ipip", "\n\n";  #si funciona
        print "$ipip[0]", "\n\n";
        print "$ipip2[0]", "\n\n";
        
        
 
    my $lowip  = $ipip[0];
    my $highip = $ipip2[0];
 
    my $sn2 = Net::Subnets->new;
    my $listref = $sn2->list(\($lowip, $highip));
    foreach my $address (@$listref) {
                print( $address );
    }
 
          
#==============================================================================
print<<EOF;
<html><head><title>Subnetting.</title>
<div align="center"><IMG SRC="http://localhost/encabezado.png" WIDTH="645" HEIGHT="100" ALT="chuaz" align=top></div>
</head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<body bgcolor = "#FFFFFF">
 
<br>
<h2><center><font face="Calibri"><font color="black">Propiedades</font></font></center></h2> 
<!--  HACIENDO PRUEBA DE IMPRESION DE DATOS DENTRO DE UNA TABLA  -->
<b><font color="red"><font face="verdana"><font size=2>Prueba-subnetting</font></font></font></b><br>
<b><font color="red"><font face="verdana"><font size=2>$ipip[0]</font></font></font></b><br>
<b><font color="red"><font face="verdana"><font size=2>$ipip2[0]</font></font></font></b><br>
<b><font color="red"><font face="verdana"><font size=2>address</font></font></font></b><br>
 
</body>
</html>
EOF
 
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

NOTA: en MS-DOS, al correrlo me da los valores deseados, chequen:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

C:\>Perl subnet.pl

0.0.0/29: 10.0.0.1 - 10.0.0.6

0.0.1

0.0.6

0.0.110.0.0.210.0.0.310.0.0.410.0.0.510.0.0.6Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

al principio del programa, para que te dé más pistas.

Usar el módulo CGI es muy recomendable para todo lo relacionado con cgi. Mira mi CGI mínimo para que veas un ejemplo. Incluso lo puedes usar para comprobar si tu sistema CGI funciona bien. Te ahorrarás incluso problemas creando el HTML, como veo que tienes algunos en la parte del HTML de tu código (fíjate que hay marcas de cierre, pero no de apertura, como la de <head>).

Foro - Perl en Español

Problema con Net::Subnets y la impresión en el navegador

Problema con Net::Subnets y la impresión en el navegador

Publicidad

Re: problema con Net::Subnets y la impresion en el navegador

¿Quién está conectado?