perl里面如何將日期變量值變成一個(gè)字符串變量？

aisiteruqing

請(qǐng)教各位，有個(gè)變量my $last1day_start_time = &last_days_first(1)
出來的結(jié)果是一個(gè)日期2016-01-13 00:00:00
因?yàn)檫@個(gè)變量值我要放到一個(gè)sql里面進(jìn)行范圍查詢，上面的2016-01-13 00:00:00要變成'2016-01-13 00:00:00'才能使用

sunzhiguolu

回復(fù) 1# aisiteruqing
用 sprintf 格式化一下不行嗎?

   

aisiteruqing

回復(fù) 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;
}

出來的結(jié)果是2016-01-13 00:00:00，我想要的結(jié)果是‘2016-01-13 00:00:00’，這種怎么弄

   

sunzhiguolu

@aisiteruqing
這樣也不行嗎?

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

復(fù)制代碼

aisiteruqing

回復(fù) 1# aisiteruqing


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


   

sunzhiguolu

@aisiteruqing
自己動(dòng)手豐衣足食, 佩服佩服!

jason680

回復(fù) 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'",...);