Perlについての質問箱 37箱目

Perlについての質問箱 37箱目 at TECH

694:デフォルトの名無しさん
08/09/07 08:10:35
>>691
grepを一旦、@aで受けるとかどう？

if (my @a = grep { /^(dualvar|set_prototype)$/ } @_ ) {
require Carp;
Carp::croak("@a is only avaliable with the XS version"); #エラーにある30行目はここ
}

次ページ

続きを表示

1を表示