2006-06-26 grepに不慣れ Perl push @hoge, grep $fuga[$_], 0..10; 書いた後で見直すと見にくいかも。 でも↓は長過ぎる気がする。 わかり易いんだけど。 foreach ( 0..10 ) { push @hoge, $fuga{ $_ } if( $fuga{ $_ } ); } 単純にgrepに慣れてないだけかな。