任务
替换任何标记内容中的所有空格 .
y.html(示例文件)
<p class=MsoNormal style='margin-top:1.0pt;margin-right:0cm;margin-bottom:1.0pt;
margin-left:34.0pt;text-indent:-19.8pt'><span lang=NL-BE style='font-size:10.0pt;
font-family:Symbol;color:black;mso-ansi-language:NL-BE'>·</span><span
class=GramE><span style='font-size:7.0pt;color:black'>
</span><span style='font-size:10.0pt;font-family:Arial;color:black'>Kit</span></span><span
style='font-size:10.0pt;font-family:Arial;color:black'> </span><span
class=SpellE><i><span style='font-size:10.0pt;font-family:Arial'>Strongyloides</span></i></span><i><span
style='font-size:10.0pt;font-family:Arial'> <span class=SpellE>ratti</span></span></i><span
style='font-size:10.0pt;font-family:Arial'> (nr. 9450) van <span class=SpellE>Bordier</span>
Affinity Products. </span><span lang=NL-BE style='font-size:10.0pt;font-family:
Arial;mso-ansi-language:NL-BE'>Zie bijsluiter in bijlage: CLKB_B_0306. Te
bewaren bij 2 – 8 °C tot vervaldatum.</span><span lang=NL-BE style='mso-ansi-language:
NL-BE'><o:p></o:p></span></p>
我尝试了什么
#!/usr/bin/perl
use strict;
use warnings;
use Mojo::DOM;
open (my $fh, "<", "y.html") or die $!;
my $dom = Mojo::DOM->new(do{local $/ = undef; <$fh>});
$dom->find("*")->each( sub { $_->content( $_->content =~ s/\s/\ /gr ) } );
print $dom;
上面脚本的结果
<p class="MsoNormal" style="margin-top:1.0pt;margin-right:0cm;margin-bottom:1.0pt;
margin-left:34.0pt;text-indent:-19.8pt"><span lang="nl-be" style="font-size:10.0pt; font-family:symbol;color:black;mso-ansi-language:nl-be">·<span class="grame"><span style="font-s
ize:7.0pt;color:black"> <span style="font-size:10.0pt;font-family:arial;color:black">Kit<span style="font-size:10.0pt;font-family:arial;color:black"> <span class="spelle"><i><span&nb
sp;style="font-size:10.0pt;font-family:arial">Strongyloides<i><span style="font-size:10.0pt;font-family:arial"> <span class="spelle">ratti<span style="font-size:10.0pt;font-family:arial"> (n
r. 9450) van <span class="spelle">Bordier Affinity Products. <span lang="nl-be" style="font-size:10.0pt;font-family: arial;mso-ansi-language:nl-be">Zie bijsluiter in bijlage: CLKB_B_030
6. Te bewaren bij 2 – 8 °C tot vervaldatum.<span lang="nl-be" style="mso-ansi-language: nl-be"><o:p></o:p></span lang="nl-be" style="mso-ansi-language: nl-be"></span lang
="nl-be" style="font-size:10.0pt;font-family: arial;mso-ansi-language:nl-be"></span class="spelle"></span style="font-size:10.0pt;font-family:arial"></span class="spelle"></span&nb
sp;style="font-size:10.0pt;font-family:arial"></i></span style="font-size:10.0pt;font-family:arial"></i></span class="spelle"></span style="font-size:10.0pt;font-family:arial;color:black"></
span style="font-size:10.0pt;font-family:arial;color:black"></span style="font-size:7.0pt;color:black"></span class="grame"></span lang="nl-be" style="font-size:10.0pt; font-f
amily:symbol;color:black;mso-ansi-language:nl-be"></p>
我没有获得所需的输出,它 也添加了标签(例如:) </span ,我希望只在内容上完成.
PS:我尝试过Mojo::DOM,但没有必要使用它,你可以尝试任何其他解析器,如果你想,我仍然想知道我的代码有什么问题？
这是一项将输入标记化使其更易于使用的工作。因此我建议使用HTML::TokeParser
#!/usr/bin/perl\nuse strict;\nuse warnings;\nuse utf8;\n\nuse HTML::TokeParser;\n\nmy $data = do {local $/; <DATA>};\n\nmy $p = HTML::TokeParser->new(\\$data);\n\nwhile (my $token = $p->get_token) {\n if ($token->[0] eq \'T\') {\n my $text = $token->[1];\n $text =~ s/ / /g;\n print $text;\n } else {\n print "$token->[-1]";\n }\n}\n\n__DATA__\n<html>\n<body>\n<p class=MsoNormal style=\'margin-top:1.0pt;margin-right:0cm;margin-bottom:1.0pt;\nmargin-left:34.0pt;text-indent:-19.8pt\'><span lang=NL-BE style=\'font-size:10.0pt;\nfont-family:Symbol;color:black;mso-ansi-language:NL-BE\'>\xc2\xb7</span><span\nclass=GramE><span style=\'font-size:7.0pt;color:black\'> \n</span><span style=\'font-size:10.0pt;font-family:Arial;color:black\'>Kit</span></span><span\nstyle=\'font-size:10.0pt;font-family:Arial;color:black\'> </span><span\nclass=SpellE><i><span style=\'font-size:10.0pt;font-family:Arial\'>Strongyloides</span></i></span><i><span\nstyle=\'font-size:10.0pt;font-family:Arial\'> <span class=SpellE>ratti</span></span></i><span\nstyle=\'font-size:10.0pt;font-family:Arial\'> (nr. 9450) van <span class=SpellE>Bordier</span>\nAffinity Products. </span><span lang=NL-BE style=\'font-size:10.0pt;font-family:\nArial;mso-ansi-language:NL-BE\'>Zie bijsluiter in bijlage: CLKB_B_0306. Te\nbewaren bij 2 \xe2\x80\x93 8 \xc2\xb0C tot vervaldatum.</span><span lang=NL-BE style=\'mso-ansi-language:\nNL-BE\'><o:p></o:p></span></p>\n</body>\n</html>\n输出：
\n\n<html>\n<body>\n<p class=MsoNormal style=\'margin-top:1.0pt;margin-right:0cm;margin-bottom:1.0pt;\nmargin-left:34.0pt;text-indent:-19.8pt\'><span lang=NL-BE style=\'font-size:10.0pt;\nfont-family:Symbol;color:black;mso-ansi-language:NL-BE\'>\xc2\xb7</span><span\nclass=GramE><span style=\'font-size:7.0pt;color:black\'> \n</span><span style=\'font-size:10.0pt;font-family:Arial;color:black\'>Kit</span></span><span\nstyle=\'font-size:10.0pt;font-family:Arial;color:black\'> </span><span\nclass=SpellE><i><span style=\'font-size:10.0pt;font-family:Arial\'>Strongyloides</span></i></span><i><span\nstyle=\'font-size:10.0pt;font-family:Arial\'> <span class=SpellE>ratti</span></span></i><span\nstyle=\'font-size:10.0pt;font-family:Arial\'> (nr. 9450) van <span class=SpellE>Bordier</span>\nAffinity Products. </span><span lang=NL-BE style=\'font-size:10.0pt;font-family:\nArial;mso-ansi-language:NL-BE\'>Zie bijsluiter in bijlage: CLKB_B_0306. Te\nbewaren bij 2 \xe2\x80\x93 8 \xc2\xb0C tot vervaldatum.</span><span lang=NL-BE style=\'mso-ansi-language:\nNL-BE\'><o:p></o:p></span></p>\n</body>\n</html>\n| 归档时间： |
|
| 查看次数： |
727 次 |
| 最近记录： |