当我将我的 Perl 程序从 Linux 移到 Windows 时，为什么日期和数字格式会发生变化？

Question

我正在将一些脚本从 Linux 机器移动到 Windows 机器，但现在打印的任何数字或日期都失去了格式（即，数字四舍五入到小数点后 2 位，日期为 2010 年 6 月 1 日..）。

我对 Perl 很陌生，无法弄清楚他们从哪里获得格式，因为脚本中似乎没有任何内容。

我也一直在谷歌搜索全局设置和环境变量，但我找不到任何可以这样做的参考？

到目前为止，我已经设法手动添加数字格式，但仍然对如何正确设置日期格式感到有些困惑，但这两项似乎在以前的其他地方已经完成..

示例

目前我有这条线：

 $text->text("$r_detail->{distance}");

其中"$r_detail->{distance}") 是一个数字，它来自数据库，我使用sprintf('%.1f',$r_detail->{distance}) 对其进行格式化。

现在是12.0988790，格式化后是12.10

日期也来自数据库，它使用的行类似于：

&wh($th,$td,$hrow,30,"SurveyDate:","$r_survey->{sdate}");

我根本不知道如何格式化。

日期现在看起来像：!2003-06-23 09:40:00! 之前他们是!Jun 23 2002 09:40AM!

（它在最后创建一个 PDF）

数据库详情和可能的结论
日期以以下格式存储在数据库中：'2003-06-23 09:40:00' 它们位于“smalldatetime”列中。 这些数字存储为浮点数，保留 1 或 2 位小数。即 2.10 或 15.8

如下所示（我还记得它最初是使用 DBD::Sybase 连接到数据库，但我不得不将其更改为 DBI）是数据库连接改变了我的格式。

我最终如何格式化日期

use Date::Parse;
use POSIX; 

my $date ="2002-03-18 10:05:00";
my $parsedDate = str2time($date);
my $formattedDate=strftime "%d %b %Y %I:%M%p", localtime $parsedDate;

我在其他地方得到了答案，因为我完全糊涂了！ 我没有意识到我必须先解析日期！

Answer 1

由于strftime 总是定义格式，我相信您从某些外部来源获取日期（例如，日期未在 perl 脚本中格式化）。

系统实用程序的日期格式由LC_TIME 环境变量控制。因此，如果您在 perl 脚本中解析某个实用程序的输出，您可能希望首先设置此属性（例如，使其成为系统范围的设置）：

# export LC_TIME=de_DE
# date
Mi 6. Okt 14:54:22 CEST 2010
# export LC_TIME=POSIX
# date
Wed Oct  6 14:54:26 CEST 2010

尝试在控制面板 → 区域和语言设置中更改您的设置。如果它影响日期的格式，则您具有依赖于环境的日期格式。然后您需要检查您的数据库客户端：它如何处理从表中获取的日期字段。你从 DBI 收到$r_detail 吗？

Answer 2

还有什么变化吗，也许数据库也从 Linux 迁移到了 Windows？您所看到的可能只是数据库返回其日期值的方式。如果是这样，您应该在数据库配置中寻找解决方案，或者至少在数据库客户端库配置中寻找解决方案。

来自DBI documentation 的引用可能是相关的

日期和时间返回为 当前字符串中的 对应的默认格式 数据库引擎。时区效应是 依赖于数据库/驱动程序。

Answer 3

Perl 5 没有任何数字或日期的默认格式。你能在 Linux 和 MS Windows 上发布代码和输出的示例吗？

控制数字格式的最佳方法是使用printf（打印到文件）或sprintf（返回字符串）。

#!/usr/bin/perl

use strict;
use warnings;

my $n = 16;

printf "%08b %03o %02x %2.5f %010d\n", $n, $n, $n, $n, $n;

控制日期格式的最佳方法是使用日期模块之一或POSIX 的strftime 函数。

#!/usr/bin/perl

use strict;
use warnings;

use POSIX qw/strftime/;

my @date = localtime;
for my $format (qw(%Y-%m-%d %m/%d/%Y %d/%m/%Y)) {
    print strftime($format, @date), "\n";
}

鉴于您的更新，我认为问题不在于 Perl 5，而在于您的数据库。您要么更改了正在与之交谈的数据库，要么控制数据库的环境在 Linux 和 MS Windows 之间不同。这绝对是日期的问题，因为 Perl 5 不知道它是一个日期（它只是将它视为一个字符串）。除非你用它们做数学运算，否则数字也是如此。从数据库返回的数字实际上是一个字符串，而不是数字。在您对其进行数学运算之前，它一直是一个字符串（此时 Perl 5 会自动将其转换为一个数字）。

由于您的日期不是日期格式，因此您需要将其转换为日期格式。幸运的是，您拥有的格式很容易转换成相同的格式localtime 返回：

#!/usr/bin/perl

use strict;
use warnings;

use POSIX qw/strftime/;

my $input = "2010-06-10 08:50:18.797";

#convert input string into a tm structure like localtime returns
my @localtime = reverse split /[- :]/, $input;
$localtime[5] -= 1900;
$localtime[4]--;

print strftime("%d %b %Y %I:%M%p", @localtime), "\n";