Perl 脚本根本不在 Crontab 中运行

Question

我正在尝试从 crontab 运行 perl 脚本，但遇到困难。当我从命令行运行它时它工作得很好。我已经搜索并看到了有关环境等并指定完整路径的各种答案，但我不确定我是否做得正确。下面是脚本

#!/usr/bin/perl

$ENV{'PATH'} = '/usr/bin:/usr/sbin/usr/local/bin';

use strict;

my $TG_Stats_directory = "/export/home/SonusNFS/TG_Stats";

opendir TG_Stats, $TG_Stats_directory;

my @GSX_directories = readdir TG_Stats;

foreach my $subdir (@GSX_directories) {

        opendir GSX, $subdir;
        my @csv_listing = readdir GSX;
                foreach my $file (@csv_listing){
                        if ($file =~ /\.csv/){
                                unlink $TG_Stats_directory."/".$subdir."/".$file;
                        }               
                }
        close GSX;      

}       

close TG_Stats;

下面是 crontab 条目。

25 03 * * * /usr/bin/perl /export/home/SonusNFS/TG_Stats/rmdir.pl 2>/tmp/cronerrors.txt

我缺少什么？我需要添加什么才能让它在 Cron 中工作？

Answer 1

看来我运行它的目录很重要。当我像这样从 root 运行它时：

# cd /
# perl /export/home/SonusNFS/TG_Stats/rmdir.pl

我得到了一组与此完全不同的结果：

# cd /export/home/SonusNFS/TG_Stats/
# perl rmdir.pl

考虑到这一点，我将其添加到脚本中：

my $directory = "/export/home/SonusNFS/TG_Stats";
chdir($directory) or die "Can't chdir to $directory $!";

它最终从 cron 运行。即使我在第一个场景中指定了路径，仍然不明白为什么结果不同。

谢谢大家的回答。我的答案甚至不是真正的答案，只是一个解决方法

Answer 2

一些提示：

> $ENV{'PATH'} = '/usr/bin:/usr/sbin/usr/local/bin';

$ENV{PATH} = '/usr/bin:/usr/sbin:/usr/local/bin';

> use strict;

不要忘记警告：

use warnings;

> my $TG_Stats_directory = "/export/home/SonusNFS/TG_Stats";

> opendir TG_Stats, $TG_Stats_directory;

更好地使用词法 DIR 句柄：

opendir my $TG_Stats... or die $!;

> my @GSX_directories = readdir TG_Stats;

你确实意识到 '.'和“..”现在在您的列表中，是吗？

my @GSX_directories = grep !/^\.\.?$/, readdir TG_Stats;

> foreach my $subdir (@GSX_directories) {

>     opendir GSX, $subdir;

除非您当前的工作目录是 $TG_Stats_directory！否则这会失败！：

opendir my $GSX, "$TG_Stats_directory/$subdir" or die $!;

>     my @csv_listing = readdir GSX;

>             foreach my $file (@csv_listing){
>                     if ($file =~ /\.csv/){

您不是说文件以 .csv 结尾吗？

                      if ( $file =~ /\.csv$/ ) {

>                             unlink $TG_Stats_directory."/".$subdir."/".$file;
>                     }               
            }
>     close GSX;      

      closedir $GSX;
> }       

> close TG_Stats;

closedir $TG_Stats;

哈特哈，
保罗