奇怪呀，为什么打印到excel文件中第一行总是不对？

dl0622

UID: 38417
帖子: 194
积分: 446
在线时间: 2 天 3 小时

1^# dl0622 发表于 2008-12-03 14:32

奇怪呀，为什么打印到excel文件中第一行总是不对？

我把日期打印到屏幕上了，都是对的，输出到excel时，简单验证过也是对的；
但是我的脚本比较复杂，调用了下面的t2str，第一行打印为1970-1-1，不知道哪一步出错了。
请问什么情况下会打印1970-1-1？
如下：
1970-1-1
2008-12-3
2008-12-3

[Copy to clipboard] [ - ]

CODE:

sub t2str {
my @m = ();
@m[0..5] = localtime(shift || time); # 只取前面 6 个元素
@m[4, 5] = (++$m[4], $m[5] + 1900);
if($m[4]<10 && $m[3]<10)
{ sprintf qq/%04d-%1d-%1d/, reverse @m; }
elsif($m[4]<10 && $m[3]>=10)
{ sprintf qq/%04d-%1d-%2d/, reverse @m; }
elsif($m[4]>=10 && $m[3]<10)
{ sprintf qq/%04d-%2d-%1d/, reverse @m; }
elsif($m[4]>=10 && $m[3]>=10)
{ sprintf qq/%04d-%2d-%2d/, reverse @m; }
else
{}
}

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

2^# MMMIX 发表于 2008-12-03 15:17

QUOTE:

原帖由 dl0622 于 2008-12-3 14:32 发表
我把日期打印到屏幕上了，都是对的，输出到excel时，简单验证过也是对的；
但是我的脚本比较复杂，调用了下面的t2str，第一行打印为1970-01-01，不知道哪一步出错了。
请问什么情况下会打印1970-01-01？

在许多 OS 中 epoch 为 1970-01-01, 因此 localtime(0) 就是这个了

见 perldoc -f time

dl0622

UID: 38417
帖子: 194
积分: 446
在线时间: 2 天 3 小时

3^# dl0622 发表于 2008-12-03 16:14

可能是shift在作怪，去掉就好了

machine

UID: 43012
帖子: 185
积分: 425
在线时间: 1 天 22 小时

4^# machine 发表于 2008-12-03 17:03

localtime(shift || time)的问题，肯定在第一行的时候shift取出值了但结果不是你预期的。