如何使用Perl提取或更改HTML中的链接？

我有这个输入文字:

   
     
   
   
     
       
         
       
       
         
         
 what y all heard?
i'm shark oysters.
             
 
             
 
             
 
             
 
             
 
             
 
         
       
       
         
       
     
   
 
 
 

正如您所看到的,HTML文本块中没有换行符,我需要查找内部的所有图像链接,将它们复制到目录中,并将文本内部的行更改为类似的内容./images/file_name.

目前,我使用的Perl代码如下所示:

my ($old_src,$new_src,$folder_name);
    foreach my $record (@readfile) {
        ## so the if else case for the url replacement block below will be correct
        $old_src = "";
        $new_src = "";
        if ($record =~ /\

这仅足以处理带有换行符的HTML文本.我认为只循环正则表达式语句,但后来我必须将匹配行更改为其他文本.

你有任何想法是否有一个优雅的Perl方式来做到这一点？或者也许我只是太傻了,看不出明显的做法,而且我知道把全局选项不起作用.

谢谢.〜史蒂夫


1> PhiLho..：
Perl有很好的HTML解析器,学会使用它们并坚持使用它.HTML很复杂,允许>属性,大量使用嵌套等.使用正则表达式解析它,除了非常简单的任务(或机器生成的代码)之外,很容易出现问题.