Chinaunix

标题: 一个小程序将文件夹下所有pl文件中的print该为printf [打印本页]

作者: grayblaze 时间: 2008-04-04 20:07
标题: 一个小程序将文件夹下所有pl文件中的print该为printf
#!/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 时间: 2008-04-04 22:23
为什么不行啊？

作者: cobrawgl 时间: 2008-04-05 10:49
你替换完了应该再写回去啊，你可以用下面这个更简单的。

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

作者: grayblaze 时间: 2008-04-05 23:04
感谢楼上的，用你的方法的确很简便。
但是在原来的基础上改，该怎么改？下面是我该的
--------------------------------------------------------------------------------------
#!/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 时间: 2008-04-06 00:35
你仔细看看 Learning perl(4th version) Chapter 9 的 Updating Many Files 一小节，

你就知道该怎么做了

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

作者: cobrawgl 时间: 2008-04-06 10:36
不要再问了，你不仔细看原文对 $^I 的解释，我也没办法。

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

作者: smellcode 时间: 2008-04-06 11:26
确实，简单变复杂了。
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下，要用"而不是'

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)