08/06/16 07:08:58 injU5a/D0 BE:5336677-2BP(7088)
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;
}
-*-
条件文が減るからスカッと流れていくかなかな。。。