ANTICHAT — форум по информационной безопасности, OSINT и технологиям

$p01nt ты покажи типы возможных вариантов. от них зависит регулярка

#!usr/bin/perl

use strict;
use LWP::Simple;

open(FIL,">spars.txt");

my $url='http://mariel.ru/index.html';
my $content=get $url;

my $pervzagal=$content;
my $pervtext=$content;
$pervzagal=~/<font style="font-size: 12pt; font-family:Arial; color:#335DA3; text-decoration: none "><b>(.*)<\/b><\/font>/g;
print FIL $1;
$pervtext=~/<div style="margin-top: 8px; margin-bottom: 2px">(.*)&nbsp;<a href=Article1579.html style="font-size: 8pt; font-weight: normal; font-family:Arial; color:#335da3; text-decoration: underline ">/g;
print FIL $2;

не получается спарсить pervtext , в чем ошибка ?

во втором надо $1 у тебя ведь только одно вхождение

я пробывал - он выводит то же что и в pervzagal

Нужен хороший туториал по регексам для новичков.

и опять вопрос и опять по регуляркам Допустим есть такой текст :

http://www.mail.com http://www.gmail.com http://www.yahoo.com

Нужно найти только mail.com gmail.com yahoo.com
Я делаю так

$text="http://www.mail.com http://www.gmail.com http://www.yahoo.com";
$text=~/http:\/\/www\.(.?) h/ig;
print $1;
print $2;
print $3;

И мне выводит только www.mail.com . В чем ошибка ? И как можно заменять $1 , $2 etc. одним выражением?

while($text=~/http:\/\/www\.(\S+)/ig)
print $1;

Кукую Ide вы используете для создания скриптов на перл?