Script para ver ip Publica en perl

[isseu]

Un script en perl que hize como parte de uno de mis "proyectos":
usa ip.interchile.com, metodo de uso perl ippublica.pl <interfaz>
# lo de "interfaz" solo sirve para ver la ip privada, ya que la publica es determinada por GET,

Código [Seleccionar] Expandir

#!/usr/bin/perl
##################################
##  Por Isseu "El hacker Gris"  ##
####### Powered by Miip.es #######
############ V 1.0 ###############
### Argumentos perl ip.pl wlan1 ##
$interfaz = $ARGV[0];
if (!$ARGV[0]){
open (o ,"> configipviewer");
@contenido=<o>;
    if(@contenido=""){
    print o "wlan1";
}
close o;
open (p, "< configipviewer");
@contenido2 = <p>;
close p;
    $interfaz = @contenido2[0];
print q "
Nose dio Ninguna Interfaz se hara con la interfaz predeterminada...
######### Metodo de uso: perl ip.pl <interfaz> #########";
print "\n           Interfaz por defecto actual $interfaz \n"; 

  }  
@ipprivada2=`GET ip.interchile.com`;
$ipprivada3=@ipprivada2[7];
my @data = split(">", $ipprivada3);
$ipprivada4=@data[5];
my @data2 = split("<", $ipprivada4);
$ip=@data2[0];

print "\n   Interfaz: $interfaz\n";
@ipprivada = `ifconfig $interfaz | grep inet`;
$ipprivada2=@ipprivada[0];
my @ipprivada3=split(":", $ipprivada2);
my @ipprivada4=split(" ", @ipprivada3[1]);
$ipprivada=@ipprivada4[0];

@ipprivada = `ifconfig $interfaz | grep inet`;
$ipprivada2=@ipprivada[0];
my @ipprivada3=split(":", $ipprivada2);
my @ipprivada4=split(" ", @ipprivada3[1]);
$ipprivada=@ipprivada4[0];

print "   Ip Publica: $ip\n";
print "   Ip Privada: $ipprivada\n";