
#!/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) 回复
??
回复评论