#!/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) 回复
??
by: 发表于:2017-09-11 11:52:42 顶(0) | 踩(0) 回复
??
回复评论