新規作成 | 管理 | 差分 | 検索 | FrontPage | ページ一覧 | 更新履歴 | RSS

PlugIn/grep - 第一引数の正規表現にマッチするものだけを選別

管理

第一引数の正規表現にマッチするものだけを選別

$plugin->def("grep",
  "第一引数の正規表現にマッチするものだけを選別",
  sub {
    my $query = shift;
    my @arg = @_;
    my @ret = grep {
      if (ref($query) eq 'CODE') {
        my ($result) = eval { $query->($_) };
        $result;
      }
      else {
        $_ =~ $query;
      }
    } @arg;
    return @ret;
  }
);