#!/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;
常见问题
相关文章
猜你喜欢
- 调用perl,Mail::Sender模块发送邮件 2015-12-14
- perl遍历所有文件并修改或插入相关信息 2015-12-14
- 递归遍历文件夹统计文件的行数 2015-12-14
- 使用正则表达式找出不包含特定字符串的条目 2015-12-14
- 连接MySQL 读取表内容 2015-12-14
- Perl练习——九九乘法表 2015-12-14
- 多线程子域名 bruteforcer – dnsspider 2015-12-14
- Perl 列出所有 DBI 驱动程序 2015-12-14
- 自动从ftp下载文件（不回显输入密码） 2015-12-14
- Perl 添加 Windows 系统帐号 2015-12-14
