• 博客访问: 24618
  • 博文数量: 28
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 165
  • 用 户 组: 普通用户
  • 注册时间: 2014-03-15 23:00
文章分类

全部博文(28)

文章存档

2017年(11)

2015年(14)

2014年(3)

我的朋友
微信关注

IT168企业级官微



微信号:IT168qiye



系统架构师大会



微信号:SACC2013

订阅
热词专题
取文件的最后修改时间 2017-07-19 14:47:31

分类: PERL

use File::stat;
use POSIX qw(strftime);

$file = "E:/123/27E4W99A0.00";
$date_string = strftime "%Y%m%d-%H:%M:%S", (localtime stat($file)->mtime)[0..5];
print $date_string;
阅读(14) | 评论(0) | 转发(0) |
0

上一篇:linux下任务计划

下一篇:递归遍历目录

给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册