求教perl 递归函数的问题

yyzthinking

要用到perl来递归展开一个file里include file的内容。

将文件yyz.f中的-f 后面所带的文件内容递归展开，并输出到新的file

1.文件yyz.f 如下：
-INCDIR ./tmp
-f ./tmp/add_include_dir
./tmp/yyz1.v

2. 文件add_include_dir 如下：
-INCDIR ./tmp1
-INCDIR ./tmp2
-INCDIR ./tmp3
-f ./tmp/add_include_dir1
-INCDIR ./tmp4
-INCDIR ./tmp5
需要将add_include_dir1的内容也递归的展开

3.文件add_include_dir1的内容如下：
-INCDIR ./tmp10
-INCDIR ./tmp11
-INCDIR ./tmp12
-INCDIR ./tmp13

展开看新生成的文件应该如下：
-INCDIR ./tmp
-INCDIR ./tmp1
-INCDIR ./tmp2
-INCDIR ./tmp3
-INCDIR ./tmp10
-INCDIR ./tmp11
-INCDIR ./tmp12
-INCDIR ./tmp13
-INCDIR ./tmp4
-INCDIR ./tmp5

程序运行之后，少了后边的
-INCDIR ./tmp4
-INCDIR ./tmp5
两行，看起来是在递归执行的时候，强制退出了。
请大神们帮忙看一下，谢谢啦！

程序如下：

1. #! /usr/bin/perl
   
2. use File::Basename;
   
3. use Getopt::Long;
   
4. 
   
5. my $USAGE= "This script auto extend filelist based on input filelist.
   
6. Option: -f_list:     <Must> Specify your debussy filelist       
   
7.         -out_file:   <Must> Specify the output file name\n";
   
8. 
   
9. GetOptions("f_list=s"=>\$f_list,
   
10.            "out_file=s"=>\$out_file);
    
11. 
    
12. if ($f_list eq "" or $out_file eq "") {
    
13.         print "$USAGE\n";
    
14.         exit;
    
15. }
    
16. 
    
17. open OUT, "> $out_file" or die "Cannot open $out_file for write\n";
    
18. open F_IN, "< $f_list" or die "Cannot open $f_list \n";
    
19. while (chomp(my $line = <F_IN>)) {
    
20.     $line =~s/\$(.*?)\//$TEMP{$1}\//g;
    
21.         if ($line =~ /^\s*\/\//) {
    
22.             next;
    
23.     } elsif ($line =~ /-INCDIR\s+(.*)/) {
    
24.             push @inc, $1;
    
25.             $line =~s/-INCDIR /+incdir+/g;
    
26.             print OUT "$line\n";
    
27.     } elsif ($line =~/^\s*-f\s+(\S+)/) {
    
28.             print OUT "\/\/Unfold-this-line-in-below: $line\n";
    
29.             print "\/\/Unfold-this-line-in-below: $line\n";
    
30.             my $f = $1;
    
31.             my @add_file = &find_add_file($f);
    
32.             print "DEBUG: add file is \(@add_file\)\n";
    
33.             foreach my $add (@add_file) {
    
34.                     if ($add =~ /\+incdir\+(\S+)/) {push @inc, $1;}
    
35.                     print OUT "$add\n";
    
36.             }
    
37.     } else {
    
38.             print OUT "$line\n";
    
39.     }
    
40. }
    
41. close(OUT);
    
42. 
    
43. 
    
44. #+++++++++++++++++++++++++++++++++++++++++++
    
45. # Sub Func : Find add file
    
46. #+++++++++++++++++++++++++++++++++++++++++++
    
47. sub find_add_file {
    
48.         my @return_file;
    
49.         my $line = shift @_;
    
50.         if (-e $line) {
    
51.                 open ADD_F, "< $line" or die "Cannot open file $line\n";
    
52.                 while (chomp(my $l = <ADD_F>)) {
    
53.                         if ($l =~ /^\s*-INCDIR\s+(\S+)/) {
    
54.                                 push @return_file, "+incdir+$1";
    
55.                         } elsif ($l =~ /^\s*-f\s+(\S+)/) {
    
56.                                 print "DEBUG: found include file line $l\n";
    
57.                                 my $add = $1;
    
58.                                 my @return_2 = &find_add_file($add);
    
59.                                 push @return_file,@return_2;
    
60.                         } elsif ($l !~/^\s*$/) {
    
61.                                 push @return_file, $l;
    
62.                         }
    
63.                 }
    
64.                 close(ADD_F);
    
65.         } else {
    
66.                 print "Error: Cannot find $line, Please help check!\n";
    
67.         }
    
68.         return(@return_file);
    
69. }
    

复制代码

MMMIX

回复 1# yyzthinking


    ADD_F 是全局的，在递归之前应保存，递归调用之后恢复。当然，如果你要是在一开始就使用 indirect file handle 的话这个问题 perl 自动就帮你处理了。

yyzthinking

谢谢您，我试了一下open $ADD_F， “< xxx” 好像还是不行，还有需要特别注意的吗？回复 2# MMMIX


   

yyzthinking

回复 2# MMMIX

可以了，刚刚我少写了一个my 用open my $ADD_F， “< xxx” 就可以了，非常感谢！