Помогите разобраться с регуляркой

[xzfrqtn7]

Собственно, есть код:

Код:

var code='<style>'
+'#btbashtelrucontext {padding:0; font-size:14px; color:#fff; border:0;}'
+'#btbashtelrucontext td {width:20px; height:2px; border:0; }'
+'</style>'
+'<table id="btbashtelrucontext" cellspacing="0" cellpadding="0" border="0">'
+'	<tr><td>'
+'			<a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=12&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №1</a><br />'
+'			<a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=11&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №2</a><br />'
+'			<a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=10&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №3</a><br />'
+'			<a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=11&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №4</a><br />'
+'			<a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=11&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №5</a><br />'
+'			<a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=10&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №6</a><br />'
+'			<a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=10&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №7</a><br />'
+'			<a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=11&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №8</a><br />'
+'	</td></tr>'
+'</table>';
document.write(code);

Собственно, как выцепить любой код ссылки href? Уже неделю пытаюсь, так и не выходит ничего путного... Прошу помочь, заранее огромное спасибо...

[Serg79]

xzfrqtn7, ты вообще сам понимаешь откуда у тебя этот кусок кода, что надо сделать и какое участие здесь должен принимать perl.

Из твоего вопроса мне кажется, что ты очень далек от поставленной цели.))

[RXL]

Код:

#!/usr/bin/perl -W

my $text = <<EOF;
var code='<style>'
+'#btbashtelrucontext {padding:0; font-size:14px; color:#fff; border:0;}'
+'#btbashtelrucontext td {width:20px; height:2px; border:0; }'
+'</style>'
+'<table id="btbashtelrucontext" cellspacing="0" cellpadding="0" border="0">'
+'      <tr><td>'
+'                      <a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=12&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №1</a><br />'
+'                      <a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=11&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №2</a><br />'
+'                      <a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=10&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №3</a><br />'
+'                      <a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=11&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №4</a><br />'
+'                      <a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=11&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №5</a><br />'
+'                      <a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=10&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №6</a><br />'
+'                      <a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=10&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №7</a><br />'
+'                      <a style="color:#fff;" href="http://bt.bashtel.ru/code/?tps=context&ids=1205&aid=11&s=uclaohh7urlmdjo6en23vr7eb6">Отдаешь свой голос паре №8</a><br />'
+'      </td></tr>'
+'</table>';
document.write(code);
EOF

my @refs = $text =~ m/<a\b[^>]*?\bhref="([^"]+)"[^>]*>/gi;

for my $ref (@refs)
{
    print "$ref\n"
}

xzfrqtn7,  изъясняй свои мысли яснее!

[xzfrqtn7]

Прошу прощения, не дал мне Бог, к сожалению, красноречия знаменитых римских ораторов. Спасибо за код, не совсем то, но я понял, как разобраться... В догонку, хотел бы спросить про генерацию числа рандомно, на перле... Вот код

Код:

$random = int(rand(15)) + 10;

Код генерит рандомно чило от 15 (минимум) до 25 (максимум).... Можно ли сделать так, чтобы генерировать подобным образом число в таком, к примеру, формате : 109.15.147.40 ?

[RXL]

Функция rand(EXPR) генерит действительные числа в диапазоне [0, EXPR) - значение EXPR исключено! Т.е. твой пример даст целые числа от 10 до 24. Функция int не округляет, а отрезает дробную часть.

Можно ли сделать так, чтобы генерировать подобным образом число в таком, к примеру, формате : 109.15.147.40 ?

Это не число.

[xzfrqtn7]

понятно.