#计算时间间隔
sub gettimemun(){
my ($time,$timelc,$sec,$min,$hour,$mday,$mon,$year);
$time = @_[0];
my @time = reverse(split /-|:|\s|\//,$time);
foreach(@time){
s/^0//;
$timelc .= $_.",";
}
$timelc =~ s/,$//;
($sec,$min,$hour,$mday,$mon,$year) = split /,/,$timelc;
$year -= 1900;
$mon -= 1;
$timelc = timelocal($sec,$min,$hour,$mday,$mon,$year);
return $timelc;
}
#计算天数(比较的时间格式: 2011-11-10 15:37:58)
$SECOND_OF_ONE_DAY=24*60*60;
$days= int((&gettimemun($nowtime) - &gettimemun($oldtime))/$SECOND_OF_ONE_DAY);
分享到:
相关推荐
脚本根据指定的数字对计算所有的组合,如指定7和5,则计算7选5进行组合,即C5/7
perl脚本perl脚本perl脚本perl脚本
perl常用函数
Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0...
windows Strawberry Perl 5.32最新版本 ,适合调试 perl windows Strawberry Perl 5.32最新版本 ,适合调试 perl windows Strawberry Perl 5.32最新版本 ,适合调试 perl windows Strawberry Perl 5.32最新版本 ...
适用于materials studio,用于计算两体系/层与层/单分子与总体系的相互作用能,计算轨迹文件中每一帧的相互作用能。
win7+bugzilla+apache+mysql+activePerl环境安装bugzill时: Perl安装 安装: 将ActiveState Perl 安装到C:/Perl64 或C:/Perl 最好是5.16版本,ActivePerl-5.16.3.1604-MSWin32-x64-298023.msi 安装 Modules(下面...
草莓perl安装包下载,新版本 Strawberry Perl是用于MS Windows的perl环境,其中包含运行和开发perl应用程序所需的一切。 它被设计为尽可能接近UNIX系统上的perl环境。 它包括perl二进制文件,编译器(gcc)+相关...
用Perl获得随机数字,之前在工作上不会用,先给大家共享
这篇文章主要介绍了Perl这种脚本语言的基础知识,Perl是一种功能强大的脚本语言,想学习Perl的朋友,这篇文章是个很好的入门了解。
Perl.TK Perl.TK Perl.TK
PERL LPERL。ADD的用法
perl.zip perl常用知识 20100318
Perl语言学习
perl 神奇的perl-最佳Perl入门
perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件
perl6文档
装mysql时提示少perl,安装perl需要依赖包。已包含下面所有包, 版本号匹配。 [Linux]centOS7下RPM安装Perl 下载rpm依赖包,依照顺序安装. perl-parent-0.225-244.el7.noarch perl-...
作为PERL5家族中的一员,PERL6表现出其独特性能。
Perl编程思想 Perl编程思想 Perl编程思想