我想替换:
'''<font size="3"><font color="blue"> SUMMER/WINTER CONFIGURATION FILES</font></font>'''
附:
='''<font color="blue"> SUMMER/WINTER CONFIGURATION FILES</font>'''=
现在我的现有代码是:
$html =~ s/\n(.+)<font size=\".+?\">(.+)<\/font>(.+)\n/\n=$1$2$3=\n/gm
然而,最终结果如下:
=''' SUMMER/WINTER CONFIGURATION FILES</font>'''=
现在我可以看到发生了什么,它匹配< font size =“.....一直到< font color blue”>结尾这不是我想要的,我希望它停在第一个“不是最后一个实例,我认为那就是把那个标记放在那里,但是我已经尝试了……?.和.*?with每次都是相同的结果.
任何人都有任何想法我做错了什么?
正如马克所说,只需使用
CPAN即可.
#!/usr/bin/env perl use strict; use warnings; use HTML::TreeBuilder; my $s = q{<font size="3"><font color="blue"> SUMMER/WINTER CONFIGURATION FILES</font></font>}; my $tree = HTML::TreeBuilder->new; $tree->parse( $s ); print $tree->find_by_attribute( color => 'blue' )->as_HTML; # => <font color="blue"> SUMMER/WINTER CONFIGURATION FILES</font>
这适用于您的具体情况,但是:
#!/usr/bin/env perl use strict; use warnings; my $s = q{<font size="3"><font color="blue"> SUMMER/WINTER CONFIGURATION FILES</font></font>}; print $s =~ m{ < .+? > (.+)? </.+? > }mx; # => <font color="blue"> SUMMER/WINTER CONFIGURATION FILES</font>
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。