Perl:倒计时

Question

所以我是 Perl 的新手，我发现我想编写一个倒计时代码，并且真的很挣扎，我在这里找到了一些代码 http://www.perlmonks.org/bare/?node_id=407922并试图弄清楚发生了什么，但部分失败了。

问题是我讨厌使用我不理解的代码，所以希望有人能够帮助我解决其中的某些部分(下面的代码来自 URL)

use 5.16.3;
use strict;

my $countdown = 1*60*60; # in seconds

$| = 1;

my $beginTime = time;
my $endTime = $beginTime + $countdown;

for (;;) 
{
    my $time = time;
    last if ($time >= $endTime);

    printf("\r%02d:%02d:%02d",
       ($endTime - $time) / (60*60),
       ($endTime - $time) / (   60) % 60,
       ($endTime - $time)           % 60,
    );

    sleep(1);
}

下面我对我不理解的代码行进行了编号和复制

1: 1*60*60 我理解为 60*60，但为什么是 1？

2: $| = 1; 没有这方面的线索

3: for(;;) 不确定 ;; 在做什么？

4:不知道这是在做什么？ (数学上或句法上)。

printf("\r%02d:%02d:%02d",
       ($endTime - $time) / (60*60),
       ($endTime - $time) / (   60) % 60,
       ($endTime - $time)           % 60,

感谢任何帮助或有用的网址，我可以自己研究它(已经尝试过，但无济于事)

Answer 1

祝你学习 Perl 好运。确保您了解正在发生的事情是一种很好的学习方式。

1. 从数学或代码的角度来看，1 并没有真正做任何事情。我的猜测是作者将其放入以便更容易更改为不同的小时数 - 只需将 1 替换为 2 或其他任何内容。

2. Perl 有很多“特殊变量”，它们会影响事情的工作方式。您可能会遇到其中一两个，但在您开始做一些复杂的事情之前不需要其余的。它们都在 Perl 文档中进行了描述，您可以通过在命令行中键入 perldoc perlvar 或查看 this page 来获取这些文档。 .在这种情况下，$| 是“autoflush”，将其设置为 1 意味着一旦您打印某些内容，它就会立即发送到输出。没有这个，可能会发生一些缓冲。不过不要太担心。

3. 有几种方法可以指定循环应该无限期地继续，或者直到像 last 这样的东西停止它。其中之一是 for (;;)，它是一种来自 C 的语法。当您开始查看不同类型的循环时，您会发现更多关于此的信息。但是在 Perl 中也有其他的循环方式。

4. 这就是数学发生的地方。要找到以小时为单位的时差，以秒为单位的时差 ($endTime - $time) 除以 3600。这是使用 %d 格式的 打印的>printf 将其向下舍入为整数。因此，您会在输出的开头看到类似 03: 的内容。下一个表达式以秒为单位取时间差，除以 60 得到以分钟为单位的时间差。但是如果超过一小时，这个数字就会大于 60，所以你不能只显示这个。 Perl modulo functiton是 % ，这给出了当你再次除以 60 时的余数。这给出了时差中的分钟数。类似的方法给出了秒数。如果您不熟悉 printf，可以通过键入 perldoc -f printf 或查看 here 来查找详细信息。 .

我希望这开始对你有意义。试一试，如有其他问题，请在此处再次提问。