如何使用 perl 在 html 中搜索和替换特定的 src="url" 标签？

Question

假设我有一个变量，其中包含一堆文本，包括普通 HTML 标记中的 URL。特别是，我对标签的 src= 元素感兴趣。假设我知道我想在那一堆文本中搜索的确切 src= 字符串，并且我想用其他一些文本替换它。 . .这是我尝试过的一些方法（伪代码）：

my $bunchotxt = << 'END_MESSAGE';
<a href="http://link.com/image.gif"><img class="alignleft size-thumbnail wp-image-295" src="http://link.com/image.gif" alt="shredding" width="150" height="150" /></a>Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis convallis fringilla dui eget cursus. Nullam in mauris viverra elit pharetra fringilla. Pellentesque gravida ligula sit amet magna blandit, semper luctus enim semper. Nam a sem ut ex aliquam consectetur. Nulla enim metus, porta at elementum non, facilisis ullamcorper nisl. Vestibulum sed iaculis ante. Nullam mollis luctus posuere.

Suspendisse ipsum odio, iaculis in malesuada id, varius
END_MESSAGE

my $parser = HTML::TokeParser::Simple->new(
    string => $bunchotxt
);

while ( my $tag = $parser->get_tag('img') ) {
    #print $tag->as_is, "\n";
    for my $attr ( qw( src ) ) {
        $replaceStr = sprintf qq{%s="%s"\n}, $attr, $tag->get_attr($attr);
        $parsedtag =~ s/"//g;
        my @bits = $url->path_segments( );
        $cidreplace{$unparsedtag} = $path;
    }
    my $replaceStr = "src:\"replaced\"";
    $bunchotxt =~ s/$findURL/$replaceStr/g;
    print "$buchotxt\n";
}

Answer 1

首先，我们需要将您的问题提炼到我们真正关心的部分。您的示例代码不是很好，因为它包含许多不相关的错误，所以我冒昧地删除了我认为解决问题绝对必要的东西。我还在您的 HTML 中添加了一些换行符以帮助水平滚动。

剩下的就是：

use strict;
use warnings;

use HTML::TokeParser::Simple;

my $bunchotxt = << 'END_MESSAGE';
<a href="http://link.com/image.gif">
  <img
      class="alignleft size-thumbnail wp-image-295"
      src="http://link.com/image.gif"
      alt="shredding"
      width="150"
      height="150" />
</a>
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis convallis
fringilla dui eget cursus. Nullam in mauris viverra elit pharetra fringilla.
Pellentesque gravida ligula sit amet magna blandit, semper luctus enim semper.
Nam a sem ut ex aliquam consectetur. Nulla enim metus, porta at elementum non,
facilisis ullamcorper nisl. Vestibulum sed iaculis ante. Nullam mollis luctus
posuere.

Suspendisse ipsum odio, iaculis in malesuada id, varius
END_MESSAGE

my $parser = HTML::TokeParser::Simple->new(string => $bunchotxt);

while (my $tag = $parser->get_tag('img')) {
    my $src = $tag->get_attr('src');
    $bunchotxt =~ s/\Qsrc="$src"\E/src:"replaced"/g;
    print "$bunchotxt\n";
}

结果的第一行是：

<a href="http://link.com/image.gif"><img class="alignleft size-thumbnail wp-image-295" src:"replaced" ...