Perl源码:file_attr.pl

# file: file_attr.pl
# author: zby
# descript: format output the files' attribute
# date: 2016-11-16
# version: 0.1.0

#!/usr/bin/perl
use strict;
use utf8;

use File::Find ();
use File::stat ();
no warnings 'File::Find';

our @dirs = @ARGV;
our $pat = '\.pl$';


sub wanted {
  if ($_ =~ /$pat/) {
    my $dt = File::stat::stat $_  or die "$!";
    my $date = scalar (localtime($dt->ctime));
    format STDOUT_TOP =
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
"Page $%"

                        Selected File
  Name                               ctime                        mode           size(byte)
__________________________________________________________________________________________
.


format  STDOUT =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<@>>>>>>>>@>>>>>>>>>>>>>>>>>>
$_,                     $date,    $dt->mode,   $dt->size
.

    $^ = 'STDOUT_TOP';
    $~ = 'STDOUT';
    $= = 40;
    write;
  }

}

File::Find::find(\&wanted,@dirs);
exit;