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