这种方法是否正确找出 SQLite 使用的小数点?
#!/usr/bin/env perl
use warnings;
use strict;
use POSIX qw(locale_h);
my $locale_values = localeconv();
my $dec_mark_sqlite = $locale_values->{decimal_point};
这种方法是否正确找出 SQLite 使用的小数点?
#!/usr/bin/env perl
use warnings;
use strict;
use POSIX qw(locale_h);
my $locale_values = localeconv();
my $dec_mark_sqlite = $locale_values->{decimal_point};
您无需为此编写任何代码;在 SQL 语言中,.
始终是小数分隔符,并且,
始终分隔列表条目。
请注意,当您的代码与数据库交互时,使用浮点数最直接有效的方法不需要文本转换:
my $sth = $dbh->prepare("SELECT OutVal FROM Tab WHERE InVal > ?");
my $input_value = 1.234;
$sth->execute($input_value); # no text conversion
while (my $row = $sth->fetchrow_array()) {
my $output_value = $row[0]; # no text conversion
}
如果您将浮点值从/转换为文本,您可能会做错事。