Жадность Perl

[Sergey2]

Нужно выцепить ссылку с нужным анкором.

	if (($n_url)=$page=~/<a href=\"(.*?)>$n<\//) {
print $n_url;
	}

и эта гадость работает только если нужная ссылка стоит первой. Если она стоит, например, четвертый, то мы получаем все, начиная от первого <a href и заканчивая анкором.

[arvitaly]

Жадные выражения используйте, и зачем экранировать слеши если можно просто использовать другой символ для ограничения регулярки

[Sergey2]

ДА я там много чего уже пробовал. Подскажи, плз, как нежадные использовать.

[arvitaly]

Покажите $page и $n

[Sergey2]

Сообщение от arvitaly

Покажите $page и $n

<a href="/page.html?page=3&sort=a" title="gggg">ankor1</a>&nbsp;&nbsp;<a href="/page.html?page=4&gt=6" title="gg">ankor2</a>&nbsp;&nbsp;<a_href="/page.html?page=5&sort=a" title="gggg">ankor3</a>&nbsp;&nbsp;<a_href="/page.html?page=6&sort=a" title="gggg">ankor4</a>&nbsp;&nbsp;<a_href="/page.html?page=7&sort=a" title="gggg">ankor5</a>&nbsp;&nbsp;

$n='ankor3';

[arvitaly]

$page='<a href="/page.html?page=3&sort=a" title="gggg">ankor1</a>&nbsp;&nbsp;<a href="/page.html?page=4&gt=6" title="gg">ankor2</a>&nbsp;&nbsp;<a_href="/page.html?page=5&sort=a" title="gggg">ankor3</a>&nbsp;&nbsp;<a_href="/page.html?page=6&sort=a" title="gggg">ankor4</a>&nbsp;&nbsp;<a_href="/page.html?page=7&sort=a" title="gggg">ankor5</a>&nbsp;&nbsp;';
$n='ankor3';
	if (($n_url)=$page=~/<a[^<>]*href=\"([^\"]*)\"[^<>]*>$n<\/a>/) {
        print $n_url;
	}

$page='<a href="/page.html?page=3&sort=a" title="gggg">ankor1</a>&nbsp;&nbsp;<a href="/page.html?page=4&gt=6" title="gg">ankor2</a>&nbsp;&nbsp;<a_href="/page.html?page=5&sort=a" title="gggg">ankor3</a>&nbsp;&nbsp;<a_href="/page.html?page=6&sort=a" title="gggg">ankor4</a>&nbsp;&nbsp;<a_href="/page.html?page=7&sort=a" title="gggg">ankor5</a>&nbsp;&nbsp;';
$n='ankor3';
	if (($n_url)=$page=~/<a.*href=\"(.*?)\".*>$n<\/a>/) {
        print $n_url;
	}

Первый вариант даже для не совсем валидного html подойдет

[Sergey2]

Спасибо. Взял первый вариант. Немного его "проагрейдил:

~/<a[^<>]*href=\"([^\"]*)\"[^<>]*[<\w+>]*>$n</

т.е. иногда анкоры загоняют в теги типа <b>. Я правильно указал, что возможно будет < символы >?

[arvitaly]

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

[Sergey2]

Сообщение от arvitaly

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

иногда ссылки могут принимать вот такой вид:

<a href="/page.html?page=3&sort=a" title="gggg"><b>ankor1</b></a>

как это учесть?

[arvitaly]

    $page='<a href="/page.html?page=3&sort=a" title="gggg">ankor1</a>&nbsp;&nbsp;<a href="/page.html?page=4&gt=6" title="gg">ankor2</a>&nbsp;&nbsp;<a_href="/page.html?page=5&sort=a" title="gggg"><b>ankor3</b></a>&nbsp;&nbsp;<a_href="/page.html?page=6&sort=a" title="gggg">ankor4</a>&nbsp;&nbsp;<a_href="/page.html?page=7&sort=a" title="gggg">ankor5</a>&nbsp;&nbsp;';
    $page2='<a href="/page.html?page=3&sort=a" title="gggg">ankor1</a>&nbsp;&nbsp;<a href="/page.html?page=4&gt=6" title="gg">ankor2</a>&nbsp;&nbsp;<a_href="/page.html?page=5&sort=a" title="gggg">ankor3</a>&nbsp;&nbsp;<a_href="/page.html?page=6&sort=a" title="gggg">ankor4</a>&nbsp;&nbsp;<a_href="/page.html?page=7&sort=a" title="gggg">ankor5</a>&nbsp;&nbsp;';
    $n='ankor3';
	if (($n_url)=$page=~/<a[^<>]*href=\"([^\"]*)\"[^<>]*>(?:<b>)?$n(?:<\/b>)?<\/a>/)
    {
        print $n_url;
	}
    print "\n";
	if (($n_url)=$page2=~/<a[^<>]*href=\"([^\"]*)\"[^<>]*>(?:<b>)?$n(?:<\/b>)?<\/a>/)
    {
        print $n_url;
	}