perl不用模块计算指定日期和今天相差天数

提问网友发布时间：2024-05-08 21:51

声明：本网页内容为用户发布，旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:1656858193@qq.com

共3个回答

热心网友回答时间：2024-05-15 11:54

模块不用另外装的。本来就有，连载入都不用啊，除非你的版本特别老？
以下是一些时间的常见用法。你自己直接用这些函数就好了，我做了简单的注解。
给我分吧~做任务中~不懂得可以追问。
my $t=time; # 得到时间，不过是一串数字
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($t); #也可以用=gmtime
$year+=1900; # $year变量的意思是since 1900
my @months = qw (Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); # count since 0
message("$year-$months[$mon]-$mday $hour:$min:$sec, isdst: $isdst, day: $mday"); # number of seconds since Jan 1st, 1970

热心网友回答时间：2024-05-15 11:55

程序我没有办法帮你实现了。我只能告诉你思路。把你的输入的日期转换为unix时间截，然后再取系统时间截。时间截好像是从1970-01-01 00：00：00 开始算起的。通常是一组数字，如
[fy138@mail ~]$ perl -e 'print time()'
1313997257

热心网友回答时间：2024-05-15 11:55

#!/usr/bin/perl
use strict;
use warnings;
use Time::Local; #自带日期模块

my $input = shift;

my ($year, $mon, $day) = $input=~/(\d{2})(\d{2})(\d{2})/;

my $today = time();

my $other_day = timelocal(0,0,0,$day,$mon-1, $year);

my $diff = $other_day - $today;

printf "It is %.2f days ", abs($diff/(60*60*24));

print $diff>0? "in the future\n" : "ago\n";追问您好，现在日期范围增加了，日期也可以是今天之后的日期
我想要取得差的天数，而且天数有正负之分
去掉abs的，而且将%.2f换成%d的话，如果向前算没什么问题
但是向后算，因为不满一天，相当于就少算了一天

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。

已解决

等待解决

首页

互助专区

登录

注册

perl不用模块计算指定日期和今天相差天数