perl - 如何将日志记录信息添加到 perl 遗留代码中

Question

我有一个用 perl 构建的中型到大型系统，它是在过去 15 年中开发的，由许多脚本和 pm 文件构建，为了改进系统，我需要更多数据，我认为获取这些数据的最简单方法是让代码中的每个函数都将开始和结束时间打印到一些日志中，这样就有可能理解什么花费的时间最多。然而，这是一个旧系统，有些部分比其他部分更难维护，最重要的是我需要它运行，这意味着为了获得真实数据，我需要它从生产中打印出来。我想要做的是以某种方式重写函数声明以将每个函数开始包装在一行中NAME 开始 STARTTIME PARAMS当它离开功能时NAME 结束 STARTTIME PARAMS

有人能指出我正确的方向吗？谢谢

Answer 1

看看Devel::NYTProf .它可以分析您所有潜艇所花费的时间(并做更多)。不涉及大量乱七八糟的代码修改；相反，您只需使用它运行您的脚本:

perl -d:NYTProf your_script.pl