Chinaunix首页 | 论坛 | 博客
  • 博客访问: 139580
  • 博文数量: 46
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 300
  • 用 户 组: 普通用户
  • 注册时间: 2014-03-15 23:00
文章分类

全部博文(46)

文章存档

2018年(18)

2017年(11)

2015年(14)

2014年(3)

我的朋友

分类: PERL

2017-07-19 14:47:31

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;
阅读(1070) | 评论(0) | 转发(0) |
0

上一篇:linux下任务计划

下一篇:递归遍历目录

给主人留下些什么吧!~~