perl中用*取代字符串中回车符

hailiang 2000-08-26 09:54:00
还有一个问题,就是怎么在PERL中得到当前时间
...全文
215 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
chaska 2000-08-28
  • 打赏
  • 举报
回复
sub GetLocalTime {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,undef)= localtime(time);
$mon=$mon+1;
if(length($mon)<2) { $mon ='0'.$mon;}
if(length($mday)<2) { $mday ='0'.$mday;}
if(length($hour)<2) { $hour ='0'.$hour;}
if(length($min)<2) { $min ='0'.$min;}
if(length($sec)<2) { $sec ='0'.$sec;}
my $strTime=(1900+$year).'-'.$mon.'-'.$mday.' '.$hour.':'.$min.':'.$sec;
return $strTime;
}

或在程序中系统调用
$localtime=`date '+\%Y-\%m-\%d \%H:\%M:\%S'`;
chaska 2000-08-27
  • 打赏
  • 举报
回复
用time()或用localtime(time)转换,具体看文档
chaska 2000-08-27
  • 打赏
  • 举报
回复
sub GetLocalTime {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,undef)= localtime(time);
$mon=$mon+1;
if(length($mon)<2) { $mon ='0'.$mon;}
if(length($mday)<2) { $mday ='0'.$mday;}
if(length($hour)<2) { $hour ='0'.$hour;}
if(length($min)<2) { $min ='0'.$min;}
if(length($sec)<2) { $sec ='0'.$sec;}
my $strTime=(1900+$year).'-'.$mon.'-'.$mday.' '.$hour.':'.$min.':'.$sec;
return $strTime;
}

或在程序中系统调用
$localtime=`date '+\%Y-\%m-\%d \%H:\%M:\%S'`;
hailiang 2000-08-27
  • 打赏
  • 举报
回复
谢谢chaska,我没文档可以参考,我还想问如题的问题,谢谢!

2,204

社区成员

发帖
与我相关
我的任务
社区描述
Web 开发 CGI
社区管理员
  • CGI社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