Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> помогите с регексом 
:(
    Опции темы
DooZ
Дата 12.2.2007, 20:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 206
Регистрация: 25.11.2005

Репутация: нет
Всего: 1



нужен в принципе регекс для выдирания проксей из всевозможных комбинаций
начиная с классики
1.2.3.4:3128
domain.com:1080
это легко и это написано

и заканчивая такими геморами типа (то в чем проблема):
http://www.publicproxyservers.com/page1.html
т.е. тут вот в таком виде:
<td align="left" height=17>202.82.116.26</td>
<td height=17>3128</td>

задача такая ИП (домен) выдирается это не проблема!
а вот порт не выдирается
кусок который выдирает
<[^>]+>)[^\d]+(\d+) в данном случае выдерет 17 вместо 3128
а ведь между ИП и портом может быть не два <td> как тут, а три и более

вот собственно и задачка =)

заранее сенькс
PM MAIL   Вверх
nitr
Дата 12.2.2007, 22:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84



Код

#!perl
use strict; use warnings;

my $content = <<HTML;
<td align="left" height=17>202.82.116.26</td>
<td height=17>3128</td> 
<tr>
<td align="left" height=17>200.1.1.1</td>
<td height=17>80</td> 
HTML

my @plist;
push (@plist, "$1:$2") while $content =~ />([\d.]+)<.+?>(\d+)</igs;

print join("\n", @plist);


Это сообщение отредактировал(а) nitr - 12.2.2007, 22:49


--------------------
PM   Вверх
DooZ
Дата 12.2.2007, 23:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 206
Регистрация: 25.11.2005

Репутация: нет
Всего: 1



<td align="center"><font face="Times"><font New Roman Cyr>conan.gocis.bg</font></font></td>
        <td align="center"><font face="Times"><font New Roman Cyr>8080</font></font></td>
про такие прокси забыть мона ?

нужна универсальная (ну хотяб почти универсальная) которая вот отсюда
http://proxy.mazafaka.ru/
http://tapor.com/checkp/
http://stuff-free.chat.ru/fps1.htm
http://www.publicproxyservers.com/page1.html
выдирала нормально прокси

реально?

Это сообщение отредактировал(а) DooZ - 12.2.2007, 23:56
PM MAIL   Вверх
nitr
Дата 13.2.2007, 00:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84



DooZ, читай доки, полезно...
Код

...
push (@plist, "$1:$2") while $content =~ />([\d\w.]+)<.+?>(\d+)</igs;
...


Это сообщение отредактировал(а) nitr - 13.2.2007, 00:20


--------------------
PM   Вверх
DooZ
Дата 13.2.2007, 00:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 206
Регистрация: 25.11.2005

Репутация: нет
Всего: 1



меняем задачу, видимо я не верно выразился

вот часто втречающиеся виды проксей
попробуй выдери их все в одном универсальном регэкспе, реально такое?

http://www.samair.ru/proxy/socks.htm
http://www.publicproxyservers.com/page1.html
http://stuff-free.chat.ru/fps1.htm
http://tapor.com/checkp/
http://proxy.mazafaka.ru/
http://bestproxy.narod.ru/proxy1.html
http://www.madalf.ru/proxylist.shtm
http://membres.lycos.fr/nohack/proxis.html
http://www.antiproxy.com/proxysearch.php?s...t=3128&m=40
!!! http://www.guidalavoro.net/stats/site_200610.html
http://proxylist.sakura.ne.jp/
http://www.proxy-list.biz/

Это сообщение отредактировал(а) DooZ - 13.2.2007, 00:27
PM MAIL   Вверх
nitr
Дата 13.2.2007, 00:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84



DooZ, это кто будет по ссылкам лазить??? За вас писать скрипты ;) ? Я вам подал идею и именно по вашему примеру, а сделать универсальную регеспу, флаг как говориться в нужное место! (без обид)


--------------------
PM   Вверх
DooZ
Дата 13.2.2007, 00:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 206
Регистрация: 25.11.2005

Репутация: нет
Всего: 1



cut

Это сообщение отредактировал(а) DooZ - 13.2.2007, 00:38
PM MAIL   Вверх
nitr
Дата 13.2.2007, 00:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84



smile красивая регеспа... пригодиться может кому ;)
для какого сайта - хз smile
но для сбора со многих ;)
Код

#!perl
use strict; use warnings;

my $content = <<HTML;
<td align="left" height=17>202.82.116.26</td>
<td height=17>3128</td> 
<tr>
<td align="left" height=17>200.1.1.1</td>
<td height=17>80</td> 
<tr>
<td align="left" height=17>domain.com</td>
<td height=17>80</td> 
HTML

my @plist;
push (@plist, "$1:$2") while $content =~ />([\d\w.]+)<.+?>(\d+)</igs;

print join("\n", @plist);



--------------------
PM   Вверх
DooZ
Дата 13.2.2007, 00:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 206
Регистрация: 25.11.2005

Репутация: нет
Всего: 1



2nitr: ты мою мессагу в личке получил?
PM MAIL   Вверх
tishaishii
Дата 15.2.2007, 07:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Создатель
***


Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8



Цитата
\d\w
 - бессмысленно, можно просто \w.
PM MAIL ICQ Skype   Вверх
stan777
Дата 15.2.2007, 10:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 145
Регистрация: 29.1.2007

Репутация: нет
Всего: нет



Цитата(DooZ @ 13.2.2007,  00:48)
2nitr: ты мою мессагу в личке получил?

Универсальных программ как и регехпов не бывает, а зачем тебе столько проксей, шпионить собрался smile ?
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0509 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.