#!usr/bin/perl
use strict;
use File::stat;
my $path;
$path = "C:/Users/liuweic/Desktop/df study/s.txt";
# scalar(localtime()) 转化正常时间格式 具体请参考 perldoc -f localtime
print scalar(localtime(stat($path)->mtime));
结果:
stat () 返回下列的列表或数组:
#$dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks
其各个含义:
0 dev 设备号 驱动器号(C:通常是2,D:通常是3,等等)
1 ino 索引节号 总是0
2 mode 文件的方式 无
3 nlink 链接号 通常为0;Windows NT;文件系统允许链接
4 uid 文件所有者的用户ID(UID)总是0
5 gid 文件所有者的组ID(GID)总是0
6 rdev 特殊文件信息 驱动器号(重复)
7 size 文件大小(以字节计)文件大小(以字节计)
8 atime 上次访问的时间 上次访问的时间
9 mtime 上次修改的时间 上次修改的时间
10