entityMap|0|type|LINK|mutability|MUTABLE|data|url|https://www.tutorialspoint.com/execute_perl_online.php|blocks|key|8p0hd|text|我认为您需要转义字符串中的"，因为它会报告"near+"grey"/g'+(假设您在代码中尝试使用grey+)|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|fh8vj|因为整个字符串是："perl+-i+-e+'<string_no_quotes>'+$_"+if+string_no_quotes+has“，它会给出这个错误，所以需要对它进行escpaed。|9dkv9|更新：|58m54|如果像这样的代码行得通，你可以把它写成stdout，然后通过管道把它传送到文件中。|6jer1|foreach+my+$i+('<td>ABC</td>',+'<td>DEF</td>',+'<td>20:00:00</td>',+'<h1>test</h1>')+{
++chomp;
++
++$_+=+$i;
++if+(/\<td/)+{
++++++print+'s/<td/<td+bgcolor="blue"/g';
+++}+else+{
++++++print+$_;
+++}
}|code-block|syntax|javascript|9fm01|我用for循环替换了while循环，这样我就可以在在线解析器中测试它。我使用的是这样的：https://www.tutorialspoint.com/execute_perl_online.php|20nqd^0|D|1|L|F|0|9|10|0|0|0|0|18|1I|0|0^^$0|$1|$2|3|4|5|6|$7|8]]]|9|@$A|B|C|D|2|E|F|10|G|@$H|11|I|12|J|K]|$H|13|I|14|J|K]]|L|@]|6|$]]|$A|M|C|N|2|E|F|15|G|@$H|16|I|17|J|K]]|L|@]|6|$]]|$A|O|C|P|2|E|F|18|G|@]|L|@]|6|$]]|$A|Q|C|R|2|E|F|19|G|@]|L|@]|6|$]]|$A|S|C|T|2|U|F|1A|G|@]|L|@]|6|$V|W]]|$A|X|C|Y|2|E|F|1B|G|@]|L|@$H|1C|I|1D|A|1E]]|6|$]]|$A|Z|C|-4|2|E|F|1F|G|@]|L|@]|6|$]]]]

I think you need escape the <code>&quot;</code> in the string since it complains about
<code>&quot;near &quot;grey&quot;/g' </code>
(assumed you tried with grey in your code)
Since the whole string is: <code>&quot;perl -i -e '&lt;string_no_quotes&gt;' $_&quot;</code> if string_no_quotes has &quot; it will give this error, so it needs to be escpaed.
Update:
Should something like this work you write it stdout and pipe it to the file instead?:
<pre><code>foreach my $i ('&lt;td&gt;ABC&lt;/td&gt;', '&lt;td&gt;DEF&lt;/td&gt;', '&lt;td&gt;20:00:00&lt;/td&gt;', '&lt;h1&gt;test&lt;/h1&gt;') {
 chomp;
 
 $_ = $i;
 if (/\&lt;td/) {
 print 's/&lt;td/&lt;td bgcolor=&quot;blue&quot;/g';
 } else {
 print $_;
 }
}
</code></pre>
I replaced the while loop with for loop so I could test it in an online parser. The one I used was this: <a href="https://www.tutorialspoint.com/execute_perl_online.php" rel="nofollow noreferrer">https://www.tutorialspoint.com/execute_perl_online.php</a>

entityMap|0|type|LINK|mutability|MUTABLE|data|url|https://metacpan.org/pod/XML::LibXML|blocks|key|5mq9o|text|当涉及到解析复杂的HTML文件时，正则表达式可能会变得效率低下，更好的做法是使用专用的HTML解析器。下面是一个使用XML::LibXML的示例，假设您有一个有效的HTML文件：|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|df853|use+strict;
use+warnings;
use+XML::LibXML;

my+$filename+=+'file.html';
my+$html+=+XML::LibXML->load_html(+location++=>+$filename+);
for+my+$node+($html->findnodes('//td'))+{
++++$node->setAttribute(bgcolor+=>+"blue");
}
print+$html->toStringHTML;|code-block|syntax|javascript|7repf^0|1M|B|0|0|0^^$0|$1|$2|3|4|5|6|$7|8]]]|9|@$A|B|C|D|2|E|F|Q|G|@]|H|@$I|R|J|S|A|T]]|6|$]]|$A|K|C|L|2|M|F|U|G|@]|H|@]|6|$N|O]]|$A|P|C|-4|2|E|F|V|G|@]|H|@]|6|$]]]]

Regexes may become inefficient when it comes to parsing complex HTML files, a better apporach is then to use a dedicated HTML parser. Here is an example using <a href="https://metacpan.org/pod/XML::LibXML" rel="nofollow noreferrer">XML::LibXML</a> provided you have a valid HTML file:
<pre><code>use strict;
use warnings;
use XML::LibXML;

my $filename = 'file.html';
my $html = XML::LibXML-&gt;load_html( location =&gt; $filename );
for my $node ($html-&gt;findnodes('//td')) {
 $node-&gt;setAttribute(bgcolor =&gt; &quot;blue&quot;);
}
print $html-&gt;toStringHTML;
</code></pre>

