MySQL操作程序二十五(mscupdate.pl)
返回
- 给$aref赋值时,需要把本身的值除外(用id来实现)
- msc202.htm修改
<![CDATA[
$aref = $self->dbh->selectcol_arrayref("SELECT HULL_NO FROM $t{table}");
#####################################
# msccheck1.pl 检查输入项目是否有重复
#####################################
sub check1 {
my($a_ref) = @_;
my(%t,$n);
$$a_ref{NG} = 0;
for $n ( 0 .. $#{ $$a_ref{list} } ) {
if ( $$a_ref{name1} eq $$a_ref{list}[$n] ) {
$$a_ref{NG} = 1;
}
}
return($a_ref);
}
]]>
返回