#!/usr/bin/perl |
use strict; |
use Shell; |
print "now is : " , date(); |
print "current time is : " , date ( "+%T" ); |
my @dirs = ls ( "-laF" ); |
foreach ( @dirs ) |
{ |
print if ( //$/); #print directory |
} |
exit 0; |
#Shell命令直接做为函数,在Perl中调用。 |
by: 发表于:2017-09-11 11:52:42 顶(0) | 踩(0) 回复
??
回复评论