Perl语言入门习题库chaper15习题

chapter15.1.pl

#!/usr/bin/perl -w
my %modules = %{%module::CoreList::version{5.006}};
foreach (sort keys %modules){
  print "The Module Have $modules{$_}\n";
}

chapter15.2.pl

#!/usr/bin/perl -w
use File::Basename;
use File::Spec;
my $name = "/home/project/perl/chapter_15/chapter_15_1.pl"
my $basename = basename $name;
my $dir_name = dirname $name;
my $new_name = File::Spec->catfile($dirname,$basename);
print "$new_name\n";