($dmy,$domain) = split(/\@/,$cnf{'mail'}); # print <<""; # if($cnf{'meta'} == 1){ print "\n"; } use FindBin; $path = $FindBin::Bin; print "\n"; print ""; if($cnf{'ICRA'} ne ""){ @list = split(/,/,$cnf{'ICRA'}); $filter = ""; foreach (@list){ $filter .= "$_ 1 "; } print "\n"; } # print <<""; $cnf{'title'}【$action】


書店

イベント関係

素材


#