полезные регекспы?

типа выдиралка урлов
выдиралка проксей и т.д.

если не против то я начну :-)


1) выдирает урлы:
$content =~ /<a.+href="?'?([^'" ]+)'?"?.+>/igs

2) выдирает прокси (простой вариант)
$content =~ /([\w\-\.]+[\t\r\n\s ]*)[\t\r\n\s ]*(?::|port|<[^>]+>)[^\d]+(\d+)/igs
не работает в извращенных формах где между адресом и портом например два поля <td> и более





to be continue...

непохоже ;)

"?'? как-то неочень  меняем на ["'] ['"] соответственно, да и .+/g даёт очень часто неверный результат...

perldoc Regexp::Common

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

ну я думаю не лишним будет
самые крутые и лучшие регекспы выложить в отдельную модерируемую тему где не будет флуда

надо тебе какие-то данные выдрать, зашел, а тут уже есть готовый регэкп =)

До(очень много) всяких модулей на cpan, которые делают больше и быстрее, так что нечего дополнить. Регэкспы Perl работают медленнее Ц.

а модули которые на цпан, не юзают регекспы перла???????    или я мож чего не понимаю?

Добавлено @ 23:43 
модулями пользуются в основном те кто не может написать сам, имхо или кому некогда =)

НО модули которые парсят (выдирают то что тебе нужно) мне кажется нужно писать самому (и для образования полезно и ошибок меньше будет)

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

насчет писать самому:
есть модуль который парсит формы
я в свое время написал свой который парсит все и вся, в отличии что идет стандартный на цпан, он половину форм не парсил более мения измененных! так то вот