Perl编程技巧与文件操作

25、修改一个程序，使其在运行过程中打印额外的调试信息，比如它选择的秘密数字。进行修改，使得你可以关闭此调试信息的输出，并且在关闭时程序不发出警告。如果你使用的是 Perl 5.10 或更高版本，使用 // 运算符；否则，使用条件运算符。

下面是给定的【文本内容】：

使用 Perl 5.10 或更高版本：

```perl
use v5.10;
my $Debug = $ENV{DEBUG} // 1;
my $secret = int(1 + rand 100);
print "Don't tell anyone, but the secret number is $secret.\n" if $Debug;

若不使用 Perl 5.10 引入的特性：

my $Debug = defined $ENV{DEBUG} ? $ENV{DEBUG} : 1;
my $secret = int(1 + rand 100);
print "Don't tell anyone, but the secret number is $secret.\n" if $Debug;

26、编写一个程序，它接收命令行上指定的文件列表，并针对每个文件报告其是否可读、可写、可执行或不存在。（提示：编写一个每次对一个文件进行所有文件测试的函数可能会有帮助。）对于使用 chmod 0 命令修改权限的文件，程序会报告什么情况？（也就是说，使用命令 chmod 0 some_file 可将该文件标记为既不可读、也不可写和不可执行。）在大多数 shell 中，使用星号作为参数表示当前目录中的所有普通文件。也就是说，可以输入类似 ./ex12 - 2 * 的命令，一次性询问程序多个文件的属性。

以下是实现该功能的示例代码：

#!/usr/bin/perl
use strict;
use warnings;

# 定义一个函数来进行文件测试
sub test_file {
    my $file = shift;
    if (! -e $file) {
        return "$file doesn't exist.";
    }
    my $readable = -r $file ? 'readable' : 'not readable';
    my $writable = -w $file ? 'writable' : 'not writable';
    my $executable = -x $file ? 'executable' : 'not executable';
    return "$file is $readable, $writable, and $executable.";
}

# 遍历命令行上的文件列表
foreach my $file (@ARGV) {
    print test_file($file), "\n";
}

对于使用 chmod 0 修改权限的文件，程序会报告该文件既不可读、不可写也不可执行。当在命令行输入 ./ex12 - 2 * 时，程序会对当前目录下的所有普通文件进行属性检查并输出结果。

27、编写一个程序，找出命令行中指定的最旧文件，并报告其存在的天数。如果文件列表为空（即命令行中未提及任何文件），程序会怎样处理？

程序会立即报错，提示 No file names supplied! ，因为没有文件可供检查，也就不存在最旧的文件。

28、编写一个程序，向用户询问一个目录名，然后切换到该目录。如果用户输入的行只有空白字符，则默认切换到其主目录。切换后，按字母顺序列出普通目录内容（不包括名称以点开头的项目）。如果目录切换不成功，只需提醒用户，不要尝试显示内容。

以下是实现该功能的程序：

print "Which directory? (Default is your home directory) ";
chomp(my $dir = <STDIN>);
if ($dir =~ /\A\s*\z/) { # A blank line
    chdir or die "Can't chdir to your home directory: $!";
} else {
    chdir $dir or die "Can't chdir to '$dir': $!";
}
my @files = <*>;
foreach (sort @files) {
    print "$_\n";
}

此程序先提示用户输入目录名，对输入进行处理。若输入为空则切换到主目录，否则切换到用户指定的目录。切换成功后，使用通配符 <*> 获取普通文件（不包含以点开头的文件），将结果排序后逐行输出。若切换目录失败，程序会输出错误信息并终止。

29、编写一个程序，其功能类似于 rm 命令，删除命令行中指定的所有文件。（你无需处理 rm 命令的任何选项）

在 Perl 中，可以使用 unlink 操作符结合命令行参数来实现此功能。示例代码如下：

foreach my $file (@ARGV) {
    unlink $file or warn "failed on $file: $!";
}

上述代码会遍历