-3

我正在尝试匹配所有src不以http.

4

3 回答 3

2

那不是“非”运算符。那是“行首”锚字符。

类似的东西s!^(?!http)/?!$PATH_BLAH/!可能是你正在寻找的东西。

于 2012-06-28T15:26:45.213 回答
2

您希望将 URI 解析为绝对 URI。使用强大的 HTML 解析器：

use strictures;
use URI qw();
use Web::Query 'wq';

my $PATH_BLAH = 'http://example.com/blah/';
my $html = <<'HTML';
<html><head></head><body>
<img src="../relative-link" />
<img src="yup/another/one" />
<img src="/oh/I/start/with/a/slash" />
<img src="http://example.net/absolute-link" />
</body></html>
HTML

my $w = wq $html;
$w->find('*[src]')->each(sub {
    my (undef, $e) = @_;
    $e->attr('src', URI->new_abs($e->attr('src'), $PATH_BLAH));
});
print $w->html;

__END__
<html><head></head><body>
<img src="http://example.com/relative-link" />
<img src="http://example.com/blah/yup/another/one" />
<img src="http://example.com/blah/oh/I/start/with/a/slash" />
<img src="http://example.net/absolute-link" />
</body></html>
于 2012-06-28T15:37:59.763 回答
0

那不是 Perl。我猜这是一个正则表达式？而且我猜您正在尝试匹配不包含“http”的字符？如果是这样，你想要

(?:(?!http).)*

(?:(?!STRING).)就是(?:STRING)这样。[^CHAR]_CHAR

于 2012-06-28T19:38:12.513 回答