entityMap|0|type|LINK|mutability|MUTABLE|data|url|https://www.w3schools.com/html/html_css.asp|blocks|key|2e55l|text|在OPs代码中，我们有下面这一行，应该将其更正为下一形式|unstyled|depth|inlineStyleRanges|entityRanges|1iro4|system("perl+-i+-e+'s/<td/<td+bgcolor=\"blue\"/g'+$_");|code-block|syntax|javascript|d3lc1|这是错误的，$_将保留从<INFILE>读取的当前行，但它将期望输入文件。|offset|length|style|CODE|9kiks|下面的代码演示了不使用任何模块的替代解决方案。这个解决方案也不是最好的。|b99ut|use+strict;
use+warnings;

while(+<DATA>+)+{
++++s/<td>/<td+bgcolor="blue">/;
++++print;
}

__DATA__

<block>
++Some+text+goes+in+this+place
</block>

+<td>ABC</td>
+<td>DEF</td>
+<td>20:00:00</td>
+
+
++++New+paragraph+describing+something
+|90s9l|更正确的方法是外部CSS样式的style='some_style'，而不是使用bgcolor="blue"。|9gof9|这种方法将允许在不接触html文件的情况下对所需标签的样式文件进行改变。|als0v|你用你想要的样式编辑CSS样式文件，神奇的是，你的网页将显示新的颜色/文本样式/列表类型/等等。|dgrbf|HTML+Styles+CSS|9i6ip^0|0|0|6|2|C|8|0|0|0|F|I|13|E|0|0|0|0|F|0|0^^$0|$1|$2|3|4|5|6|$7|8]]]|9|@$A|B|C|D|2|E|F|16|G|@]|H|@]|6|$]]|$A|I|C|J|2|K|F|17|G|@]|H|@]|6|$L|M]]|$A|N|C|O|2|E|F|18|G|@$P|19|Q|1A|R|S]|$P|1B|Q|1C|R|S]]|H|@]|6|$]]|$A|T|C|U|2|E|F|1D|G|@]|H|@]|6|$]]|$A|V|C|W|2|K|F|1E|G|@]|H|@]|6|$L|M]]|$A|X|C|Y|2|E|F|1F|G|@$P|1G|Q|1H|R|S]|$P|1I|Q|1J|R|S]]|H|@]|6|$]]|$A|Z|C|10|2|E|F|1K|G|@]|H|@]|6|$]]|$A|11|C|12|2|E|F|1L|G|@]|H|@]|6|$]]|$A|13|C|14|2|E|F|1M|G|@]|H|@$P|1N|Q|1O|A|1P]]|6|$]]|$A|15|C|-4|2|E|F|1Q|G|@]|H|@]|6|$]]]]

In OPs code we have following line, which should be corrected to next form
<pre><code>system(&quot;perl -i -e 's/&lt;td/&lt;td bgcolor=\&quot;blue\&quot;/g' $_&quot;);
</code></pre>
It is wrong, <code>$_</code> will hold current line read from <code>&lt;INFILE&gt;</code> but perl will expect input file instead.
Following code demonstrates alternative solution, which does not utilize any modules. This solution also is not best.
<pre><code>use strict;
use warnings;

while( &lt;DATA&gt; ) {
 s/&lt;td&gt;/&lt;td bgcolor=&quot;blue&quot;&gt;/;
 print;
}

__DATA__

&lt;block&gt;
 Some text goes in this place
&lt;/block&gt;

 &lt;td&gt;ABC&lt;/td&gt;
 &lt;td&gt;DEF&lt;/td&gt;
 &lt;td&gt;20:00:00&lt;/td&gt;
 
 &lt;p&gt;
 New paragraph describing something
 &lt;/p&gt;
</code></pre>
Instead of utilizing <code>bgcolor=&quot;blue&quot;</code> more correct approach is external CSS style <code>style='some_style'</code>.
This approach would allow make changes in style file for desired tags without touching html file.
You edit CSS style file with desired style and magically you web page will be shown with new colors/text style/types of list/ etc.
<a href="https://www.w3schools.com/html/html_css.asp" rel="nofollow noreferrer">HTML Styles CSS</a>

I am using Perl to achieve this
<pre><code>while(&lt;INFILE&gt;){
 chomp;
 if(/\&lt;td/){
 system(&quot;perl -i -e 's/&lt;td/&lt;td bgcolor=&quot;blue&quot;/g' $_&quot;);
 }
}

</code></pre>
When I run the command I get
<pre><code>./HtmlTest.pl file.html
Bareword found where operator expected at ./HtmlTest.pl line 13, near &quot;&quot;perl -i -e 's/&lt;td/&lt;td bgcolor=&quot;grey&quot;
 (Missing operator before grey?)
String found where operator expected at ./HtmlTest.pl line 13, near &quot;grey&quot;/g' $_&quot;&quot;
syntax error at ./HtmlTest.pl line 13, near &quot;&quot;perl -i -e 's/&lt;td/&lt;td bgcolor=&quot;grey&quot;
Execution of ./HtmlTest.pl aborted due to compilation errors.

</code></pre>
I am not able to figure out why
Even if i run as
<pre><code>perl HtmlTest.pl file.html
</code></pre>
I get the same errors.
Sample html table
<pre><code> &lt;td&gt;ABC&lt;/td&gt;
 &lt;td&gt;DEF&lt;/td&gt;
 &lt;td&gt;20:00:00&lt;/td&gt;
</code></pre>
Any advice appreciated

How to replace HTML td tags

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我正在使用Perl来实现这一点。 while(<INFILE>){ chomp; if(/\<td/){ system("perl -i -e 's/<td/<td bgcolor="blue"/g' $_"); }} 当我运行该命令时，我得到 ./H...

问如何替换HTML td标记
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何替换HTML td标记EN