Perl编程实例：猜数字与调试功能

26、编写一个程序，该程序会不断要求用户猜测一个1到100之间的秘密数字，直到用户猜对为止。程序应使用神奇公式 int(1 + rand 100) 随机选取数字。当用户猜错时，程序应回应“Too high”或“Too low”。如果用户输入“quit”或“exit”，或者输入空行，程序应退出。当然，如果用户猜对了，程序也应退出！

以下是一个满足需求的Perl程序示例：

use 5.010;
my $secret = int(1 + rand 100);
while (1) {
    print "Please enter a guess from 1 to 100 (or 'quit'/'exit' to quit): ";
    chomp(my $guess = <STDIN>);
    if ($guess eq 'quit' || $guess eq 'exit' || $guess eq '') {
        last;
    }
    if ($guess =~ /^\d+$/) {
        if ($guess > $secret) {
            print "Too high\n";
        } elsif ($guess < $secret) {
            print "Too low\n";
        } else {
            print "You guessed it right!\n";
            last;
        }
    } else {
        print "Please enter a valid number or 'quit'/'exit' to quit.\n";
    }
}

这个程序首先使用 int(1 + rand 100) 生成一个1到100之间的随机数作为秘密数字。然后进入一个无限循环，不断提示用户输入猜测的数字。

• 如果用户输入“quit”、“exit”或空行，程序会退出循环。
• 如果用户输入的是有效的数字，程序会比较该数字与秘密数字的大小，并给出相应的提示：
• 如果猜错了，会提示“Too high”或“Too low”。
• 如果猜对了，程序会输出祝贺信息并退出循环。
• 如果用户输入的不是有效的数字，程序会提示用户输入有效的数字。

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

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

使用 Perl 5.10 或更高版本：

```perl
use 5.010;
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;

##28、使用DateTime编写一个程序，计算当前时间与在命令行输入的年、月、日所表示的日期之间的间隔，例如执行`perl duration.pl 1960 9 30`会输出`50 years, 8 months, and 20 days`。
以下是实现该功能的示例代码：

```perl
use DateTime;
my $now = DateTime->now;
my $then = DateTime->new(
    year => $ARGV[0],
    month => $ARGV[1],
    day => $ARGV[2],
);
my $duration = $now - $then;
my @units = $duration->in_units( qw(years months days) );
printf "%d years, %d months, and %d days\n", @units;

将上述代码保存为 duration.pl ，然后在命令行中执行 perl duration.pl 年 月 日 ，就可以得到两个日期之间的间隔。

29、编写一个程序，使用文件测试运算符列出命令行中指定的所有可读、可写且归你所有的文件。

在 Perl 5.10 及以上版本中，代码如下：

use 5.010;
die "No files specified!\n" unless @ARGV;
foreach my $file ( @ARGV ) {
    print "$file is readable, writable and owned b