这个for语句还能怎么优化

qq64878641

my $j;
    for($a..$b){
          if ($s1[$_] eq 'a' ){  #s1是数组
            $j = $_;
            last;
        }
    }

jason680

my $j;
    for($a..$b){
          if ($s1[$_] eq 'a' ){  #s1是数组
            $j = $_;
         ...
qq64878641 发表于 2011-04-26 14:31

smart match
~~

xiongdp

回复 1# qq64878641


    是for还是foreach？

zhlong8

use List::Util qw(first);

$j = first {$s1[$_] eq 'a'} $a .. $b;

qq64878641

回复 4# zhlong8

1. for($a..$b){
   
2.         ($i = $_ ) && last if $s2[$_] eq $s1[$k];
   
3.     }

复制代码

这个 和你 那个 在 效率上是不是差不多的？

zhlong8

回复 5# qq64878641


    我优化的不是速度……有可能还慢了