用PERL求前一天的日期问题？

lhep041

UID: 12068
帖子: 135
积分: 310
在线时间: 1 天 1 小时

1^# lhep041 发表于 2008-03-11 16:22

用PERL求前一天的日期问题？

我在做一个自动备份程式，我想实现定时把前一天的日志文件备份，在取前一天的日期问题上百思不得其解？如下。
sub yesterday_a {
my @date_tmp=localtime(time-86400);
my $yesterday_w = printf("%04d-%02d-%02d",$date_tmp[5]+1900,$date_tmp[4]+1,$date_tmp[3]);
chop $yesterday_w;

return $yesterday_w;
}

my $y_date = &yesterday_a;
print "$y_date 2 \n";
print "$y_date \n";

结果为：

% perl test_date.pl
2008-03-10 2
2
%
请问为什么第二次print 时$y_date就为空了？？？

newfresh

UID: 27733
帖子: 163
积分: 374
在线时间: 1 天 12 小时

2^# newfresh 发表于 2008-03-11 17:21

把printf改为sprintf就好了
因为sprintf会返回所要请求的字符串,而不是像printf那样,将它输出

lhep041

UID: 12068
帖子: 135
积分: 310
在线时间: 1 天 1 小时

3^# lhep041 发表于 2008-03-11 17:52

多谢！

bernana

UID: 9972
帖子: 188
积分: 432
在线时间: 2 天

4^# bernana 发表于 2008-03-11 17:58

自己把自己给绕进去了

liang573728

UID: 38481
帖子: 162
积分: 372
在线时间: 1 天 12 小时

5^# liang573728 发表于 2008-03-12 09:47

QUOTE:

原帖由 newfresh 于 2008-3-11 17:21 发表
把printf改为sprintf就好了
因为sprintf会返回所要请求的字符串,而不是像printf那样,将它输出

那怎样第一次能输出的？

mouse0301

UID: 39733
帖子: 133
积分: 305
在线时间: 1 天

6^# mouse0301 发表于 2008-03-12 11:58

QUOTE:

原帖由 liang573728 于 2008-3-12 09:47 发表

那怎样第一次能输出的？

第一次也不是 print输出的
而是 printf输出的日期
print 输出了 “2”
合在一起就迷惑
哈哈