Perl语言入门习题库chaper12习题

chapter12.1.pl

#!/usr/bin/perl -w
print"Please Input The Directory!\n";
my $dir = <STDIN>;
chomp $dir;
if($dir) {
  chdir "$dir" or die "cannot chdir to $dir:$!"; #Go To $Dir Directory;
  my @all_files = glob"*"; #Get All File Name(Except The .* Files)
  foreach(@all_files) {
    print "The Dir Has Files : $_\n";
  }
}
else {
  chdir "" or die "cannot chdir to $dir:$!"; #Go To Home Directory;
}

chapter12.2.pl

#!/usr/bin/perl -w
print"Please Input The Directory!\n";
my $dir = <STDIN>;
chomp $dir;
if($dir) {
  chdir "$dir" or die "cannot chdir to $dir:$!"; #Go To $Dir Directory;
  my @all_files = glob".* *"; #Get All File Name(Except The .* Files)
  foreach(@all_files) {
    print "The Dir Has Files : $_\n";
  }
}
else {
  chdir "" or die "cannot chdir to $dir:$!"; #Go To Home Directory;
}

chapter12.3.pl

#!/usr/bin/perl -w
print"Please Input The Directory!\n";
my $dir = <STDIN>;
chomp $dir;
if($dir) {
  opendir DIR,$dir or die "cannot chdir to $dir:$!"; #Go To $Dir Directory;
  foreach $file(readdir DIR) {
    print "The $dir Has Files : $file\n";
  }
}
else {
  chdir "" or die "cannot chdir to $dir:$!"; #Go To Home Directory;
}

chapter12.4.pl

#!/usr/bin/perl -w
print"Please Input The Files List,The Next Action Will Delete It!\n";
chomp(@str = @ARGV); #Get The File List
foreach(@str) {
 unlink $_ or warn"failed on $_:$!\n";
}

chapter12.5.pl

#!/usr/bin/perl -w
print"Please Input The Old File And New File Name!\n";
my @file_list = @ARGV;
my $old_file = $file_list[0];
my $new_file = $file_list[1];
if(-e $new_file) { #Detect NewFile Name Exist? 
  warn "Can't raname $old_file to $new_file:$new_file exist!\n";
}
elsif(rename $old_file,$new_file) {

}
else {
  warn"rename $old_file to $new_file failed:$!\n";
}

chapter12.6.pl

#!/usr/bin/perl -w
print"Please Input The Directory!\n";
my $dir = <STDIN>;
chomp $dir;
if($dir) {
  chdir "$dir" or die "cannot chdir to $dir:$!"; #Go To $Dir Directory;
  my @all_files = glob".* *"; #Get All File Name(Except The .* Files)
  foreach(@all_files) {
    print "The Dir Has Files : $_\n";
  }
}
else {
  chdir "" or die "cannot chdir to $dir:$!"; #Go To Home Directory;
}

chapter12.7.pl

#!/usr/bin/perl -w
print"Please Input The Directory!\n";
my $dir = <STDIN>;
chomp $dir;
if($dir) {
  chdir "$dir" or die "cannot chdir to $dir:$!"; #Go To $Dir Directory;
  my @all_files = glob".* *"; #Get All File Name(Except The .* Files)
  foreach(@all_files) {
    print "The Dir Has Files : $_\n";
  }
}
else {
  chdir "" or die "cannot chdir to $dir:$!"; #Go To Home Directory;
}