我需要在 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 新手,所以我可能完全不在这儿了。