草莓 Perl 内存限制？

Question

我正在运行一个 perl 脚本来提取大约 20 个文本文件的列表，并解析它们。由于某种原因，我的进程在列表中途崩溃，并且在调试它时遇到了麻烦。

有人知道 Strawberry Perl 日志文件的位置，以及是否有内置的最大执行时间或内存限制变量（如 PHP 中）？

共有三个文件： 1. cron.php 2.nightly_script.php 3. myscript.pl

它成功执行了 while 循环中的第一个插入语句，但此后不再执行。由于它像 cron 作业一样运行，所以我没有任何输出窗口可供查看。这就是为什么我希望某处有日志，这样如果有语法错误或 mysql 错误我可以在某处看到它。另外，如果我直接在有问题的文件上运行 myscript.pl，它就没有问题。

cron.php

date_default_timezone_set('America/New_York');

/*

min hr dom month dow cmd

hour in 24 hour format, no leading zeros


*/

$jobsQueue = Array();

$jobsQueue[] = Array('10', '0', '*', '*', '*', 'php c:\nightly_script.php');    // These items are order dependent, so run as one script that synchronously executes each command

while(1) {

    $now = time();
    $min = date('i',$now);
    $hr = date('G',$now);

    echo "$hr:$min\n";

    foreach($jobsQueue AS $job) {

        if($job[0] == $min && $job[1] == $hr) {
            system("$job[5]>NULL");
        }

    }

    sleep(60);
}
?>

nightly_script.php

// Process Hand Histories
system('perl myscript.pl');

?>

myscript 片段

while ( ($key, $value) = each(%players) ) {
                print "$key => $value\n";
                if($value > 0)
                {
                    $uname = $key;
                    $uname =~ s/player(.*)(\s*)/$1/;

                    $connect = DBI->connect("DBI:mysql:database=$config_mysql_db;host=$config_mysql_server",$config_mysql_user,$config_mysql_pass,{'RaiseError' => 1});

                    print "\n*****\n$uname\n*****\n";

                    $updateStatement = "INSERT statement";
                    $executeStatement = $connect->prepare($updateStatement);
                    $executeStatement->execute();

                    $updateStatement = "UPDATE command";
                    $executeStatement = $connect->prepare($updateStatement);
                    $executeStatement->execute();

                    delete $players{$key};
                    # Clean up the record set and the database connection
                    $connect->disconnect(); 

                }
                elsif($value <= 0)
                {
                    delete $players{$key};
                }
            }

Answer 1

由于 Perl 没有像 php 这样的日志，因此您可以通过将 Perl 的 stdout 和 stderr 重定向到文件来创建自己的日志文件。尝试通过修改 nightly_script.php 中的系统调用来执行此操作。

system('perl myscript.pl 1>myperllog.txt 2>&1');

或者

system('perl myscript.pl 1>myperllog.txt 2>myperllog.err');