一个小程序将文件夹下所有pl文件中的print该为printf

grayblaze

#!/usr/bin/perl
use strict;
use warnings;

print "Hello, World...\n";
my @files = `ls`;
my ($file,$FP);
foreach $file (@files) {
        print $file;
if($file =~ /.+\.pl/)
        {
         open($FP,$file);
         while(<$FP>)
                {
                 s/print/printf/g;
         }
}

}

我随手写的，运行后没起作用，高手指点下，我学perl没几天：）
先吃饭去了。。。：）

grayblaze

为什么不行啊？

cobrawgl

你替换完了应该再写回去啊，你可以用下面这个更简单的。

>perl -p -i.bak -w -e 's/print/printf' *.pl

grayblaze

感谢楼上的，用你的方法的确很简便。
但是在原来的基础上改，该怎么改？下面是我该的
--------------------------------------------------------------------------------------
#!/usr/bin/perl
use strict;
use warnings;

print "Hello, World...\n";
my @files = `ls`;
my ($file,$FP);
foreach $file (@files) {
        print $file;
if($file =~ /.+\.pl/)
        {
         open(FP,$file);
         while(<FP>)
                {
                 s/print/printf/g;
                 print FP $_;
         }

                 close FP;
}

}
-----------------------------------------------------------------------------------------
提示：Filehandle FP opened only for input at ./tt.pl line 16, <FP> line 18
我换了> 和 >> 模式打开文件，都不行。该怎么改？

cobrawgl

你仔细看看 Learning perl(4th version) Chapter 9 的 Updating Many Files 一小节，

你就知道该怎么做了

grayblaze

首先多谢额楼上的热心指点：）
我再看了那章，它那个程序和我这个有点稍微不一样，它那个用文件名作为参数，我这个没有参数。
最主要的问题是怎么写回原文件？！在内存内它已经替换好了。
那章提到要设置$^I 变量，我设置了，还是不行！

cobrawgl

不要再问了，你不仔细看原文对 $^I 的解释，我也没办法。

你的这个程序把原本简单的事情弄复杂了。

smellcode

确实，简单变复杂了。
perl -p -w -n -i.bak -e"s/print/printf" *.pl
就很方便，符合perl liners的习惯。
-i就是$^I,是把原来的文件做一个备份。
-w是打开警告
-e执行表达式
-p是while(<>) {your code;
print;  #默认输出为your_file.bak文件
}
如果是-n那就为
while(<>) {your code;}
而且是先修改的your_file.bak文件(your_file的拷贝)，然后再做了一个与your_file的转换
注意这里在windows下，要用"而不是'