perl文件添加内容出现奇怪现象

太阳peach

程序目的：给一段文件内容加一些重要的标题头。

程序主体：
#!bin/usr/perl -w
@vfloorslist = `ls *vFloors`;
foreach my $vfloors(@vfloorslist){
        chomp $vfloors;
        printf "-" x 20 . "$vfloors" . "-" x 20 . "\n";
        printf "processing......\n";
        rename($vfloors,"tmp_$vfloors" or die $!;
        open(VFLOORS, "tmp_$vfloors" or die $!; #打开源文件
        foreach my $line(<VFLOORS>{
                chomp $line;
                `cp ./template .\/$vfloors`; #将模板文件重命名为目标文件名
                open(NEWVFLOORS, ">>", "$vfloors" or die $!;   #打开目标文件
                printf $line;  #在屏幕上打出源文件里的内容
                printf NEWVFLOORS $line;  #往目标文件里面输入源文件内容
        }
        close(NEWVFLOORS);
        close(VFLOORS);
        `rm ./tmp_$vfloors`;
        printf "success!\n";
}

上文提到的源文件：
~v varFloor1
<Variance> 39
2.730452e-01 1.637381e-01 2.028152e-01 2.542861e-01 4.813456e-01 6.348009e-01 3.601173e-01 7.293478e-01 2.343239e-01 2.743990e-01 3.023584e-01 2.490072e-01 8.913501e-01 5.710168e-03 7.239614e-03 8.393405e-03 1.068635e-02 1.516851e-02 1.979875e-02 1.426981e-02 1.507906e-02 1.395736e-02 1.354895e-02 1.311529e-02 1.170984e-02 1.380213e-02 8.324237e-04 1.195016e-03 1.457762e-03 1.915888e-03 2.514630e-03 3.217181e-03 2.602820e-03 2.784498e-03 2.696389e-03 2.701437e-03 2.444789e-03 2.196949e-03 1.727028e-03

上文提到的模板文件：
~o
<STREAMINFO> 1 39
<VECSIZE> 39<NULLD><MFCC_D_A_0><DIAGC>

奇怪的现象：
大家可以看到，应该是屏幕上打出什么，最后的文件里面就应该有什么（除了模板文件原来包含的内容外）。但是最后的问题却是，源文件中的头两行没有被打入最后的文件（即这两行：~v varFloor1 <Variance> 39），但是在屏幕上却能被打印出来，请问大家这是怎么回事?

最后结果：
屏幕：
~v varFloor1
<Variance> 39
2.730452e-01 1.637381e-01 2.028152e-01 2.542861e-01 4.813456e-01 6.348009e-01 3.601173e-01 7.293478e-01 2.343239e-01 2.743990e-01 3.023584e-01 2.490072e-01 8.913501e-01 5.710168e-03 7.239614e-03 8.393405e-03 1.068635e-02 1.516851e-02 1.979875e-02 1.426981e-02 1.507906e-02 1.395736e-02 1.354895e-02 1.311529e-02 1.170984e-02 1.380213e-02 8.324237e-04 1.195016e-03 1.457762e-03 1.915888e-03 2.514630e-03 3.217181e-03 2.602820e-03 2.784498e-03 2.696389e-03 2.701437e-03 2.444789e-03 2.196949e-03 1.727028e-03

目标文件：
~o
<STREAMINFO> 1 39
<VECSIZE> 39<NULLD><MFCC_D_A_0><DIAGC>
2.730452e-01 1.637381e-01 2.028152e-01 2.542861e-01 4.813456e-01 6.348009e-01 3.601173e-01 7.293478e-01 2.343239e-01 2.743990e-01 3.023584e-01 2.490072e-01 8.913501e-01 5.710168e-03 7.239614e-03 8.393405e-03 1.068635e-02 1.516851e-02 1.979875e-02 1.426981e-02 1.507906e-02 1.395736e-02 1.354895e-02 1.311529e-02 1.170984e-02 1.380213e-02 8.324237e-04 1.195016e-03 1.457762e-03 1.915888e-03 2.514630e-03 3.217181e-03 2.602820e-03 2.784498e-03 2.696389e-03 2.701437e-03 2.444789e-03 2.196949e-03 1.727028e-03

jun413947139

看你写的 代码。。真心乱。。。
1.   perl里面 尽量少用 系统相关的指令。
linux       perl
cp  ----> copy  
rm -----> unlink
2.   #! .....     ,是perl的路径  linux下用which  perl查看，或者 直接写perl也行： #! /usr/bin/perl   ， #! perl
2.   可以少用printf 用print  ,printf主要用于格式输出
3.  循环里面打开了那么多  open(NEWVFLOORS, ">>", "$vfloors"）or die $!;   咋就忘了关闭呢。
4.  在你 每次打开$vfloors之前，为啥又用template覆盖掉他呢。。。。，所以。。不止头两行没有输出到目标文件，是只能保存源文件最后一行（你的问题就出现在这里）

1. #! /usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @files = glob "*vFloors";
   
7. 
   
8. for (@files) {
   
9.     add_template_to('./template', $_);
   
10. }
    
11. 
    
12. sub add_template_to {
    
13.     my $template = shift || "";
    
14.     my $file = shift || "";
    
15. 
    
16.     # 读取源文件行
    
17.     open my $SRC, "<$file" or die $!;
    
18.     my @src_lines = <$SRC>;
    
19.     close $SRC;
    
20.     # 读取模板的行
    
21.     open my $TPL, "<$template" or die $!;
    
22.     my @template_lines = <$TPL>;
    
23.     close $TPL;
    
24.     # 获取新文件的行
    
25.     my @dst_lines = @template_lines;
    
26.     push @dst_lines, @src_lines;
    
27.     # 写入文件中
    
28.     open my $DST, ">$file" or die $!;
    
29.     print $DST @dst_lines;
    
30.     close $DST;
    
31. }

复制代码