perl 时间

最新推荐文章于 2018-09-11 08:15:43 发布
最新推荐文章于 2018-09-11 08:15:43 发布
阅读量559 收藏
点赞数
分类专栏： perl 文章标签： perl 360
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/diana_cherry/article/details/6286840
版权

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time()-3600*17);

$year += 1900;

$mon++;

if($mon <10){

$mon='0'.$mon;

}

if($mday <10){

$mday='0'.$mday;

}

 

if($hour <10){

$hour='0'.$hour;

}

my $today=$year.$mon.$mday;

1天之前的时间

localtime(time() - 86400*1)

diana_cherry
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
perl
weixin_41287916的博客
05-13 421
使用内建警告信息 在运行时，加上 -w ￥perl -w my_program #!/usr/bin/perl/ -w #!/usr/bin/perl use warinings use diagnostics 如果要查看更详细的信息可以用这个 use strict 强制终止程序的执行直到程序问题被解决 1、会避免错误拼写 2、限定变量的范围 如何使用帮助文档perldoc 标量$ 数字标量 全部为双精度浮点数 $data = 10; $data = 10.00；是一样的，都会被转到双精度浮点 较长的
Perl时间处理函数用法介绍
最新发布
jh035的博客
12-02 1028
要存取这些数，你只需运用整数算术运算，gmtime()和localtime()函数，以及标准的Time::Local模块。其结果说明了什么呢？你不能存储gmtime(2**31)之前或gmtime(2**31-1)之后的以纪元秒表示的日期。前3个数: 0,0,0, 分别表示秒, 分, 时. 小时是从0-23，故下午是12时往后.调用gmtime()函数，你会得到一系列值的列表,包括时，分，秒,日期，月份，年份等.如果调用localtime()或gmtime()时不带参数，它将自己调用time()
PHP date() time() 应用总结 - 日期时间计算，格式化，转化，间隔天数
uvyoaa的专栏
09-11 1384
工作中经常碰到日期处理的事情，比如格式化日期、某日期的时间戳、几天后的时间戳、某日期几天前的日期、某日期几天后的日期和日期间相隔天数等。常用到的日期处理函数有date()，strftime()，strtotime()，time()，mktime()，strptime()，localtime()，getdate()。下面就这些函数做简单介绍，并列举一些常用事例。主要理解函数的参数及返回值，再结合事例...
Perl 中的localtime函数
da895的专栏
09-06 2213
Perl中localtime（）函数以及sprintf (2011-4-25 19:39)localtime函数 localtime函数，根据它所在的上下文，可以用两种完全不同的方法来运行。在标量上下文中，localtime函数返回一个格式化很好的当前时间字符串。例如，print scalar (localtime)这个代码，它输出的结果将类似于Thu Sep 16 23:00:06 1999。
Perl获取当前系统时间
linfengfeiye的专栏
12-09 4928
Perl获取当前系统时间 Perl 2010-12-06 10:41:57 阅读236 评论0   字号：大中小 订阅 perl有两个取得时间的函数:localtime和gmtime 两个函数的用法一样,区别在于localtime为取得本地时间, gmtime格林威治时间。 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isd
localtime函数可以实现获取时间信息
bruce_wang_janet的专栏
07-22 2106
localtime函数，根据它所在的上下文，可以用两种完全不同的方法来运行。在标量上下文中，localtime函数返回一个格式化很好的当前时间字符串。例如，print scalar (localtime)这个代码，它输出的结果将类似于Thu Sep 16 23:00:06 1999。在列表上下文中，localtime将返回能够描述当前时间的一个元素列表： ($sec,$min,$hour,$md
讲Perl中的本地时间与UNIX时间戳间相互转换的方法
09-21
### Perl中的本地时间与UNIX时间戳间的相互转换 在Perl编程中，经常需要处理时间相关的数据，特别是将本地时间（即人类易于理解的日期和时间格式）与UNIX时间戳（自1970年1月1日00:00:00 UTC起的秒数）进行相互转换...
Perl
02-14
它最初由Larry Wall于1987年开发，主要用于文本处理任务，但随着时间的发展，Perl的功能得到了极大的扩展，现在它可以用于编写各种复杂的应用程序。 Perl的特点之一是其语法的灵活性，这使得Perl代码可以写得非常...
Intermediate PERL
08-14
- 每章内容设计紧凑，便于读者短时间内消化吸收。 - 提供大量练习题，帮助巩固所学知识。 - 假设读者已掌握《学习Perl》中的基础知识，鼓励进一步探索Perl的高级功能。 #### 五、Perl语言的应用场景 - **系统管理**...
perl获取文件修改时间
10-13
其中，获取文件的修改时间是Perl在文件操作中的一个常见且实用的功能，尤其对于需要监控文件更新状态或进行定时备份等场景至关重要。 ### Perl获取文件修改时间详解 #### 一、`stat`函数解析 在Perl中，`stat`...
Perl的时间函数localtime
happmaoo的专栏
10-22 468
http://perldoc.perl.org/functions/localtime.html1. 一般使用：@nowtime=localtime();#($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();注意$mon+1，$year+1900;$now_string = localtime; # e.g., ...
perl hash 按值排序 升序 降序
diana_cherry的专栏
03-03 7627
<br />降序<br />foreach my $key (sort  { $hashT{$b} <=> $hashT{$a} } keys %hashT){<br />     printf("%s/t%s/n",$key, $hashT{$key});<br /> }<br />升序<br />foreach my $key (sort  { $hashT{$a} <=> $hashT{$b} } keys %hashT){<br />     printf("%s/t%s/n",$key, $
perl File::Tail模块的使用
diana_cherry的专栏
03-16 3337
最近在做一个实时数据的工作，需要读取不断更新的文件，类似shell中tail的功能，使用了perl的File::Tail模块,简要代码如下 use File::Tail; my $file=File::Tail->new(name=>&new_file($first_file_date),interval=>1,maxinterval=>10,tail=>-1,reset_tail=>-1
perl 正则内插变量
diana_cherry的专栏
03-31 2327
<br />1. my $t="123";<br />if($url=~//Q$t/E/<br />2.，如果标量为：<br />$scalar = " ({";<br />那么输入如下代码：<br />$variabie =~ m" $scalar" ;<br />就等价于是说
perl对于utf8编码文件的substr
diana_cherry的专栏
09-14 1461
perl脚本本省使用utf8编码，环境默认编码为utf8 1.加上use utf8; 后，print substr("哈哈",0,1),"\n";就正常输出了 2.但是，读入utf8编码的文件在做substr还是有问题，加上 FH,"就好了 Wide character in print 的警告信息，加上3.但是，会有 binmode(STDIN, ':encoding(utf8)');
多重hash与exists函数
diana_cherry的专栏
12-22 1456
猜猜下面程序的输出结果是什么？use strict; use warnings; my %testHash=(); $testHash{"a"}{"a1"}="a1"; $testHash{"a"}{"a2"}="a2"; if(exists $testHash{"d"}{"d1"}){     print "haha/n"; }elsif (exists $testHash{"d"}){     print "xixi/n" }else{     print "yangyang/n"
据说是百度的面试题之一,自己写的答案
diana_cherry的专栏
01-14 1207
1、写脚本实现，可以用shell、perl等。在目录/tmp下找到100个以abc开头的文件，然后把这些文件的第一行保存到文件new中。 A:head -q -n  1 `find . -maxdepth 1 -type f -name  "f*"|head -n 2 ` >new  head -q 是指在head多个文件时不显示文件名 2、写脚本实现，可以用shell、perl等。把文
精通Perl编程
9. **国际化和本地化**：讲述了如何在Perl程序中实现国际化（i18n）和本地化（l10n），包括日期、时间、货币和文本的处理。 10. **Perl最佳实践**：作者分享了他的经验，提供了关于代码风格、命名约定、文档编写和...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值