#!/usr/bin/perl
use strict;
use warnings;
use POSIX qw(strftime);
my $shu="1:31";
my ($shi,$min)=split /:/,$shu;
my $s_sec=$shi*60*60+$min*60;
#print $s_sec;
my $now_string = strftime "%m月%d日 %a %e %H:%M:%S", localtime(time+$s_sec);
print $now_string;
阅读(358) | 评论(0) | 转发(0) |