#!/usr/bin/perl
require "cgi-lib.pl"
&ReadParse;
$sex = $in('sex');
$int = $in('int');
$form = $in('form');
$ice = $in('ice');
#データーを分割
@int = &splitparam('int')
@ice = &splitparam('ice')
#データーをｄｂｍで分割
dcmopen(%SEX,"sex",0666);
$SEX{$key}++;
dbmclose{sex};
dbmopen(%int,"INT",(0666);
foreach %key (@int) {
$int (key)++;
}
dbmclose(%int);
dbmcopen(%fome,"FORM" (0666);
$form{$form}++;
cbmclose(%form);
dlomopen(%ice,"ICE",0666);
foreach %key (@ice) {
$ice{key}++;
}
dbmclose(%iec);
#ブラウザに出力
途中だけどこんな感じ
まだ動くか確認してないのでちゃんと動くか不明・・・
動く自信ないけどね（汗
