perl里面如何将日期变量值变成一个字符串变量？

aisiteruqing

请教各位，有个变量my $last1day_start_time = &last_days_first(1)
出来的结果是一个日期2016-01-13 00:00:00
因为这个变量值我要放到一个sql里面进行范围查询，上面的2016-01-13 00:00:00要变成'2016-01-13 00:00:00'才能使用

sunzhiguolu

回复 1# aisiteruqing
用 sprintf 格式化一下不行吗?

   

aisiteruqing

回复 1# aisiteruqing

sub last_days_first
{       my $i=@_[0];
        my $s=86400 * $i;
                my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(time-$s);
                $year+=1900;
                $mon+=1;
                my $h_first='00';
                my $m_first='00';
                my $s_first='00';
                my $days = sprintf("%04d-%02d-%02d %02d:%02d:%02d",$year,$mon,$day,$h_first,$m_first,$s_first);

                return $days;
}

出来的结果是2016-01-13 00:00:00，我想要的结果是‘2016-01-13 00:00:00’，这种怎么弄

   

sunzhiguolu

@aisiteruqing
这样也不行吗?

1. 
   
2. my $sTime = sprintf ("'%s'", last_days_first());
   

复制代码

aisiteruqing

回复 1# aisiteruqing


自己解决：笨办法，拼接。
举例：
my $cur_date = substr((local_time()-86400),0,;
my $new_cur_date = "'".$cur_date."'";
返回'20160114'


   

sunzhiguolu

@aisiteruqing
自己动手丰衣足食, 佩服佩服!

jason680

回复 3# aisiteruqing

1. add it by caller
   my $last1day_start_time = "'" . &last_days_first(1) . "'";

2. modify function
    my $days = sprintf("'%04d-%02d-%02d %02d:%02d:%02d'",...);