perl如何自动修改文件内容?
我准备写一个程序,对文件对应的行要进行修改。用字符串替换,出错说“不能替换”。请高手赐教有什么更好的方法?代码如下:
!/usr/bin/perl
open(filehandle,"</home/66.tpl");
!/usr/bin/perl
open(filehandle,"</home/66.tpl");
while($linename=<filehandle>)
{
if($linename=~m/00:FF:00:FF:00:FF/)
{
print "00:FF:00:FF:00:FF in the file!\n";
}
print $linename
}
close(filehandle);
[解决办法]
汗……那就接分啦。
是不是把m///换成s///?