编程中的出错信息二
返回
当社の許可なく第三者へ開示することを禁ずる
Machinery Service Corporation Proprietary & Confidential Information
DBD::mysql::db do failed: Data truncated for column 'gname_id' at row 1 at inser
t_tables.pl line 65.
INSERT INTO main_type1 (id,name,series,gname_id,maker_id,GR,DWG,memo) VALUES("27
9","SJ 30G","XXXSERIES","603066-0.5.7=6031421=6031548=1140786","256","94","","XX
XDWG=265905A-C2=A10011F=206346=206346=206352A=FIG,2-32 BOWL ASSEMBLY =FIG.2-53 W
ATER SUPPLYING DEVICE ASS`Y =FIG.2-63 GEAR PUMP ASSEMBLY=BOWL ASSEMBLY=BOWL ASSE
MBLY 206346=BOWL ASSEMBLY 206346=VERTICAL SHAFT ASSEMBLY,206348=HORIZONTAL SHAFT
ASSEMBLY,206349A=NK 00B175P=BOWL ASSEMBLY ,D/N 206346=FIG 2-32")
===>seriesがおかし!
DBD::mysql::db do failed: Incorrect integer value: '=1' for column 'gname_id' at
row 1 at insert_tables.pl line 65.
INSERT INTO main_type1 (id,name,series,gname_id,maker_id,GR,DWG,memo) VALUES("18
82","test","XXXSERIES","=1","1","","XXXDWG","")
===>seriesがおかし!
enq1-ID 4592, 9071405のparts顺序问题,已解决(重新选择即可)
8082603
零件修改 に入れない。
==>零件表a000339的部分零件price1,price2存在NULL.
==>为了解决这个问题,编一个程序对所有的price1和price2赋值
8090111
メーカー値段入力すると、8090110 の場面に変わる。
猜想:可能在生成"複数仕入先"のとき,enq2のenq1idに間違った番号をつけた?
mscenq1_start.pl
[Tue Aug 19 16:28:33 2008] [error] [client 192.168.116.5] DBD::mysql::db selectrow_array failed: Table 'msc.a000519' doesn't exist at ./pro/mscenq1_start.pl line 291, line 12., referer: http://192.168.116.100/cgi-bin/msc_start.cgi
==>增加a000519表格
[Tue Aug 19 16:28:33 2008] [error] [client 192.168.116.5] Use of uninitialized value in string eq at ./pro/mscenq1_start.pl line 38, line 12., referer: http://192.168.116.100/cgi-bin/msc_start.cgi
==> if ( $t{mode} eq 'new' or $t{mode} eq 'copy' ) {,所有到mscenq1_start画面的都要指定mode参数(检查所有相关的SUB)
[Tue Aug 19 16:28:33 2008] [error] [client 192.168.116.5] Use of uninitialized value in numeric gt (>) at ./pro/mscenq1_start.pl line 292, line 12., referer: http://192.168.116.100/cgi-bin/msc_start.cgi
==> if ( $t{count1} > 0 ) {, 需要考虑$t{count1} = 0的情况
[Tue Aug 19 16:28:33 2008] [error] [client 192.168.116.5] Use of uninitialized value in concatenation (.) or string at ./pro/mscenq1_start.pl line 327, line 12., referer: http://192.168.116.100/cgi-bin/msc_start.cgi
==> $t{name1} .= ' ' . $rec[0] . ' ' . $rec[2] . ' ' . $rec[4]; 需要考虑$rec[4] = 0 的情况.
mscenq1.pl
[Tue Aug 19 16:10:53 2008] [error] [client 192.168.116.5] Argument "C" isn't numeric in numeric eq (==) at ./pro/mscenq1.pl line 912, line 12., referer: http://192.168.116.100/cgi-bin/msc_start.cgi
[Tue Aug 19 16:41:43 2008] [error] [client 192.168.116.5] Argument "C" isn't numeric in numeric eq (==) at ./pro/mscenq1.pl line 914, line 12., referer: http://192.168.116.100/cgi-bin/msc_start.cgi
==> if ( $t{sid0} == $t{sid1} ) {, 注意$t{sid1}="C"的情况
[Tue Aug 19 16:43:37 2008] [error] [client 192.168.116.4] Use of uninitialized value in concatenation (.) or string at ./pro/mscenq1.pl line 1674, line 12., referer: http://192.168.116.100/cgi-bin/msc_start.cgi
[Tue Aug 19 16:43:37 2008] [error] [client 192.168.116.4] Use of uninitialized value in concatenation (.) or string at ./pro/mscenq1.pl line 1688, line 12., referer: http://192.168.116.100/cgi-bin/msc_start.cgi
==> $t{maker} = 'MAKER: ' . $t{maker}; 注意$t{maker}不存在的情况
[Tue Aug 19 16:43:37 2008] [error] [client 192.168.116.4] Argument "C" isn't numeric in numeric gt (>) at ./pro/mscenq1.pl line 1693, line 12., referer: http://192.168.116.100/cgi-bin/msc_start.cgi
==> if ( $t{seri2} > 1 ) { 注意$t{seri2} = "C"的情况
mscquo2.pl
[Tue Aug 19 17:00:05 2008] [error] [client 192.168.116.5] Argument "" isn't numeric in numeric ne (!=) at ./pro/mscquo2.pl line 498, line 12., referer: http://192.168.116.100/cgi-bin/msc_start.cgi
==> if ( $t{A1} != 0 ) { 注意$t{A1}不是数字的情况
[Tue Aug 19 17:00:05 2008] [error] [client 192.168.116.5] Argument "" isn't numeric in numeric ne (!=) at ./pro/mscquo2.pl line 531, line 12., referer: http://192.168.116.100/cgi-bin/msc_start.cgi
==> if ( $t{pl1}[$n] != 0 ) { 注意$t{pl1}[$n]不是数字的情况
[Tue Aug 19 16:28:37 2008] [error] [client 192.168.116.5] Use of uninitialized value in split at ./pro/mscquo2.pl line 644, line 12., referer: http://192.168.116.100/cgi-bin/msc_start.cgi
==> @{ $t{p11} } = split(/=/,$$pref{price10}); 注意$$pref{price10}不存在的情况
[Tue Aug 19 16:28:37 2008] [error] [client 192.168.116.5] Use of uninitialized value in split at ./pro/mscquo2.pl line 799, line 12., referer: http://192.168.116.100/cgi-bin/msc_start.cgi
==> @{ $t{p11} } = split(/=/,$$pref{price10}); 注意$$pref{price10}不存在的情况
[Tue Aug 19 17:00:05 2008] [error] [client 192.168.116.5] Argument "" isn't numeric in numeric ne (!=) at ./pro/mscquo2.pl line 498, line 12., referer: http://192.168.116.100/cgi-bin/msc_start.cgi
==> if ( $t{A1} != 0 ) { 注意$t{A1}不是数字的情况
[Thu Aug 28 11:06:19 2008] [error] [client 127.0.0.1] Argument "C" isn't numeric in numeric ne (!=) at ./pro/mscquo2.pl line 498, line 11., referer: http://localhost/cgi-bin/msc_start.cgi
sub get_length {
my ($pref) = @_;
my (%t,$n);
@{ $t{As} } = split(/=/,$$pref{A});
$$pref{leng} = 0;
if ( $t{As}[0] eq 'C' ) { # ==>增加这个循环
return ($pref);
}
for $n ( 0 .. $#{ $t{As} } ) {
$t{A1} = $t{As}[$n];
if ( $t{A1} != 0 ) {
$$pref{leng}++;
}
}
return ($pref);
}
mscupdate.pl
[Tue Aug 19 17:08:46 2008] [error] [client 192.168.116.5] "my" variable $n masks earlier declaration in same statement at ./pro/mscupdate.pl line 12.\r, referer: http://192.168.116.100/cgi-bin/msc_start.cgi
==>解决
返回