第十五章：Perl模块

1)
use warnings;
use Module::CoreList;
my %modules = %{ $Module::CoreList::version{5.006} };
print join "\n", keys %modules;

2)
use warnings;
use Cwd;
use File::Spec;
my $cwd = getcwd();
my @files = glob ".* *";
foreach my $file (@files){
 my $path = File::Spec->catfile($cwd, $file);
 print "$path\n"; 
}

3)
use warnings;
use Cwd;
use File::Spec;
use File::Basename;

my $cwd = getcwd;
my @files = glob ".* *";
foreach my $file(@files){
 my $path = File::Spec->catfile($cwd, $file); 
 my $basename = basename $path;
 print "$basename\n";
}