【发布时间】：2020-02-26 15:38:24
【问题描述】：
user@host:~# mysql -V - mysql Ver 14.14 Distrib 5.7.25-28，适用于使用 7.0 在 debian-9,9 下运行的 debian-linux-gnu (x86_64)
user@host:~# uname -a - Linux 4.9.0-8-amd64 #1 SMP Debian 4.9.144-3.1 (2019-02-19) x86_64 GNU/Linux
user@host:~# perl -MDBI -e 'print $DBI::VERSION ."\n";' - 1.636
user@host:~# perl -v 这是为 x86_64-linux-gnu-thread-multi 构建的 perl 5，版本 24，subversion 1 (v5.24.1)
mysql> SHOW CREATE TABLE tbl1;
mysql> SELECT * FROM tbl1 WHERE id=70003020040132;
但是当我通过 perl::DBI 模块获取这些数据时，我失去了精度，值 0.0000 和 1798.00 变为 0 和 1798。
接下来是代码：
####
#These 3 subs are connecting to DB, executing query and get data by fetchall_arrayref and coverting undef to NULL.
####
sub DB_connect {
# DataBase Handler
my $dbh = DBI->connect("DBI:mysql:$DBNAME", $DBUSER, $DBPWD,{RaiseError => 0, PrintError => 0, mysql_enable_utf8 => 1}) or die "Error connecting to database: $DBI::errstr";
return $dbh;
}
sub DB_executeQuery {
# Executes SQL query. Return reference to array, or array, according to argv[0]
# argv[0] - "A" returns array, "R" - reference to array
# argv[1] - DB handler from DB_connect
# argv[2] - query to execute
my $choice=shift @_;
my $dbh=shift @_;
my $query=shift @_;
print "$query\n" if $DEBUG>2;
my $sth=$dbh->prepare($query) or die "Error preparing $query for execution: $DBI::errstr";
$sth->execute;
my $retval = $sth->fetchall_arrayref;
if ($choice eq "A" ) {
my @ret_arr=();
foreach my $value (@{ $retval }) {
push @ret_arr,@{ $value };
}
return @ret_arr;
}
elsif ($choice eq "R") {
return $retval;
}
}
sub undef2null {
# argv[1] - reference ro array of values where undef
# values has to be changed to NULL
# Returns array of prepared values: (...) (...) ...
my $ref=shift @_;
my @array=();
foreach my $row (@{ $ref }) {
my $str="";
foreach my $val ( @{ $row} ) {
if (! defined ( $val )) {
$str="$str, NULL";
}
else {
# Escape quotes and other symbols listed in square brackets
$val =~ s/([\"\'])/\\$1/g;
$str="$str, \'$val\'";
}
}
# Remove ', ' at the beginning of each VALUES substring
$str=substr($str,2);
push @array,"($str)";
} # End foreach my $row (@{ $ref_values })
return @array;
} # End undef2null
#### Main call
#...
# Somewhere in code I get data from DB and print it to out file
my @arr_values=();
my @arr_col_names=DB_executeQuery("A",$dbh,qq(SELECT column_name FROM `information_schema`.`columns` WHERE `table_schema` = '$DBNAME' AND `table_name` = '@{ $table }'));
@arr_ids=DB_executeQuery("A",$dbh,qq(SELECT `id` FROM `@{ $table }` WHERE `is_sync`=0));
my $ref_values=DB_executeQuery("R",$dbh,"SELECT * FROM \`@{ $table }\` WHERE \`id\` IN(".join(",",@arr_ids).")");
@arr_values=undef2null($ref_values);
print FOUT "REPLACE INTO \`@{ $table }\` (`".join("`, `",@arr_col_names)."`) VALUES ".(join ", ",@arr_values).";\n";
结果我得到下一个字符串：
替换成`pko_plat`（`id`，`main_id`，`debet`，`kurs`，`summ`，`is_sync`）值（'70003020040132'，'70003020038511'，''，'0'， '1798', '0')
在 DB 中是 0.0000 - 变成 0，是 1798.00，变成 1798
Perl 的 DBI 文档说它将数据“按原样”转换为字符串，不进行任何翻译。但是，那么，谁对值进行了四舍五入呢？
【问题讨论】：
-
尝试插入1798.00001，DBI现在显示什么？它会舍入值吗？
-
很快 - 是的，它是圆形的。我已经测试过 - 当通过 DBI 从 DB 获取数据时会发生回合。不是通过我使用的其他一些数据处理方法。例如，如果我输入 MySQL 1798.6356，它会舍入到 1798.64，而 DBI 得到 1798.64。如果 1798.00001 - MySQL 显示 1798.00 而 DBI 显示 1798 但我确实需要 1798.00，显示方式与 MySQL 中相同。
-
hmm.. 你不能只是后处理它吗：
$var = sprintf "%.2f\n", $var? -
OFC sprintf 打印 1798.00。当我使用 DBI 从 MySQL 获取数据时，直接进行舍入。主要问题是：在使用 DBI 时，我能否以某种方式避免使用数字，而只是将所有数据作为字符串获取（如 DBI 文档中所述）？
-
抱歉，根据您上面的评论，在我看来是 MySQL（不是 DBI）将 1798.6356 舍入到 1798.64？
标签： mysql linux perl rounding dbi