perl中 "日期" 转php----请求PHP高手支援!!!

Question

PHP:
my ($day, $month, $year) = (localtime(time()-86400))[3,4,5]; 
--------------------------------------------------------------
$day = date('Y',time()-86400)); $month = date('m',time()-86400));$day=date('d',time()-86400));   关于setvar，不知你是用的哪个pm，在标准函数库种没有其定义。

Answer 1

首先，小弟非常感谢“lvlfforever(那一年)”,谢谢！下面是perl一段原语句：
my $tb_region = sprintf("MMS8888_RPT_REGION_%04d%02d", $rptyear, $rptmon);
$rptmon ="0$rptmon" if (length($rptmon)<2);
$rptday ="0$rptday" if (length($rptday)<2);
$rptday2 ="0$rptday2" if (length($rptday2)<2);my $page = &template("report/mms/mms_service_query.tmpl");
$page = setvar($page, "CGI", $ENV{SCRIPT_NAME});    //这些地方不知道怎么转？
$page = setvar($page, "SYEAR", $rptyear-2001);
$page = setvar($page, "SMONTH", $rptmon-1);
$page = setvar($page, "SDAY", $rptday-1);
$page = setvar($page, "SDAY2", $rptday2-1);
$page = setvar($page, "SERVICE", $service);
$page = setvar($page, "PROVINCES", $provinces);
$page = setvar($page, "CHECKED$sortby", "checked");
$page = setvar($page, "CHEKED$cableby", "checked");print $page;    

Answer 2

$page = new template("report/mms/mms_service_query.tmpl"); //引用模版，事先必须建立template类。
下面的我估计是用变量替换模版中特殊字符。
$page = setvar($page, "CGI", $ENV{SCRIPT_NAME});可以试试这样：
$page = str_replace("CGI",$ENV{SCRIPT_NAME},$page);
以下雷同...