perl 时间

发布时间：2020-12-15 21:04:23 所属栏目：大数据来源：网络整理

导读：#! /usr/bin/perl -w use v5.14; #参考 perl tutorial time,请看我之前的文章：perl 视频小教程第22课 my $time = localtime(time); say $time; $time = gmtime(time);? #格林威治 main time say $time; $time = time; say $time; my ($sec,$min,$hour,$mday

#! /usr/bin/perl -w

use v5.14;

#参考 perl tutorial time,请看我之前的文章：perl 视频小教程第22课

my $time = localtime(time); say $time; $time = gmtime(time);? #格林威治 main time say $time; $time = time; say $time; my ($sec,$min,$hour,$mday,$mon,$year,??? $wday,$yday,$isdst) = localtime(time); say "second: $sec,minute: $min,hour: $hour,? ?month day: $mday,month: $mon,year(1900+): $year,? ?week day: $wday,year day: $yday,is dst: $isdst"; my @months = (1..12); my @days = qw(Sun Mon Tue Wed Thu Fri Sat); $year = $year + 1900; my $date = "$year/$months[$mon]/$mday $days[$wday]"; $time = "$hour:$min:$sec"; say "$date : $time";

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!