[問題] 用什麼方法知道現在是 foreach 裡的最後一個?

[CindyLinz (Cindy Wang)]

程式情境類似這樣:

  @a 是某個外來陣列
  my $counter = 0; # 記錄 @a 裡面有幾個符合條件的
  my $good = 0; # 最後的結果
  for my $a (@a) {
    if( $a 滿足某條件 ) {
      ++$counter;
      if( $counter==5 && $a 是 @a 的最後一項 ) {
        $good = 1;
      }
    }
  }

想問大家有沒有什麼有趣的寫法? ^^

我試了幾個, 不過感覺好像都有可挑的地方..

  # 我覺得額外弄一個語法上看起來跟迴圈沒關聯的迴圈計數器很不開心 ><
  my $i = 0;
  for my $a (@a) {
    ++$i;
    if( $a 滿足某條件 ) {
      ++$counter;
      if( $counter==5 && $i==$#a ) {
        $good = 1;
      }
    }
  }

  # 我覺得裡面要寫成 $a[$i] 很不開心 ><
  for my $i (0..$#a) {
    if( $a[$i] 滿足某條件 ) {
      ++$counter;
      if( $counter==5 && $i==$#a ) {
        $good = 1;
      }
    }
  }

  # 我覺得要複製 $a = $a[$i] 很不開心 ><
  for my $i (0..$#a) {
    my $a = $a[$i];
    if( $a 滿足某條件 ) {
      ++$counter;
      if( $counter==5 && $i==$#a ) {
        $good = 1;
      }
    }
  }

  # 我覺得 滿足某條件 要跑兩次很不開心 ><
  for my $a (@a) {
    if( $a 滿足某條件 ) {
      ++$counter;
    }
  }
  if( $counter==5 && $a[-1] 滿足某條件 ) {
    $good = 1;
  }

  # 我覺得 perl 5.12 才能用很不開心 ><
  # 而且 while 裡面最好不要有 last, 不然有一天會後悔..
  # 不過這是這幾個裡面我自己覺得看起來最順眼的一個 @@"
  while( my($i, $a) = each @a ) {
    if( $a 滿足某條件 ) {
      ++$counter;
      if( $counter==5 && $i==$#a ) {
        $good = 1;
      }
    }
  }

# 整理一下 scwg 的推文放上來正文 :p

  $good = $a[-1] 滿足某條件 && 5 == grep {$_ 滿足某條件} @a;

  $good = $a[-1] 滿足某條件 && 4 == grep {$_ 滿足某條件} @a[0..$#a-1];

  for my $a (@a) {
    if( $a 滿足某條件 ) {
      ++$counter;
      if( $counter==5 && \$a==\$a[-1] ) {
        $good = 1;
      }
    }
  }

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 112.121.80.249
※ 文章網址: http://www.ptt.cc/bbs/Perl/M.1409251242.A.EDB.html
→ scwg:  $good = P $a[-1] && 5 == grep {P $_} @a;
→ scwg:  $good = P($a[-1]) && 5 == grep {P $_} @a; (樓上少括號)
→ scwg: or, $good = P($a[-1]) && 4 == grep {P $_} @a[0..$#a-1];
→ scwg: or http://www.perlmonks.org/?node_id=630377 for more
→ scwg: general solution (e.g. \$a == \$a[-1])
推 Neisseria: 最後一個 each 的用法蠻有趣的
→ CindyLinz: 喔喔! 我喜歡 \$a == \$a[-1] 這個!
→ CindyLinz: 一樓的話就是 P 要多跑一次; 3樓的話就只是 0..$#a-1
→ CindyLinz: 形狀醜了點 ^^|
※ 編輯: CindyLinz (112.121.80.249), 08/29/2014 14:01:25
推 AntaresStar: 原來還有取反斜線這招 (筆記)
→ Neisseria: 取反斜線是什麼意思啊？ 其實看不太懂耶...
推 LiloHuang: A backslash is used to make a reference...
推 LiloHuang: http://goo.gl/maf5RG click to see detail
推 Neisseria: 我發現我的問題是 reference 為什麼可以當 left value
→ xatier: why not it's Perl!
→ CindyLinz: 這邊 reference 沒有被當 left value 啊, == 拿來比較
→ CindyLinz: 而已
→ CindyLinz: 然後 for my $a (...) 的 $a 在 perl 叫 alias 不是ref
→ CindyLinz: 跟 C++ 類比的話像是 C++ 的 reference, C++ 的
→ CindyLinz: reference 也是可以取 address 的, 也是取到被 ref 的
→ CindyLinz: 對象的 address
推 Neisseria: 的確是我沒注意到是 == 不是 =
→ CindyLinz: XD