perl：フィルタリングされた値の警告を含むgrepによるフィルタリング

Question

grepを使用して配列をフィルタリングしたいが、フィルタリングされたすべての値に対して警告を表示したい。私はこれを試した：

my @l = (1,2,3,4,5); 
@l = grep { 
    if ($_%2 == 0) { 
    warn "$_ is an even number!!!"; 
    return 0; 
    } 
    return 1; 
} @l; 

しかし、これは動作しません。私は警告を受けず、リストはフィルタリングされません。これどうやってするの？

Answer 1

このコードは、コールバックサブルーチンない

Can't return outside a subroutine at a.pl line 10. 

で死にます。 returnは使用できません。

my @l = (1,2,3,4,5); 
@l = grep { 
    if ($_ % 2) { 
    1 
    } else { 
    warn "even number!!!"; 
    0 
    } 
} @l; 

even number!!!を複数回印刷することはそれほど有用ではありません。

my @nums = 1..5; 
my @odds = grep { $_ % 2 } @nums; 
warn("One or more even numbers!\n") if @odds != @nums; 

Answer 2

あなたは取得の警告（あなたががuse warnings; use strict;する必要があります）を行う：grepは表現またはブロックを取るためです

Can't return outside a subroutine 

を - それは厳密にサブではありません。

これは動作します：

また

#!/usr/bin/env perl 
use strict; 
use warnings; 

my @numbers = (1, 2, 3, 4, 5); 
my @odd_numbers = grep { 
    if ($_ % 2 == 0) { 
     warn "even number $_"; 
     0; 
    } 
    else { 
     1; 
    } 

} @numbers; 

print @odd_numbers; 

：単一文字の変数名を使用しないでください。それは悪いスタイルです。

Answer 3

KISS

は、スマートすることしようとしない、grepのは確かに肯定一致を使用して、既存のリストから新しいリストを作成するための正しいことです。はい、あなたは内部のあらゆる種類の幻想的なことをすることができます。

しかし、普通のものは何ですか？foreach？ リストをループするだけで、インテリジェントな選択を行い、ポジティブを別のリストにプッシュします。あなたは

foreach my $item (@numbers) { 
    if ($item %2) { 
     warn "fiz"; 
     next 
    } 
    unless ($item % 3) { 
     warn "buzz"; 
     next 
    } 
    push @good, $item 
} 

と誰も数日後にここ

何が起こっているかを伝えることができます...あなたが必要との理由オフに異なる種類の超面白い警告をしないものを処理するコードブロック全体を用意して