在perl中获取当前的日期和时间

最新推荐文章于 2022-04-01 14:11:30 发布
转载 最新推荐文章于 2022-04-01 14:11:30 发布 · 5.1k 阅读 · 2

本文介绍了一种使用 Perl 脚本语言将 Unix 时间戳转换为人类可读的日期格式的方法。通过此方法，可以将当前时间的时间戳转换成年-月-日 时:分:秒的形式。
my ($sec,$min,$hour,$day,$mon,$year,$weekday,$yeardate,$savinglightday)   =  (localtime(time));
$sec   =   ($sec   <   10)?   "0$sec":$sec;
$min   =   ($min   <   10)?   "0$min":$min;
$hour   =   ($hour   <   10)?   "0$hour":$hour;
$day   =   ($day   <   10)?   "0$day":$day;
$mon   =   ($mon   <   9)?   "0 ".($mon+1):($mon+1);
$year   +=   1900;

然后组合，比如：
$now   =   "$year-$mon-$day   $hour:$min:$sec";
Perl自学（09）——时间日期
陌上人如玉，公子世无双。
07-22 1252
Perl中处理时间的函数有如下几种： time() 函数：返回从1970年1月1日起累计的秒数 localtime() 函数：获取本地时区时间 gmtime() 函数：获取格林威治时间 1. 当地时间——localtime() 函数 localtime()函数，该函数在没有参数的情况下返回当前的时间和日期。 sec, # 秒， 0 到 61 min, # 分钟， 0 到 59 hour, # 小时， 0 到 24 mday, # 天， 1 到 31 mon, ..
Perl 时间日期处理指南
csbysj2020
04-21 426
Perl 提供了丰富的日期时间处理函数和模块，使得开发者可以轻松地实现各种日期时间的操作。本文介绍了 Perl 中时间日期的处理方法，包括日期格式化、时间计算、日期转换等。希望本文能帮助您更好地理解和使用 Perl 中的时间日期处理功能。
Perl获取当前系统时间
linfengfeiye的专栏
12-09 5069
Perl获取当前系统时间 Perl 2010-12-06 10:41:57 阅读236 评论0   字号：大中小 订阅 perl有两个取得时间的函数:localtime和gmtime 两个函数的用法一样,区别在于localtime为取得本地时间, gmtime格林威治时间。 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isd
用perl获得当前日期
beyondlpf的专栏
11-06 1641
今天在网上查到如何用perl语言得到当前日期，记在这里： (＄sec,＄min,＄hour,＄day,＄mon,＄year,＄weekday,＄yeardate,＄savinglightday) = (localtime(time)); print "day=======＄day\n"; print "mon=======".++＄mon."\n"; print "year=======＄
perl获取文件修改时间
10-13
perl获取文件修改时间，
linux perl 运行时间,perl在linux下通过date获取当前时间
weixin_33445134的博客
05-02 536
perl处理文件的时候最好添加上 处理的时间戳，获取系统的时间又多种方法，但是反引号是最原始的，不需要其他外界条件和lib的支持。my $now = `date "+%F %T"print FH $now;结果为：2014-04-13 21:58:21#my $time_string = `date "+YYYYmmddHHMM"`;my $time_string = `date "+%Y_%m_...
perl获取时间
ace_fei的专栏
11-17 1531
sub getDate { my $DATE = "0"; # Get the date ($day, $month, $year, $hour, $min, $sec) = (localtime)[3, 4, 5, 2, 1, 0]; # Reformat numbers to have two digits $day =
perl输入当前时点上日日期
最新发布
08-16
# 获取当前日期 my ($year, $month, $day) = Today(); # 计算前一天 ($year, $month, $day) = Add_Delta_Days($year, $month, $day, -1); # 格式化为YYYYMMDD my $yesterday_ymd = sprintf("%04d%02d%02d", $year,...
Oracle下时间转换在几种语言中的实现
09-11
`time()` 函数可以获取当前时间，`localtime()` 函数可以将时间转换为本地时间，`gmtime()` 函数可以将时间转换为格林威治 Mean Time（GMT），`mktime()` 函数可以将时间转换为 seconds since the Epoch，`asctime()...
perl_TimeDate.rar_activeperl timeda_perl TimeDate_perl Timeda_pe
09-14
Time::Date提供了丰富的函数，如`date`用于获取当前日期，`time`用于获取当前时间，`add`和`subtract`用于日期的加减，`str2date`和`date2str`用于日期字符串和内部日期值之间的转换，`format`则可以按照特定格式...
perl处理获取指定日期
hugo_young的博客
04-01 2229
今天写perl脚本的时候涉及到了处理日期的问题， 我们需要安装Date::Calc这个perl的模块 使用yum来直接安装perl的模块，命令如下： yum search perl- #搜索所有软件源里的perl模块 yum install -y perl-* #安装所有软件源里的perl模块 yum install -y perl-XXX #安装所有软件源里指定的XXXperl模块 yum install -y perl-Date-Cal.
perl 时间相关
weixin_34327761的博客
01-08 244
1.获取系统时间     孔乙己说：回字有四样写法,你知道么?     我说： 我不知道，我只知道perl获取系统时间有3种方法（孤陋寡闻）   1. 使用localtime函数   Converts a time as returned by the time function to a 9-element   a hash      list with the time analy...
perl获得当期的日期和时间
kongjunlongaa的博客
05-12 1541
1.使用 POSIX 模块 perl -e 'use POSIX; print strftime("%Y-%m-%d %H:%M:%S\n",localtime)' 如果有时差，将时差时间加到localtime后面。如：我现在使用的主机是 dreamehost 的主机，当前时区是 -700 ，而中国的时区是+800，相差15小时，为了让同步程序的时间正常，需要将系统时间向后调整15小时
我使用过的Linux命令之date - 显示、修改系统日期时间
巨人站在肩膀上
08-25 1382
我使用过的Linux命令之date - 显示、修改系统日期时间 本文链接：http://codingstandards.iteye.com/blog/1157513   （转载请注明出处）   用途说明 date命令可以用来显示和修改系统日期时间，注意不是time命令。   常用参数 格式：date 显示当前日期时间。   格式：date mmddHHMM          ...
Perl 时间日期
Shao_You的博客
04-05 1130
Perl 时间日期 本章节我们为大家介绍 Perl 语言对时间日期的处理。 Perl中处理时间的函数有如下几种： 1、time() 函数：返回从1970年1月1日起累计的秒数2、localtime() 函数：获取本地时区时间3、gmtime() 函数： 获取格林威治时间 当前时间和日期 接下来让我们看下 localtime() 函数，该函数在没有参数的情况下返回当
Perl取得系统日期
01-08 226
($sec,$min,$hour,$mday,$mon,$year)=localtime(time); $mon++; $mon="0$mon" if ($mon
perl读取当前时间和读取某个文件夹下的所有文件
dengdaiforever的专栏
04-08 2339
#!/usr/bin/perl use strict; sub getTime {  my $time = shift||time();  my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);  $mon++;  $sec = ($sec  $min = ($min  $hour =
使用perl计算日期
ppby2002的专栏
06-03 1444
#!/usr/bin/perlsub addDate{  ($delt) = @_;    my $date = time() + 60 * 60 * 24 * $delt;  (undef, undef, undef, $day, $month, $year) = localtime $date;    $year += 1900;  $month++; 
简单的日期判断 perl
ma_zmin的专栏
02-01 1051
my $date = 2009/12/12; if($date !~ m!^((?:19|20)/d/d)[- /.](0[1-9]|1[012])[- /.](0[1-9]|[12][0-9]|3[01])$!){    die; }
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值