Question

我有一个perl脚本，可以读取我们的防火墙访问日志，以查看谁使用了特定的vpn帐户。从命令行运行时，此方法正常，但从crontab运行时失败。代码在这里

#!/usr/bin/perl -w
use strict;
use warnings;
use MIME::Lite::TT::HTML;
my $basedir = "/var/log";
my @verdir = qw(fw_d);
my $fulldir;
my $configs; 
my $combidir;
my @results;
my @files1;
foreach $combidir (@verdir) {
    $fulldir = "$basedir/$combidir";
    opendir (DIR, $fulldir);
    my @files = grep { $_ ne '.' && $_ ne '..' && $_ ne 'CVS' } readdir DIR;
    closedir (DIR);
    @files1 = sort {expand($a)cmp expand($b)}(@files);
    foreach my $configs (@files1) {
        my $now = time;
        my @stat = stat("$fulldir/$configs");
        if ($stat[9] > ($now - 2592000)) {
            system("/usr/bin/less -f $fulldir/$configs | /bin/grep NETOPS_TUNNEL >> /usr/local/CCS/ravpn/output.log"); }
        }
    }
    results();
    sendmailnew(\@results);

    sub results{
        my $input = "/usr/local/CCS/ravpn/output.log";
        open my $fh, "<", "$input" or die "could not open '$input': $!";
        while (<$fh>){
            if ($_ =~ /(................)fw.*(Group = NETOPS_TUNNEL). (Username = .(authenticated.)/){
                push (@results, "$1 $2 $3 $4<br>")
            }
        }
        return @results
    }

    sub expand  { 
        my $file=shift; 
        $file=~s{(\d+)}{sprintf "%04d", $1}eg; # expand all numbers to 4 digits
        return $file;
    }

    sub sendmailnew {
        my %params; 
        my @results = @{$_[0]};
        $params{sorted} = "@results";
        my %options; 
        $options{INCLUDE_PATH} = '/usr/local/CCS/ravpn/templates/'; 
        my $msg = MIME::Lite::TT::HTML->new( 
            From        =>  "",
            #To          =>  "", 
            BCC                 =>  "",
            Subject     =>  "", 
            Encoding    => 'quoted-printable',
            Template    =>  {
                text    =>  'test.txt.tt',
                html    =>  'sort.html.tt',
            },
            TmplOptions =>  \%options, 
            TmplParams  =>  \%params, 
        ); 

        $msg->send;
        system("rm -rf /usr/local/CCS/ravpn/output.log");
    }

当从命令行运行它时，它会进入目录/ var / log / fw_d，获取少于30天的所有条目，并将它们传递给少量和grep运行它们，结果是输出到output.log。（此文件在通过crontab运行时创建，但不会输出任何内容）。从命令行运行时，条目将添加到output.log

创建output.log后，将扫描一组特定项目，并将结果推送到名为results的数组中，然后通过电子邮件发送出去。

如果手动运行，此脚本运行良好，但如果从crontab（我们用于创建日志的用户或root用户）运行，则无法向output.log文件输出任何内容。

我觉得它会变得简单，但我不确定。

这是crontab -e条目

  40 03 * * * perl /usr/local/CCS/ravpn/ravpn.pl

正在读取的文件是纯文本或压缩文本文件.gz，所以我需要一种方法来读取它们而不解压缩因此使用较少的文件。

感谢任何帮助。

Answer 1

尝试替换

system("/usr/bin/less -f $fulldir/$configs | /bin/grep NETOPS_TUNNEL >> /usr/local/CCS/ravpn/output.log");

带

system("/bin/cat $fulldir/$configs | /bin/grep NETOPS_TUNNEL >> /usr/local/CCS/ravpn/output.log");

少是不打算在没有终端的情况下运行。在您的情况下没有必要这样做。如果你使用perl自己的函数在没有system调用的情况下在perl中执行此操作，那就更好了：

if ($configs =~ /\.gz$/) {
    open (F1, "gunzip -c $fulldir/$configs |");
} else {
    open (F1, "$fulldir/$configs");
}
open (F2, ">> /usr/local/CCS/ravpn/output.log");
while (<F1>) {
    print F2 $_ if (/NETOPS_TUNNEL/);
}
close F2;
close F1;

PS：我看到你使用/usr/local/CCS/ravpn/output.log作为临时文件。根据此脚本的作用，不需要该文件。它使您的脚本更简单。

编辑：也适用于.gz文件。你也可以使用IO :: Uncompress :: Gunzip，但这已经比较复杂了。

Perl脚本从crontab失败

1 个答案: