ts7758258 发表于 2015-12-28 12:35:47

perl求上一个小时

　　#!/usr/perl5/bin/perl
　　use Time::ParseDate;
use Date::Format;
　　my $time=$ARGV;
$time=~/(\d{4})(\d{2})(\d{2})/;
$time=$1."-".$2."-".$3;
$time="2006-5-1 0:00";
　　$stoptime=time2str("%Y-%m-%d %H:%M",parsedate($time,"%Y-%m-%d %H:%M")-3600);
　　print qq($startime|$stoptime\n);
页: [1]
查看完整版本: perl求上一个小时