Hola! Estoy aprendiendo perl y e echo este decodificador de ips en base 64, un poco cutre:
Citar:
print "Introduzca ip codificada:\n";
$ipcod = <stdin>;
$primeracifra = $ipcod /16777216;
print "la primera cifra es: $primeracifra\n";
$restopri = $ipcod % (256 * 256 * 256);
$ipdos = $restopri / 65536;
print "La segunda cifra es: $ipdos\n";
$restodos = $restopri % (256 * 256);
$iptres = $restodos / 256;
print "La tercera cifra es: $iptres\n";
$ipcuatro = $restodos % (256);
print "La cuarta cifra es: $ipcuatro\n";
Me gustaría saber cómo puedo cojer la parte entera de los números que me responde. Es una tontería, pero queda muy antiestético que salgan los números con los decimales.
Otra cosa que no se y queda muy feo es cómo puedo poner una potencia, por ej: 256^3.
Y para acabar, ahunque no tiene mucho que ver con el resto del post, si alguien conoce un manual de sockets en perl por favor ponga la dirección
Gracias por leerlo, un saludo.
