perl – 启用全局警告

发布时间：2020-12-16 06:11:56 所属栏目：大数据来源：网络整理

导读：我必须优化用Perl编写的Intranet(大约3000个文件).我想做的第一件事是启用警告“-w”或“使用警告”;所以我可以摆脱所有这些错误,然后尝试实现“use strict;”. 有没有办法告诉Perl一直使用警告(比如PHP的php.ini中的设置),而无需修改每个脚本以将“-w”添加

我必须优化用Perl编写的Intranet(大约3000个文件).我想做的第一件事是启用警告“-w”或“使用警告”;所以我可以摆脱所有这些错误,然后尝试实现“use strict;”.

有没有办法告诉Perl一直使用警告(比如PHP的php.ini中的设置),而无需修改每个脚本以将“-w”添加到它的第一行？

我甚至想为/usr/bin/perl创建别名,或者将其移动到另一个名称并创建一个简单的脚本而不是它只是为了添加-w标志(如代理).

你会如何调试它？

解决方法

改进警告和严格是很难的.我不建议使用Big Bang方法,在所有内容上设置警告(更不用说限制).你会被警告淹没到无用的地步.

首先,在脚本使用的模块上启用警告(有一些,不存在？),而不是对所有内容应用警告.让核心清洁,然后开始在外围工作,一次一个单元.所以,事实上,我建议使用一个简单的(Perl)脚本,它只是找到一个不以哈希开头的行并添加使用警告; (也许使用严格;因为你将一次处理一个脚本),所以你可以一次完成一个脚本的翻新.

换句话说,当您要翻新它时,您可能最好实际编辑每个文件.

我只使用毯子选项来简单地评估问题的范围：它是一个完整而彻底的灾难,还是仅仅是几个文件中的一些简介.遗憾的是,如果代码是在没有警告和严格的情况下开发的,那么它更可能是“灾难”而不是“最小”.

您可能会发现您的前任很容易复制和粘贴,并且在复制的代码中会重复出现一些错误的习惯用法.编写一个Perl脚本来修复每个脚本.我在我的个人bin目录中有一堆修复*脚本来处理各种更改 – 修复由顽抗(或者更常见的是,长期离开)同事创建的问题,或者适应我自己不断变化的标准.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!