#!/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;
}