Postcat 在 Perl 中不工作，但在 CLI 上工作

Question

我在 Perl 脚本中的错误：

“邮件ID：D3B921090 postcat：致命：打开 D3B921090：没有这样的文件或目录”

“主题：”

CLI 上的这个命令完美运行： "root@mail:/var/spool/postfix/deferred# postcat D3B921090|egrep "^Subject"

“主题：测试”

当我把它放在我的 Perl 脚本中时，有些东西会中断。我在这里看不到任何错误，因为它甚至显示文件 MailID，但错误表明它不存在？

                   my $num = 0;
                   opendir my $dh, '/var/spool/postfix/deferred/' or die "Can't open directory: $!\n";
                    while ( my $node = readdir($dh) )
                    {
                            next if $node =~ /^\./;
                            print "MailID: $node\n";
                            my $subject = `postcat $node|egrep "^Subject"`;#Line of error
                            print "Subject: $subject\n";
                            $num++;
                    }
                    print "\nTotal: $num\n\n";

Answer 1

在 CLI 中，您位于目录 /var/spool/postfix/deferred 中，并在此目录中使用带有文件的 postcat。在 perl 脚本中，您可能不在此目录中，但仅使用带有 postcat 的文件名，而不给出完整路径（readdir 给出的名称没有路径）。

尝试使用/var/spool/postfix/deferred/$node 而不是$node。

顺便说一句，如果有人将一个名为 ";rm -rf /" 的文件放入目录中，你就完蛋了，因为生成的命令将是 "postcat; rm -rf / | .... " - 不好笑（命令注入）。