Парсинг ip с 2ip на perl?

Question

[networkSolutions]

Помогите простым примером парсинга ip с 2ip.ru на perl

Answer 1

[krypt3r]

Нечто типа

my ($ip) = $page_content =~ m|<span>\s*Ваш IP адрес:\s*</span>.*?<big.*?>((?:\d{1,3}\.){3}\d{1,3})</big>|ism;

Answer 2

[dionys]

perl -Mojo -E 'say g("http://2ip.ru/")->dom("#d_clip_button")->text'

Answer 3

[Rozello]

#!/usr/bin/env perl

# Включаем варнинги и ужесточение синтаксиса
use strict;
use warnings;

# Включаем библиотеку для работы с http
use LWP::Simple;

# Качаем страницу, если не удалось пркращаем работу
my $page = get('http://2ip.ru/') or die "Can't get page!";

# Парсим IP ргуляркой если не удалось прекращаем работу
my ($ip) = ($page =~ m!(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})!) or die "Can't pars IP!";

# Выводим IP
print 'You IP: '.$ip."\n";