有關(guān)數(shù)組

zlzty

我想問個問題，比如我有一個數(shù)組@a=（aa,bb,cc,dd,ee,ff,ad,fe,ag,hh,ssd,ffg,h,j,k,l,asdfag)可能有上百個，現(xiàn)在我這么操作
for($i=0;$i<=$#a;$i++)
{
   if($a[$i]=~/ee/)
  {
     $a = $i;
  }
  elsif($a[$i]=~/j/)
{
   $b = $i;
}  
}
大致是這樣。我想要的是提取dd到k之間的所有元素放到新的數(shù)組中（包括dd和k）并且將他們在元數(shù)組中刪除。。我應(yīng)該怎么做�。�
我最初的想發(fā)是push（@number，$a[$a-1..$b+1]);不過好像這樣操作是無效的。。
誰會的話請指教下。謝謝

yinyuemi

回復(fù) 1# zlzty

1. perl -le '
   
2. @a=(aa,bb,cc,dd,ee,ff,ad,fe,ag,hh,ssd,ffg,h,j,k,l,asdfag);
   
3. map{$i++;if(/dd/../k/){push @b,$_;splice(@a,--$i,1)}}@a;
   
4. print "@b","\n","@a"'
   
5. dd ee ff ad fe ag hh ssd ffg h j k
   
6. aa bb cc l asdfag
   

復(fù)制代碼

iLRainyday

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @arr = qw(aa bb cc dd ee ff ad fe ag hh ssd ffg h j k l asdfag);
   
7. my @filtered = grep { /^dd$/../^k$/ } @arr;
   
8. 
   
9. my %final;
   
10. @final{@arr} = ();
    
11. delete @final{@filtered};
    
12. my @output = keys %final;
    
13. print "@output";

復(fù)制代碼

zlzty

3Q回復(fù) 3# iLRainyday


   

zlzty

3Q回復(fù) 2# yinyuemi


   

只是一個紅薯

yinyuemi 發(fā)表于 2012-12-12 00:56
回復(fù) 1# zlzty

請問下怎么把握$i的變化，我重寫成foreach的形式就不對了

zlzty

請問splice（@a，--$i，1）這里的1是做什么用的。我記得splice（@a，--$i）這個應(yīng)該是$i是多少，就刪除@a中第幾個元素是嗎？那1是做什么用的。。我刪了1，好像1到最后的元素就都沒了回復(fù) 2# yinyuemi


   

只是一個紅薯

就是一次取出1個元素回復(fù) 7# zlzty


   

只是一個紅薯

yinyuemi 發(fā)表于 2012-12-12 00:56
回復(fù) 1# zlzty

1. for(@a){
   
2.        $i++;
   
3.     if(/dd/../k/){
   
4.         
   
5.           #say "$i";
   
6.         splice(@a,--$i,1);
   
7.            push @b,$_;
   
8.         say "@a","\n","@b";
   
9.     }
   
10. }

復(fù)制代碼

哪里不對了。。

yinyuemi

回復(fù) 6# 只是一個紅薯


    [code]The foreach loop iterates over a normal list value and sets the variable VAR to be each element of the list in turn. If the variable is preceded with the keyword my, then it is lexically scoped, and is therefore visible only within the loop. Otherwise, the variable is implicitly local to the loop and regains its former value upon exiting the loop. If the variable was previously declared with my, it uses that variable instead of the global one, but it's still localized to the loop. This implicit localization occurs only in a foreach loop.

The foreach keyword is actually a synonym for the for keyword, so you can use either. If VAR is omitted, $_ is set to each value.

If any element of LIST is an lvalue, you can modify it by modifying VAR inside the loop. Conversely, if any element of LIST is NOT an lvalue, any attempt to modify that element will fail. In other words, the foreach loop index variable is an implicit alias for each item in the list that you're looping over.

If any part of LIST is an array, foreach will get very confused if you add or remove elements within the loop body, for example with splice. So don't do that.

foreach probably won't do what you expect if VAR is a tied or other special variable. Don't do that either.[/code]