perl源码:fmt_out.pl

2016-11-25 19:55:17来源:CSDN作者:skylerpaper人点击

第七城市
# 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 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;
第七城市

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台