08/01/06 17:03:52
>>667
p_html_kotaivew_kekkawrite
($name, \@status, $ks, \@han1, \@han2, \@sta1, \@sta2);
sub p_html_kotaivew_kekkawrite{
local $name = @_[0];
local @status = @{$_[1]};
local $ks = @_[2];
local @han1 = @{$_[3]};
local @han2 = @{$_[4]};
}
local @sta1 = @{$_[5]};
local @sta2 = @{$_[6]};
}