Perl编程实践：调试控制与时间计算

最新推荐文章于 2025-09-13 15:38:41 发布

原创

最新推荐文章于 2025-09-13 15:38:41 发布 · 256 阅读

标签

#Perl编程 #调试控制 #DateTime模块

25、修改一个猜数字程序（该程序会随机选择一个 1 到 100 之间的秘密数字），使其在运行过程中打印额外的调试信息，比如它所选的秘密数字。进行修改，以便你可以通过环境变量控制此功能的开关，并且在关闭时程序不会发出警告。如果你使用的是 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;

26、编写一个使用 DateTime 的 Perl 程序，计算当前时间与在命令行输入的年、月、日所表示的日期之间的时间间隔。例如，在命令行输入 `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]
);
if( $now < $then ) {
    die "You entered a date in the future!\n";
}
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 1960 9 30 即可计算出时间间隔。

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

使用 Perl 5.10 及以上版本，代码示例如下：

use 5.010;
print "Looking for my files that are readable and writable\n";
if (!@ARGV) { die "No files specified!\n"; }
foreach my $file (@ARGV) {
    if (-w -r -o $file) {
        print "$file is readable, writable, and owned by you\n";
    }
}

此代码首先提示信息，接着检查命令行是否有指定文件，若有则遍历每个文件，使用堆叠文件测试运算符检查文件是否可读、可写且归用户所有，若满足条件则输出文件名。

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

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

print 'Which directory? (Default is your home directory) ';
chomp(my $dir = <STDIN>);
if ($dir =~ /\A\s*\Z/) {
    chdir or die "Can't chdir to your home directory: $!";
} else {
    chdir $dir or die "Can't chdir to '$dir': $!";
}
opendir DOT, "." or die "Can't opendir dot: $!";
foreach (sort readdir DOT) {
    next if /\A\./;
    print "$_\n";
}
closedir DOT;

这段代码首先提示用户输入目录名，若用户输入空白行则切换到主目录，否则切换到用户指定的目录。接着打开当前目录的目录句柄，读取目录内容并排序，最后过滤掉以点开头的文件并打印其余文件，同时添加了关闭目录句柄的操作以释放资源。