@networkSolutions

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

Помогите простым примером парсинга ip с 2ip.ru на perl
  • Вопрос задан
  • 2402 просмотра
Пригласить эксперта
Ответы на вопрос 3
@krypt3r
Нечто типа
my ($ip) = $page_content =~ m|<span>\s*Ваш IP адрес:\s*</span>.*?<big.*?>((?:\d{1,3}\.){3}\d{1,3})</big>|ism;
Ответ написан
@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";
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы