取文件的最后修改时间代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】取文件的最后修改时间

作者:汤医森 / 发布于2015/3/5/ 1255

在aix中用脚本取文件的修改时间(yyyymmdd)比较麻烦，还好每台机器都默认装了 perl。
做个记录，以后用到了容易找。


	#!/usr/bin/perl
	use File::stat;
	use POSIX qw(strftime);

	if (@ARGV != 1)
	{
	 print "Usage: $0 file";
	 exit 1;
	}

	$file = $ARGV[0];
	$date_string = strftime "%Y%m%d", (localtime stat($file)->mtime)[0..5];
	print $date_string;

　　

试试其它关键字

　文件　　修改时间　

同语言下

可能有用的

汤医森贡献的其它代码(3)

Copyright © 2004 - 2024 dezai.cn. All Rights Reserved 站长博客粤ICP备13059550号-3