小编Ven*_*enu的帖子

Perl中的子例程重新定义错误

编辑:

每个模块的简要概述。(我认为这是向帖子中添加更多信息的正确方法。对不起,因为这是我第一次发布)

A.pm-包含可重用的例程,以读取ZIP文件,解密内容,进行验证等(由各种CGI文件,命令行脚本和其他Perl模块使用)

B.pm-这是Utils文件,它连接到DB,所有与SQL相关的子例程,并调用C.pm在每个文件中写入标记

C.pm-专门的例程,用于在ZIP中标记每个文件,类似于校验和(检查允许的文件类型,读取文件,写入文件,检查等),使用A.pm,因为该模块需要解密内容,执行验证通过A.pm

包括一些示例代码(我在这里只张贴了几行使用行;显然,.pm中使用了许多模块)

下午

package A;
use strict;
use warnings;
use B;
..........
B::get_database_information_for_file(..)
..........
sub validate_decrypted_mark { ...... }
sub decrypt_mark {..........} 
Run Code Online (Sandbox Code Playgroud)

.....

下午

package B;
use strict;
use warnings;
use C;
..........
C::mark_file(..)
..........
sub db_connect { ...... }
sub get_database_information_for_file {..........} 
Run Code Online (Sandbox Code Playgroud)

.....

下午

package C;
use strict;
use warnings;
use A;
..........
A::decrypt_mark(..)
..........
sub mark_file { ...... }
sub read_mark {..........} 
sub write_mark {..........} 
sub examine_mark {..........} 
Run Code Online (Sandbox Code Playgroud)

.....

很少有其他信息(可能有用)

  • 当我们最近从Solaris / Apache迁移到LAMP时,将显示这些警告。

  • 我们使用mod_perl,所以该模块可能已经在内存中了吗? …

perl

2
推荐指数
1
解决办法
3895
查看次数

标签 统计

perl ×1