У меня такой вопрос.
Есть строка $string. В ней есть обязательно ссылка. Я пытаюсь проверить, если в этой ссылке url не равен site.com, то вставить target=_blank в <a target="blank" href="http://other-site.com/"> .
Заранее благодарен.

• Регулярные выражения.,Etch, 14:26 , 08-Авг-11
• Регулярные выражения.,erera22, 15:30 , 08-Авг-11
• Регулярные выражения.,никто, 21:29 , 09-Авг-11

> У меня такой вопрос.
> Есть строка $string. В ней есть обязательно ссылка. Я пытаюсь проверить, если
> в этой ссылке url не равен site.com, то вставить target=_blank в
> <a target="blank" href="http://other-site.com/"> .
> Заранее благодарен.

$ echo '123 666 <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>.' | perl -nE 's@(<a\s+)(href="?http://(?!site.com).*?"?>)@$1target="_blank" $2@gi; print;'

123 666 <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://3-site.com/">yes</a>.

> У меня такой вопрос.
> Есть строка $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>

> У меня такой вопрос.
> Есть строка $string. В ней есть обязательно ссылка. Я пытаюсь проверить, если
> в этой ссылке url не равен site.com, то вставить target=_blank в
> <a target="blank" href="http://other-site.com/"> .
> Заранее благодарен.

http://www.php.net/manual/en/function.parse-url.php