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

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

188: ◆TWARamEjuA
08/01/27 00:50:58 BE:4574467-2BP(6825)
>>186
なんかおかしいよな(´･ω･`)

my %prohibit = map +($_, 1), qw|XXX YYY ZZZ|;
my @keep;

for my $value (<DATA>){
　push @keep, $value unless exists prohibit{$value};
}
exit;

__END__
AAA
GGG
ZZZ
YYY
ZZZ
XXX
HHH

次ページ

続きを表示

1を表示