Perl源码:file_attr.pl

skylerpaper

于 2016-11-17 00:44:57 发布

阅读量296

点赞数 1

CC 4.0 BY-SA版权

分类专栏： ori-code 文章标签： file-scan 源码 perl utf-8

本文链接：https://blog.youkuaiyun.com/skylerpaper/article/details/53193686

ori-code 专栏收录该内容

3 篇文章

订阅专栏

该Perl脚本能够批量获取指定目录下所有以.pl结尾的文件的属性信息，包括文件名、创建时间、权限模式及文件大小，并将这些信息格式化输出。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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