Problema con Net::Subnets y la impresión en el navegador
Publicado: 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:
NOTA: en MS-DOS, al correrlo me da los valores deseados, chequen:
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:
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.003 segundos, usando GeSHi 1.0.8.4
NOTA: en MS-DOS, al correrlo me da los valores deseados, chequen: