Perlについての質問箱 34箱目at TECH
Perlについての質問箱 34箱目 - 暇つぶし2ch186: ◆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を表示
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch