perl源码：fmt_out.pl

最新推荐文章于 2021-05-14 00:10:27 发布

skylerpaper

最新推荐文章于 2021-05-14 00:10:27 发布

阅读量373

点赞数 1

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

本文链接：https://blog.csdn.net/skylerpaper/article/details/53193704

版权

ori-code 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

# file: fmt_out.pl
# author: zby
# descript: format output
# date: 2016-11-16
# version: 0.1.0

#!/usr/bin/perl
use strict;
use utf8;
use File::stat ();

$_ = shift @ARGV;
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;