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

概述我有一个内置于perl的中型到大型系统,它是在过去15年中开发的,由许多脚本和pm文件构建, 并且为了改进系统我需要更多的数据,我看到它获取这些数据的最简单的方法是让代码中的每个函数打印出一些日志的开始和结束时间,这样就有可能理解什么花了最多的时间. 然而,这是一个旧系统,有些部件比其他部件更难维护,除此之外,我需要它运行,这意味着为了获得真实数据,我需要它从生产中打印出来. 我想要做的是以某种方 我有一个内置于perl的中型到大型系统,它是在过去15年中开发的,由许多脚本和pm文件构建,
并且为了改进系统我需要更多的数据,我看到它获取这些数据的最简单的方法是让代码中的每个函数打印出一些日志的开始和结束时间,这样就有可能理解什么花了最多的时间.
然而,这是一个旧系统,有些部件比其他部件更难维护,除此之外,我需要它运行,这意味着为了获得真实数据,我需要它从生产中打印出来.
我想要做的是以某种方式覆盖函数declration来包装每个函数start在一行中
name启动STARTTIME ParaMS
当它离开功能时
name结束了STARTTIME ParaMS

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

解决方法 看一下 Devel::NYTProf.它可以描述你所有潜水员所花费的时间(并做更多).它不涉及很多杂乱的代码修改;相反,你只需用它运行你的脚本：

perl -d:NYTProf your_script.pl

总结

以上是内存溢出为你收集整理的如何将日志记录信息添加到perl遗留代码中全部内容，希望文章能够帮你解决如何将日志记录信息添加到perl遗留代码中所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。