サイドバー

最近の更新

このページへのアクセス
今日: 1 / 昨日: 3
総計: 351

12_perl:02_perl_exist_in_array

02 perl配列に存在確認

my @list = ('A', 'B', 'C');

if (grep {$_ eq 'C'} @list) {
    print "yes\n";
} else {
    print "no\n";
}

12_perl/02_perl_exist_in_array.txt · 最終更新: 2014/07/03 11:53 by matsui