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

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

186: ◆TWARamEjuA
08/01/27 00:48:49 BE:2723055-2BP(6825)
>>180
こういうのもありかしら？

for my $value (<DATA>){
　%prohibit = map +($_, 1), qw|XXX YYY ZZZ|;
　push @keep, $_ unless exists prohibit{$_};
}
exit;

__END__
AAA
GGG
ZZZ
YYY
ZZZ
XXX
HHH

>>183
月の満ち欠けを画像出力するときに、ユリウスを使って計算をしたことがありましたから(ﾟ∀ﾟ)ｱﾋｬ

>>185
念のためrootﾀｿになって、# rm -rf 推奨♪

次ページ

続きを表示

1を表示