perl - 我如何在 Perl 中使用 sprintf()？

Question

考虑：

sprintf("%02d:%1d0", $tm[2], int($tm[1]/10)) if $rollup eq "600s";

它每 10 分钟打印一次数据。

如果我想每 30 分钟打印一次数据，正确的方法是什么？我试过了：

 sprintf("%02d:%1d0", $tm[2], int($tm[3]/10)) if $rollup eq "600s";

我该如何解决这个问题？

Answer 1

sprintf 所做的只是格式化参数 - 它运行的频率由 if$rollup eq "600s"部分控制。这取决于您的 $rollup 是如何设置/更新的，但假设它只是增加的秒数，那么类似的东西if $rollup eq "1800s"可能会起作用