splice 应用

jiujiujiu338

1. #!/urs/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Tie::File;                                                                  
   
5. 
   
6. my @lines;                                               
   
7. my $filename='test.txt';     
   
8. my %insert=("Insert1"=>"23.22 23.456\n15.115 11.982\n","Insert3"=>"16.110 234.567\n");                                   
   
9. 
   
10. tie(@lines,'Tie::File',$filename) or die;  
    
11. 
    
12. my $i=-1;
    
13. 
    
14. foreach(@lines){$i++;
    
15.         if(/END/){ splice(@lines,$i,0,$insert{Insert1});
    
16. }                          
    
17. }
    
18. 
    
19. untie(@lines);

复制代码

其中test.txt中的内容为

10
11
12
13
END

我想在END的前面插入Insert1的内容，但是运行的结果却是

10
11
12
13
23.22 23.456
15.115 11.982

23.22 23.456
15.115 11.982

23.22 23.456
15.115 11.982

23.22 23.456
15.115 11.982

23.22 23.456
15.115 11.982

23.22 23.456
15.115 11.982

23.22 23.456
15.115 11.982

23.22 23.456
15.115 11.982

23.22 23.456
15.115 11.982

23.22 23.456
15.115 11.982

23.22 23.456
15.115 11.982

23.22 23.456
15.115 11.982

23.22 23.456
15.115 11.982
。。。

进入死循环，是什么原因啊，还望大家帮忙，多谢~

yinyuemi

回复 1# jiujiujiu338

1.     #!/urs/bin/perl
   
2.     use strict;
   
3.     use warnings;
   
4.     use Tie::File;                                                                  
   
5. 
   
6.     my @lines;                                               
   
7.     my $filename='test.txt';     
   
8.     my %insert=("Insert1"=>"23.22 23.456\n15.115 11.982\n","Insert3"=>"16.110 234.567\n");                                   
   
9. 
   
10.     tie(@lines,'Tie::File',$filename) or die;  
    
11. 
    
12.     splice(@lines,-1,0,$insert{"Insert1"});
    
13.    
    
14.     untie(@lines);

复制代码

jiujiujiu338

回复 2# yinyuemi


    多谢，如果我的test.txt文件中是这样的：

10
11
12
13
END

34
12
23
END

56
34
55
END

在每个END前边都插入一行该怎么做呀？多谢~

yinyuemi

回复 3# jiujiujiu338


    事实上，我在想你的要求，完全可以用s///完成，
如 while(<yourfile>){

s/END/$insert{"Insert1"}\n$&/

}

如果还采用splice的话，借助一个暂时的数组@temp和变量$j, 试试：

@temp=@lines;

map{$i++;splice(@line,$i-1+$j++,0,$insert{"Insert1"}) if(/END/)}@temp

jiujiujiu338

回复 4# yinyuemi


    采用s///是不错，但是会有空行产生，我不知道怎么去掉

斯文牛氓

回复  jiujiujiu338


    事实上，我在想你的要求，完全可以用s///完成，
如 while(){

s/END/$ins ...
yinyuemi 发表于 2011-10-16 13:06

    这个map效率低下 写foreach吧