如何使用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" ...