我是新手，碰到一个比较弱的问题，求教！

g84ch

我碰到一个问题，当我用追加>>方式打开文件，并匹配文件中以/^(\#!)/开头的内容时，就不能匹配，而如果我去掉>>，直接打开文件，就能匹配成功，请问我想将修改过的内容保存到文件，怎么办呢？
我的代码如下：

#!/usr/bin/perl

print "test start\n";

foreach $filename (@ARGV)
{
        print "$filename\n";
        open CUR_FILE, ">> $filename";   #如果这里将>>去掉，则在下面的if匹配中，可以匹配。否则不行。
                print "$_\n";

        while(<CUR_FILE>)
        {
                chomp;
                if(/^(\#!)/)
                {
                        $_ .= "## Copyright (C) 2010 by Yours Truly";
                }
                print "$_\n";
                print CUR_FILE "$_\n";
        }
}

toniz

>> 会把文件指针定位到文件末尾。

iamlimeng

如果你要在文件末添加内容，可以这样写：

open CUR_FILE, "+< $filename";

但你显然不是要这样做，所以还是老老实实用两次OPEN吧

1. #!/usr/bin/perl
   
2. 
   
3. print "test start\n";
   
4. @file = ("test.pl");
   
5. foreach $filename (@file)
   
6. {
   
7.         print "$filename\n";
   
8.         open CUR_FILE, "<$filename";
   
9.         my @lines = <CUR_FILE>;
   
10.         close CUR_FILE;
    
11.         open CUR_FILE, ">$filename";
    
12.         foreach (@lines)
    
13.         {
    
14.                 chomp;
    
15.                 if(/^(\#!)/)
    
16.                 {
    
17.                         $_ .= "  ## Copyright (C) 2010 by Yours Truly";
    
18.                 }
    
19.                 print "$_\n";
    
20.                 print CUR_FILE "$_\n";
    
21.         }
    
22.         close CUR_FILE;
    
23. }
    

复制代码

liyangole

我昨天也遇到同样的问题 正如 楼上所说老老实OPEN两次 吧！

g84ch

回复 2# toniz


    哈哈，非常感谢，真是一语惊醒梦中人啊。。。我太嫩了。。

g84ch

回复 3# iamlimeng


    非常感谢，呵呵。。。

g84ch

回复 3# iamlimeng


   你好，你的程序我看了一下，是把文件先读入列表，然后再逐行读取修改，再写回去。但是如果文件内容比较大的时候，这样是不是在效率上会很低呢？
能不能直接逐行读入文件内容，然后修改后直接保存呢？

iamlimeng

文件内容过大的时候，肯定会很耗系统资源，但这种情况并不多。

稳妥点的话，还是用while (<>)好，节省点内存。

各有优缺点，具体情况具体分析吧

g84ch

文件内容过大的时候，肯定会很耗系统资源，但这种情况并不多。

稳妥点的话，还是用while ()好，节省点内 ...
iamlimeng 发表于 2010-05-14 14:16

    比如有一个日志文件，有2G这么大，我需要修改其中的一个数据，然后保存，这个时候，如何用perl实现打开这个日志文件，然后修改，再保存，这个过程不涉及到打开其他的文件或创建新文件。我想了一下，如果直接读到一个列表确实不方便，用while<>的话，保存修改后的内容呢？赐教赐教。。谢谢哈。。

iamlimeng

open后，seek到修改位置，再更新数据。