如何使用perl修改crontab？ [英] How to use perl to modify crontab?

问题描述

如何通过perl脚本在crontab中附加cron任务？

我想到了以下内容：

How could I append a cron task in crontab via a perl script?
I thought of the following:

#!/usr/bin/perl  

use strict;  
use warnings;  

`crontab<<EOL  
00 * * * * /home/slynux/download.sh    
EOL`  

我不想弄乱事物，所以我在正确的轨道上？

如果我添加它，我怎么会去掉它？我是Perl的新人

I don't want to mess up things, so am I on the right track?
Also if I append it, how would I remove it? I am new in Perl

推荐答案

Quick&脏方式：

Quick & dirty way :

#!/usr/bin/perl  

use strict; use warnings;  

`(crontab -l; echo "00 * * * * /home/slynux/download.sh") | crontab -`;

另一种更好的方法：

#!/usr/bin/perl  

use strict; use warnings;  

open my $fh, "| crontab -" || die "can't open crontab: $!";
my $cron = qx(crontab -l);
print $fh "$cron\n0 * * * * /home/slynux/download.sh\n";
close $fh;

要删除 crontab 与 /home/slynux/download.sh ：

#!/usr/bin/perl  

use strict; use warnings;

open my $fh, "| crontab -" || die "can't open crontab: $!";
my $cron = qx(crontab -l);
$cron =~ s!.*/home/slynux/download\.sh.*!!g;
print $fh $cron;
close $fh;

这篇关于如何使用perl修改crontab？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！