清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

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