regex - 如何使用 Perl 有选择地修改 HTML 文档中脚本标记的 src 属性？

Question

我需要在 Perl 中编写一个正则表达式，为所有 src 添加前缀 [perl]texthere[/perl]，如下所示:

 <script src="[perl]texthere[/perl]/text"></script> 

有什么帮助吗？谢谢!

Answer 1

使用适当的解析器，例如 HTML::TokeParser::Simple :

#!/usr/bin/env perl

use strict; use warnings;
use HTML::TokeParser::Simple;

my $parser = HTML::TokeParser::Simple->new(handle => \*DATA);

while (my $token = $parser->get_token('script')) {
    if ($token->is_tag('script')
            and defined(my $src = $token->get_attr('src'))) {
            $src =~ m{^https?://}
                or  $token->set_attr('src', "[perl]texthere[/perl]$src");
    }
    print $token->as_is;
}

__DATA__
<script src="/js/text.text.js/"></script>

And at the same time, ignore scrs that begin with http, as such:

 <script src="https://websitewebsitewebsite"></script>

输出:

<script src="[perl]texthere[/perl]/js/text.text.js/"></script>

And at the same time, ignore scrs that begin with http, as such:

 <script src="https://websitewebsitewebsite"></script>