#!/usr/bin/perl ### Argumentos perl ip.pl wlan0 ##$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 whatismyipaddress.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";
#!C:\perl\bin\perl.exe -wuse LWP::UserAgent;my $ua = new LWP::UserAgent;my $response = $ua->get("http://bot.whatismyipaddress.com/");my $content = $response->content();print $content;