BuscaiPerl

#!/usr/bin/env perl
#===============================================================================
#
#         FILE: buscaiP.pl
#
#        USAGE: ./buscaiP.pl
#
#  DESCRIPTION: Busca la ip de una web facilmente con interfaz Gtk3
#
# REQUIREMENTS: Gtk3,Socket
#        NOTES: Muestra error de longitud cero si se ejecuta sin internet
#       AUTHOR:  (),
#      VERSION: 1.0
#      CREATED: 13/11/12 15:19:29
#===============================================================================
use strict;
use feature ':5.14';
use Glib qw/TRUE FALSE/;
use Gtk3 -init;
use Socket qw(inet_ntoa);

my $titulo = "Busca iP";
my $ventana = Gtk3::Window->new('toplevel');
    $ventana->set_default_size(300, 100);
    $ventana->set_title($titulo);
    $ventana->set_border_width(5);
    $ventana->signal_connect (delete_event => sub { Gtk3->main_quit });

my $sitio = Gtk3::Label->new("Sitio :");
my $ips = Gtk3::Label->new("iP :");
my $entry = Gtk3::Entry->new;
my $go = Gtk3::ToolButton->new_from_stock('gtk-find');
my $salida = Gtk3::Entry->new;

    $entry->signal_connect( "activate" => \&entrada, undef );
    $go->signal_connect ( "clicked" => \&entrada, undef );

my $arriba = Gtk3::Box->new("horizontal", 0);
    $arriba->pack_start($sitio, FALSE, FALSE, 0);
    $arriba->pack_start($entry, TRUE, TRUE, 0);
    $arriba->pack_start($go, FALSE,FALSE , 0);

my $abajo = Gtk3::Box->new("horizontal", 0);
    $abajo->pack_start($ips, FALSE, FALSE, 0);
    $abajo->pack_start($salida, TRUE,TRUE , 0);

my $vbox = Gtk3::Box->new("vertical", 0);
    $vbox->pack_start($arriba, FALSE, FALSE, 0);
    $vbox->pack_start($abajo, FALSE, FALSE, 0);

$ventana->add($vbox);

$ventana->show_all();

Gtk3->main();

sub entrada {

my $titulo = $entry->get_text;
my $si = "$titulo";
my ($name,$aliases,$addrtype,$length,@addrs) = gethostbyname($si);
my $ip = inet_ntoa($addrs[0]);

$salida->set_text("$ip");
$salida->set_editable(FALSE);
}