Исходное сообщение
"Регулярные выражения." Отправлено erera22, 08-Авг-11 15:30
> У меня такой вопрос. > Есть строка $string. В ней есть обязательно ссылка. Я пытаюсь проверить, если > в этой ссылке url не равен site.com, то вставить target=_blank в > <a target="blank" href="http://other-site.com/"> . > Заранее благодарен. #!/usr/bin/perl -w use strict; my @arr = (    '<a href="http://other-site.com/">yes</a>',    '45666 ttttt <a href="http://site.com/">no</a>, ',    'and <a href="http://3-site.com/">yes</a>',    '<a href=paraFSEAxcws.ru/fsdfk.fdsf?gdffsd=432da> fsfeD</a>',    '<a href=dsf.re/fsdfdsf/> f2<F2>ew </a>', ); my $domain = 'site.com'; foreach my $str (@arr) {    chomp ($str);    my $href = (split /href=[\"\']?/, $str)[1];    $href =~ s/[\"\'\>](.*)$//g;    my $url = $href;    $href =~ s/^http\:\/\/|\/(.*)//g;    if ($href ne $domain) {       $url =~ s/\?/\\\?/g;       $str =~ s/href\=[\"\']?($url)[\"\']?/target=\"blank\" href=\"http\:\/\/other-site.com\/\"/g;    }                                                                                                                                                                                                          print $str . "\n"; } =>>> <a target="blank" href="http://other-site.com/">yes</a> 45666 ttttt <a href="http://site.com/">no</a>, and <a target="blank" href="http://other-site.com/">yes</a> <a target="blank" href="http://other-site.com/"> fsfeD</a> <a target="blank" href="http://other-site.com/"> f2<F2>ew </a>

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>> У меня такой вопрос. >> Есть строка $string. В ней есть обязательно ссылка. Я пытаюсь проверить, если >> в этой ссылке url не равен site.com, то вставить target=_blank в >> <a target="blank" href="http://other-site.com/"> . >> Заранее благодарен. > #!/usr/bin/perl -w > use strict; > my @arr = ( > '<a href="http://other-site.com/">yes</a>', > '45666 ttttt <a href="http://site.com/">no</a>, ', > 'and <a href="http://3-site.com/">yes</a>', > '<a href=paraFSEAxcws.ru/fsdfk.fdsf?gdffsd=432da> fsfeD</a>', > '<a href=dsf.re/fsdfdsf/> f2<F2>ew </a>', > ); > my $domain = 'site.com'; > foreach my $str (@arr) { > chomp ($str); > my $href = (split /href=[\"\']?/, $str)[1]; > $href =~ s/[\"\'\>](.*)$//g; > my $url = $href; > $href =~ s/^http\:\/\/|\/(.*)//g; > if ($href ne $domain) { > $url =~ s/\?/\\\?/g; > $str =~ s/href\=[\"\']?($url)[\"\']?/target=\"blank\" href=\"http\:\/\/other-site.com\/\"/g; > } > print $str . "\n"; > } > =>>> > <a target="blank" href="http://other-site.com/">yes</a> > 45666 ttttt <a href="http://site.com/">no</a>, > and <a target="blank" href="http://other-site.com/">yes</a> > <a target="blank" href="http://other-site.com/"> fsfeD</a> > <a target="blank" href="http://other-site.com/"> f2<F2>ew </a>
	Введите код, изображенный на картинке: