得到source后面的文件名，然后cat 它，放入新文件，为什么结果不对呢？

weichanghe2000

大家好，我有这样一个需求：
如果 某一行含有source语句时，得到后面的文件名，然后把 'cat 文件名 后的输出'存放到新文件
否则 该行原样输出到新文件

但是我用下面的代码，没有达到我希望：把原文件行 和source后的文件  merge到新文件
为什么结果不对呢？(一些行丢失，一些行的先后顺序不对，一些行内容也有改变)
求助大家帮忙看下。

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. my $cshrc_file = ".cshrc";  
   
5. my $expand_source_file_to_dcshrc = "${cshrc_file}_merge";   
   
6. open(my $fd_in, '<', $cshrc_file) or warn "cannot open $cshrc_file to read: $!";
   
7. open(my $fd_out, '>', $expand_source_file_to_dcshrc) or warn "cannot open $cshrc_file to write: $!";  # 写文件
   
8. select $fd_out;
   
9. $|=1;
   
10. select STDOUT;
    
11. while (<$fd_in>) {
    
12.     if ( m{^\s*(source|\(\s*source)\s+(\S+)} ) {    #  抓取 source xxx 和 ( source xxx ) 行
    
13.         my $source_file_name = $2;
    
14.         `cat $source_file_name >> $expand_source_file_to_dcshrc`;   # 调用linux系统命令cat 把source后面的文件内容追加到另外1个文件
    
15.         print "$.: $_";
    
16.     }
    
17.     else {
    
18.         print $fd_out $_;
    
19.         print "$.: $_";
    
20.     }
    
21. }
    
22. close $fd_in;
    
23. close $fd_out;
    

复制代码

.cshrc文件为
alias1文件为
alias2文件为
merge后的文件为
没有达到我希望：把原文件行 和source后的文件  merge到新文件