Cronjob 在 perl 脚本中不执行命令行

Question

我对linux/linux环境不熟悉，如有错误请见谅，评论澄清。

我创建了一个简单的 perl 脚本。该脚本创建一个 sql 文件，如图所示，它将执行文件中要插入数据库的行。

#!/usr/bin/perl

use strict;
use warnings;
use POSIX 'strftime';

my $SQL_COMMAND;
my $HOST = "i";
my $USERNAME = "need";
my $PASSWORD = "help";
my $NOW_TIMESTAMP = strftime '%Y-%m-%d_%H-%M-%S', localtime;

open my $out_fh, '>>', "$NOW_TIMESTAMP.sql" or die 'Unable to create sql file';

printf {$out_fh} "INSERT INTO BOL_LOCK.test(name) VALUES ('wow');";

sub insert()
{
    my $SQL_COMMAND = "mysql -u $USERNAME -p'$PASSWORD' ";

    while( my $sql_file = glob '*.sql' )
    {
        my $status = system ( "$SQL_COMMAND < $sql_file" );
        if ( $status == 0 )
        {
           print "pass";
        }
        else
        {
           print "fail";
        }
    }
}

insert();

如果我在以用户身份登录时执行它（我无权访问管理员），则此方法有效。但是，当我设置一个 cronjob 来运行此文件时，假设在上午 10 点 8 分使用以下行（在 crontab -e）：

08 10 * * * perl /opt/lampp/htdocs/otpms/Data_Tsunami/scripts/test.pl > /dev/null 2>&1

我知道脚本在创建 sql 文件时正在执行。但是，上午 10.08 之后没有新行插入到数据库中。我已经搜索了解决方案，有些人建议使用 DBI 模块，但它在服务器上不可用。

编辑：最终没有设法解决它。使用 root/admin 帐户来执行脚本以便“解决”问题。

Answer 1

首先，删除crontab 条目末尾的> /dev/null 2>&1（至少是暂时的），这样您就可以真正查看任何可能发生的错误。

换句话说，暂时将其更改为：

08 10 * * * perl /opt/lampp/htdocs/otpms/Data_Tsunami/scripts/test.pl >/tmp/myfile 2>&1

然后您可以检查/tmp/myfile 文件以查看正在输出的内容。

最可能的情况是mysql 实际上不在您的cron 作业的路径上，因为cron 本身提供了一个相当小的环境。

要解决这个问题（假设是这样），请参阅 this answer，它提供了一些关于如何最好地扩展 cron 环境以提供所需内容的指南。这可能只涉及将 MySQL 可执行目录添加到您的 PATH 变量中。

您可能要考虑的另一件事是在尝试将其传递给 mysql 之前关闭 out_fh 文件 - 如果尚未刷新缓冲区，就其他进程而言，它可能仍然是一个空文件担心。

Answer 2

表达式 glob(".* *") 匹配当前工作中的所有文件 目录。 - http://perldoc.perl.org/functions/glob.html

您不应该在 cron 作业中依赖 wd。如果要使用具有相对路径的 glob（或任何文件操作），请首先使用 chdir 设置 wd。 来源：http://www.perlmonks.org/bare/?node_id=395387

所以如果你的工作目录是，例如/home/user，你应该插入

chdir('/home/user/');

在WHILE之前，即：

sub insert()
{
    my $SQL_COMMAND = "mysql -u $USERNAME -p'$PASSWORD' ";

    chdir('/home/user/');

    while( my $sql_file = glob '*.sql' )
    {
...

将 /home/user 替换为创建 sql 文件的位置。

Answer 3

最好在 Perl 中进行尽可能多的处理。它避免了生成单独的 shell 进程的开销，并将一切都置于程序的控制之下，这样您就可以更简单地处理任何错误

从 Perl 访问数据库是使用 DBI module 完成的。该程序演示了如何使用mysql 实用程序实现您编写的内容。如您所见，它也更加简洁

#!/usr/bin/perl

use strict;
use warnings;

use DBI;

my $host     = "i";
my $username = "need";
my $password = "help";

my $dbh = DBI->connect("DBI:mysql:database=test;host=$host", $username, $password);

my $insert = $dbh->prepare('INSERT INTO BOL_LOCK.test(name) VALUES (?)');

my $rv = $insert->execute('wow');

print $rv ? "pass\n" : "fail\n";