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, si 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 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, Ojala y alguno de ustedes pueda ayudarme, se lo agradecería de sobre manera, de antemano gracias!
Aquí les pongo mi código:
#!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
}
######NOTA: en MS-DOS, al correrlo me da los valores deseados, chequen:
C:\>Perl subnet.pl
10.0.0.0/29: 10.0.0.1 - 10.0.0.6
10.0.0.1
10.0.0.6
10.0.0.110.0.0.210.0.0.310.0.0.410.0.0.510.0.0.6
