Perl脚本执行时间很慢[关闭]

Question

我有一个perl程序（ /usr/bin/ckbcomp ），在新安装的debian v8服务器上执行得非常慢。 我在调试很长的启动时间时发现了它。

我在没有问题的另一台服务器上比较了同一脚本的执行情况，最终得出的结果是它们具有准确的内核空间执行，并且问题似乎出在用perl编写的用户级代码。

# slow execution
$ uptime
14:54:16 up  3:19,  1 user,  load average: 0.00, 0.01, 0.05
$ time ckbcomp -backspace bs -model pc105 us
real    0m1.927s
user    0m1.900s
sys     0m0.016s

# normal execution
$ uptime
14:49:31 up 12 days, 17:19,  1 user,  load average: 0.00, 0.03, 0.09
$ time ckbcomp -backspace bs -model pc105 us
real    0m0.381s
user    0m0.376s
sys     0m0.000s

您可以看到时间花费在用户空间上。 strace输出大致相同，并确认time输出（相同数量的syscall，相同的开销和几乎相同的时间在内核空间上花费）。 uptime用于向您显示cpu负载，因此这不是过载问题。

因此，我认为问题来自于perl执行本身，而ltrace大多可以证实这一点，从而使perl_run()花费了1.710485 seconds 。

我现在不知道如何在debian v8上进一步调试perl程序。 类似ltrace的解决方案应该足以理解时间在哪里。

两台机器上的perl解释器相同。 也许它来自已安装的库...

谢谢您的帮助

Answer 1

好吧，我无法直接回答，因为我的系统上没有该脚本。

但是，总的来说-您应该查看该Perl，并查看其作用。

我将以您开始提到的strace作为起点。 strace -fTt将跟随派生，因此也应报告由perl进行的系统调用。

但是，如果这样做不能解决问题，则Devel::NYTProf将能够告诉您很多有关代码如何运行以及代码在做什么（以及花费时间的地方）的信息。 运行该代码，然后检查缓慢的代码段。