sub bybySaruON
{
my ($GB) = @_ ;
# my $GB = shift; # 引数が1つだけなら。。。

# 板dirを裸で書いていく
my @ITA_name = qw(
doujin
qb5
qb6
news4viptasu
aastory
aasaloon
nida
mona
kao
nanminhis
eroparo
intro
warhis
kitchen
ume
mog2
);

# ハシュ作成
my %ITA_flag = map +($_, 1), @ITA_name;

# 板dirが一致すれば0を返す。
return $ITA_flag{$GB->{FORM}->{bbs}} ? 0 : 1;
}
-*-
条件文が減るからスカッと流れていくかなかな。。。