perl中文件操作

zhuyubei

我的代码是小骆驼中的习题，目的想把文件中#!所在的行下加入Copyright (C) 20XX by Yours Truly，但是我发现 第三行的代码 ：

1. @content = <FD1>;

复制代码

加在不同位置会有不同效果。

全部代码如下:

1. #!/usr/bin/perl -w
   
2. open FD1,"<ex2.pl" ;
   
3. @content = <FD1>;     #注意这一行，如放在open FD2,">ex2.pl" ;后面则文件内容全丢失！而这个位置就正常
   
4. open FD2,">ex2.pl" ;
   
5. 
   
6. select FD2;
   
7. foreach $line ( @content )
   
8. {
   
9.         if($line =~ /^#!/)
   
10.         {
    
11.                  $line =~ s/$line/$line##Copyright (C) 20XX by Yours Truly\n/;   #查找＃！所在的行，并且替换
    
12.                  print $line;
    
13.         }
    
14.         else
    
15.         {
    
16.                 print $line;
    
17.         }
    
18. 
    
19. }

复制代码

请问为什么呢?

[ 本帖最后由 zhuyubei 于 2009-1-4 12:31 编辑 ]

ynchnluiti

原帖由 zhuyubei 于 2009-1-4 12:18 发表
我的代码是小骆驼中的习题，目的想把文件中#!所在的行下加入Copyright (C) 20XX by Yours Truly，但是我发现 第三行的代码 ：@content = ; 加在不同位置会有不同效果。

全部代码如下:
#!/usr/bin/perl -w
...

open FD2,">ex2.pl" ;#会清空ex2.pl

If MODE is '>', the file is truncated and opened for output, being created if necessary.

zhuyubei

谢谢！