09/03/23 00:12:01 1BbC9DSE0 BE:3485748-BRZ(10001)
>>329
こんな描き方もあるです♪
# 存在する板のリスト
# 1行に1板ずつ描くの♪
# イパーイになってきたら外部ファイルにしてもいいかなと（そこまで増えるとは思えないけれども＠まち）
my %bbs_OK = map +($_, 1),
qw|
tawara
hokkaidou
touhoku
tokyo
kanto
tama
kana
toukai
kinki
osaka
cyugoku
sikoku
kyusyu
okinawa
|;
# ハシュに入っていなければundefが返ってくるので・・・
unless ($bbs_OK{$bbs}){
# ↓ここは専ぶらさくーしゃさん達のご意見を伺いたいかもかも
print "Location: URLﾘﾝｸ(www2.2ch.net)";
exit;
}