Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Регулярные выражения > Заменить все вхождения,кроме тех,что между тегами

Автор: yorc 26.1.2010, 10:38

привет всем!

поиск дал мне одну ветку, похожую на мой случай, но не совсем: http://forum.vingrad.ru/topic-279589.html

поэтому всё же попытаюсь сформулировать вопрос.
есть строка $st и есть хэш %k, в котором содержится список слов, которые нужно заменить на специфического вида ссылки (причём ВСЕ их вхождения в строку!)

написал вот такой код:

Код


        my $st = "some text about some shit";
        foreach (sort {$k{$b} <=> $k{$a}} keys %k) {
         my $wt = $_;
         $wt =~ s/\s+/\_/g;
         my $newst = "<b><a href=\"http\:\/\/URL\/$wt\" ".
                     "title=\"smth\" target=_blank>$_</a></b>";
         my $newpos = 0;
         while ((my $pos = index $st, $_, $newpos) >= 0) {
             my $ts = substr $st, $pos, length($_), $newst;
             $newpos = $pos + length($newst);
         }
        }

подозреваю, что он, мягко говоря, не самый оптимальный... да и работает плоховато :(
дело в том, что зачастую после нескольких проходов в тексте, который УЖЕ содержит ссылки, очередное слово из массива обнаруживается МЕЖДУ ТЕГАМИ уже сформированной ссылки!
в связи с этим вопрос: как можно это всё переписать более грамотно с помощью регекспов и, самое главное, как сделать так, чтобы слово НЕ заменялось на ссылку, если оно найдено МЕЖДУ существующими тегами <a></a> ?

всем заранее спасибо за помощь!

Автор: sir_nuf_nuf 26.1.2010, 11:44

Код


my $str = "bla blo ble";
my %data = (bla => 'ya.ru', blo => 'mail.ru', ble => 'go.ru');
my $regex = join '|', map {quotemeta($_)} keys %data;
$str =~ s[($regex)][<a href="http://$data{$1}/" target="_blank">link</a>]g;
print $str;

Как то так

Автор: yorc 26.1.2010, 13:22

спасибо огромное!!!
немного исправил, но заработало! обожаю регекспы - только бы ещё научиться их понимать...