skylerpaper的博客

# file: file_attr.pl# author: zby# descript: format output the files' attribute# date: 2016-11-16# version: 0.1.0#!/usr/bin/perluse strict;use utf8;use File::Find ();use File::stat ();no warnin

# file: find_file.pl# author: zby# descript: with module File::Find to get the files your wanted# date: 2016-11-16#!/usr/bin/perluse strict;use utf8;use File::Find (); # 调用File::Find模块，注意这里后面的()表

# file: fmt_out.pl# author: zby# descript: format output# date: 2016-11-16# version: 0.1.0#!/usr/bin/perluse strict;use utf8;use File::stat ();$_ = shift @ARGV;my $dt = File::stat::stat $_ or