- 188 名前： ◆TWARamEjuA mailto:sage [2008/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
