perl - 从 Perl 脚本编写 at 命令

Question

大家好！

我想做的事：

我想在 Perl 脚本中给定 $timestamp 后的 24 小时内设置一个。

我的问题是：

每次我查看手册或教程时，该命令都会将我们重定向到一个 shell，该 shell 将记录我们要执行的命令因为我要插入的数据（$link to file, $timestamp ...）是动态的我怎么能直接从脚本中设置命令？如果和它一起就好了system("at -obscure -guru -options -t $dateline command");

编辑：来自 CRON，我们现在正在谈论哪个似乎更适合这个问题，谢谢 inna

Answer 1

尽可能使用 CPAN 模块来解决您的任务。只需使用https://metacpan.org/搜索模块列表。在这种情况下，搜索“at”返回（等等）Schedule::At。它可以这样使用：

use strict;
use warnings;

use Schedule::At;
use Date::Format;

my $file_to_delete = '/tmp/some_file';
my $at_time        = time2str( '%Y%m%d%H%M%S', time + 24 * 60 * 60 );
my $at_command     = sprintf 'rm %s', $file_to_delete;
Schedule::At::add(TIME => $at_time, COMMAND => $at_command );