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

代码语言

代码分类

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

作者:铂金胖子 / 发布于2013/9/13/ 1122


	#!/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