[Perl] Новичкам: задаем вопросы

помогите с регуляркой ! <font style="font-size: 12pt; font-family:Arial; color:#335DA3; text-decoration: none "><b>XXXXXXXXXXXXXX</b></font>
найти XXXXXXXXXXXXXX

 

$a = '<font style="font-size: 12pt; font-family:Arial; color:#335DA3; text-decoration: none "><b>XXXXXXXXXXXXXX</b></font>';
my ($b) = $a =~ /<b>[^<]+<\/b>/;

 

Code:

if ($s =~ /text-decoration: none \"><b>(\d{1,10})<\/b>/) { print $1 }

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

 

Нехорошо так делать...

<font style="font-size: 12pt; font-family:Arial; color:#335DA3; text-decoration: none "><B>Hello <i>to</i> all!</b></font>

вообще ничего не выдаст, и

<font style="font-size: 12pt; font-family:Arial; color:#335DA3; text-decoration: none "><и>Hello <i>to</i> all!</b></font>

тоже обломится...

 

Pifit Ответ не верный ) если искать только по тегу <b> то у меня еще куча не нужного найдется , поэтому я и дал с тегом <font> . ZAMUT нет текст

 

Zamut - там русские символы ) пробывал А-я н подходит (

 

/<font style="font-size: 12pt; font-family:Arial; color:#335DA3; text-decoration: none "><b>(.*)<\/b><\/font>/;

 

$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

 

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

 

Code:

perldoc perlre

 

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

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 вы используете для создания скриптов на перл?

 

Piflit что то не компилится

ZOB - vi

 

Эхх.

Code:

$text = "http://www.mail.com http://www.gmail.com http://www.yahoo.com";
@a = $text =~ m[http://www.(\w+.com)]g;

vi - редактор не более
Komodo - отличный Ide

 

Есть скрипт приглашения вконтакте:

Code:

#!/usr/bin/perl
use strict;
use warnings;
use threads;
use threads::shared;
use IO::Socket::INET;

my $startId : shared;

$startId = 4762539;
my $cookie = 'remixpass=ПАРОЛЬ; remixemail=ЛОГИН%40(mail.ru); remixmid=ВАШ АЙДИ;
my $threads = 4;
my @thread;
for(0..$threads) { $thread[$_] = threads->create(\&flood); }
for(0..$threads) { $thread[$_]->join; }

sub flood {
     while (1) {
         if ( my $socket = new IO::Socket::INET(PeerAddr => 'vkontakte.ru', PeerPort => 80, Proto    => 'tcp') ) {
          { lock($startId); $startId++; print $startId."\n"}
              print $socket "HEAD http://vkontakte.ru/matches.php?act=a_sent&to_id=$startId&dec=1 HTTP/1.1\r\n".
                     "Host: vkontakte.ru\r\n".
                           "Cookie: $cookie\r\n\r\n";
             close $socket
             }
         }
}

Можите подсказать где ошибка?

 

Code:

my $cookie = 'remixpass=ПАРОЛЬ.....Ш АЙДИ;

Скобу не закрыл