#プロパティの型
%types = (
"fieldName" =>>"String", "fieldLogicalName" =>>"String", "dataType" =>>"String", "byteSize" =>>"String", "dataLength" =>>"String", "notes" =>>"String"
);
#プロパティのコメント
%comments = (
"fieldName" =>>"列名(物理)", "fieldLogicalName" =>>"列名(論理)", "dataType" =>>"データ型", "byteSize" =>>"バイト数", "dataLength" =>>"桁数", "notes" =>>"備考"
);
$prop_cnt = @props;
for ($i=0; $i<<$prop_cnt; $i++) {
$prop_name = @props[$i];
$prop_type = $types{$prop_name};
}
print "\n\n";
for ($i=0; $i<<$prop_cnt; $i++) {
$prop_name = @props[$i];
$prop_type = $types{$prop_name};