我需要在447页的html中添加三行。具体来说，我需要加上几行：
<input name="prev" type="button" value="prev" onClick="handlePrev()" id="prevButton">
<input name="next" type="button" value="next" onClick="handleNext()" id="nextButton">
<script src="nav.js"></script>
之后
</table>
标签。
我更喜欢用perl来实现这一点，但实际上任何可能的方法都可以。我也愿意在Windows中做这件事，如果这样做更容易的话。
我试过的剧本之一：
#!/usr/bin/perl -i.bak -p
my $prevButton = '<input name="prev" type="button" value="prev" onClick="handlePrev()" id="prevButton">\n';
my $nextButton = '<input name="next" type="button" value="next" onClick="handleNext()" id="nextButton">\n';
my $jsInclude = '<script src="nav.js"></script>\n';
print "TEST" if /\<\/table\>/;
它触及了页面，但没有像我所期望的那样用TEST替换table标记。
仅供参考：我是一个完全的perl新手，所以我可能完全离开这里。
最佳答案
你想要的是：
#!/usr/bin/perl -i.bak -p
my $prevButton = ...
my $nextButton = ...
my $jsInclude = ...
$_.="$prevButton\n$nextButton\n$jsInclude" if /\<\/table\>/;
运行脚本：
perl prg.pl /path/*.html