Shell

shell命令直接作为函数，在Perl中调用。

<pre name="code" class="plain">#!/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;