问题求助

jiujiujiu338

今晚的最后一个问题：

1. my @array=qw{1 2 3 4 5 6 7 8 9 10};
   
2. foreach(@array){
   
3.         if($_>2 && $_<4){
   
4.                 #此时在数组中插入一个变量如$string
   
5.         }
   
6. }

复制代码

该怎么操作呀，别再开玩笑啦，看在都这么晚了，还在为程序发愁的我，就帮一下啦~~~多谢多谢~

yinyuemi

回复 1# jiujiujiu338


    perl有专门干这个的函数，查下splice

jiujiujiu338

回复 2# yinyuemi


    splice应该可以，但是用法是不是splice ARRAY,OFFSET,LENGTH,LIST，需要知道offset，但是这里我不知道offset,怎么才能知道呀，多谢

kk861123

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @array  = qw{1 2 3 4 5 6 7 8 9 10};
   
6. my $string = 'a';
   
7. foreach my $i( 0..$#array){
   
8.         if($array[$i] > 2 && $array[$i] < 4){
   
9.                 #此时在数组中插入一个变量如$string
   
10.                                 splice(@array,$i,0,$string);
    
11.                                 last;
    
12.         }
    
13. }
    
14. use Data::Dumper;
    
15. print Dumper \@array;

复制代码

回复 1# jiujiujiu338

jiujiujiu338

回复 4# kk861123


    多谢，还有个小问题请教一下，在use Tie::File时，tie(@lines,'Tie::File',$filename1)，我delete了$lines[1],这时在filename1文件中相应的也删除了，但是出现了一个空行，怎么把空行删除呀，多谢~

kk861123

回复 5# jiujiujiu338


    也是用splice，

1. splice(@lines,1,1)

复制代码

这个函数我也用的很少，但是很有用值得好好研究！

herer

刚才查手册的结果
split(ARRAY,OFFSET,LENGTH,LIST)
在Array中删除从OFFSET开始，以LENGTH结束的元素（不指定LENGTH则删除到数组末尾）。
如果指定了LIST，则以该LIST替换掉删除的元素。

这个函数我之前都不知道，结果数组替换用的是自己写的函数。