程序员经验分享-hwhale

自记录 Perl 模块（不含 Moose）

2024-02-14

我有同样的问题HERE https://stackoverflow.com/questions/3018528/making-self-logging-modules-with-loglog4perl但不幸的是我无法安装 Moose，我认为那里描述的解决方案是针对 Moose 的。有人可以告诉我如何用老派的“使用基础”说话吗？

重申一下这个问题，我想让我的基类有一个使用 Log4perl 的自动日志记录机制，所以如果用户不做任何事情，我会得到一些合理的日志记录，但如果我的类的用户需要/想要覆盖记录器，他们可以。


好吧，如果你想要有角色/混合类型的行为，就像在其他答案中一样，你可以使用普通多重继承，或者更好地使用像奥维德这样的东西角色::基本 http://search.cpan.org/perldoc?Role%3a%3aBasic.

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

perl

perlmodule

log4perl

自记录 Perl 模块（不含 Moose） 的相关文章

  • 我应该如何使用 Mojo::UserAgent 处理 HTML META 标记？

    我必须处理一些配置错误的 Web 服务器 因此我开始处理 HTML 元标记以将信息反馈到 Web 用户代理对象中 我尝试了多种方法来做到这一点莫乔利西斯 http mojolicio us并决定在响应中寻找 完成 事件 我的目标是让其余代码

  • 通过 perl 脚本使用代理

    我想在这个 perl 脚本中使用代理 但我不知道如何让它使用代理 usr bin perl use IO Socket remote IO Socket INET gt new Proto gt tcp PeerAddr gt localh

  • Perl 中的 Substr，将 utf8 字符切成两半

    我正在尝试解决使用时的问题substr在 Perl v5 8 5 中 这是一个示例字符串 UTF 8 示例 编辑 ff if length hit gt post title gt 60 hit gt post title substr h

  • 在 Perl 中使用 POSIX ceil() 出现意外结果

    我一生都无法弄清楚为什么以下会产生这样的结果 use POSIX my g 6 65 my t g 4 my r t g my n r g my c ceil n print c n n 我知道印记太棒了 抱歉 我已经为我的应用程序解决了这

  • 如何从类中排除某些字符？

    假设我想匹配一个 单词 字符 w 但排除 或匹配空白字符 s 但排除 t 我怎样才能做到这一点 使用包含 W 或 S 的否定类 W anything that s not a non word character and not S t a

  • Perl 使用什么哈希函数/算法？

    有人能解释一下 Perl 用于将字符串映射到索引的哈希函数 算法吗 有相关读物吗 这个答案早于 5 28 中进行的哈希函数更改 请参阅 默认哈希函数更改 perldelta 为 5 28 http perldoc perl org perl

  • 如何在 Perl 脚本中递归查找文件/文件夹？

    我有一个 perl 脚本 我编写了该脚本来递归地搜索 Windows 文件夹中的文件 我输入搜索文本作为 perl 脚本运行时参数 以查找名称中包含此文本的文件 perl脚本如下 use Cwd file1 ARGV 0 res1 glob

  • 如何按给定顺序对列表进行排序？

    我正在尝试执行以下操作 我有一个预定义的列表 用作给定列表上的 排序依据 my orderby car boat chicken cat dog mouse or my orderby car gt 0 boat gt 1 chicken

  • Perl：通过一次 MySQL 调用更新多行

    似乎这不可能 但嘿我不妨问一下 我可能是错的 想知道 perl 是否可以使用一个 MySQL 调用来更新多行 我正在使用 DBI 任何帮助或反馈将不胜感激 这可以通过 ASP 和 ASP net 在 MSSQL 中实现 所以想知道是否也可以

  • 如何在 Linux 上使用 Mono 将 Perl 解释器嵌入到我的 C# 程序中？

    有谁知道是否可以在 C 中从 Mono 调用 Perl 子程序 这是在 Linux 机器上 Maybe DllImport 如果可能的话 我们也希望避免每次都加载 perl Interop 可以在 Linux 下与 Mono 很好地调用 C

  • Perl Regex：如何从 CSV 行中删除引号内的引号

    我从 CSV 文件中得到了一行 作为场围场和 作为字段分隔符作为字符串 有时有 在打破场围的数据中 我正在寻找一个正则表达式来删除这些 我的字符串看起来像这样 my csv qq 123456 024003 Stuff 28 stuff w

  • STDOUT->autoflush(1) 在 Perl 中做什么？

    我找到了有关 Perl 中自动刷新的各种信息 但找不到任何提及格式完全相同的行 STDOUT gt autoflush 1 这包含在我正在分析的程序中 我想更好地了解它的作用 程序开头还有这样一段话 use IO Handle 我认为这可能

  • 我需要一个便携式、一致的伪随机数生成器

    I am writing a kid sister encryption http enfranchisedmind com blog posts the kid sister crypto manifesto function and I

  • 从 Perl 脚本 DBI 关闭 MSSQL 服务器

    我正在写一个 perl 脚本 其中我必须关闭我的 mssql 服务器 做一些操作 然后我必须重新启动它 我知道一种方法是使用 netstat 来停止服务 但我不能使用它 所以我尝试安装 DBI 和 DBD ODBC 模块 我可以通过以下代码

  • 如何有效地计算 Perl 中覆盖给定范围的范围？

    我有一个大约 30k 范围的数据库 每个范围都作为一对起点和终点给出 12 80 34 60 34 9000 76 743 我想编写一个 Perl 子例程来表示一个范围 不是来自数据库 并返回数据库中完全 包含 给定范围的范围数 例如 如果

  • perl生成字符串来匹配正则表达式

    我尝试找到一种方法来生成与正则表达式匹配的字符串 例如以下正则表达式 A Z 6 6 A Z2 9 A NP Z0 9 A Z0 9 3 3 0 1 我尝试过 Cpan 上的一些 perl 模块不起作用 gt 字符串 随机 gt 正则表达式

  • 如何从 Perl 调用 gnuplot 脚本

    我有一个 gnu gp 文件 grphist conf set terminal canvas Terminal type set to canvas Options are solid butt size 600 400 fsize 10

  • WWW::Mechanize::Firefox - 如何打开多个选项卡

    我想打开两个单独的选项卡并在 Firefox 中保持打开状态 我在用WWW Mechanize Firefox 请找到下面的代码 usr bin perl w use strict use WWW Mechanize Firefox my

  • 哪一个代表null？ undef 或空字符串

    我想插入null在表的一列中 哪一个代表null undef或空字符串 应该使用哪一种 为什么 我知道关于defined我可以检查一下 但我更多的是从数据库的角度来看 代表哪一个null更合适吗 Update 我在用DBI module D

  • perl imap 将邮件移至垃圾箱 (Mail::IMAPClient)

    我需要将所有未见的邮件移至垃圾箱 然后从收件箱中删除 my inbox imap gt select Inbox my mails imap gt unseen foreach my msgid mails imap gt set flag

随机推荐

  • 计算已用时间的 Bash 脚本

    我正在 bash 中编写一个脚本来计算执行命令所用的时间 请考虑 STARTTIME date s command block that takes time to complete ENDTIME date s echo It takes

  • 如何在 p:calendar 中使用 java.time.ZonedDateTime / LocalDateTime

    我一直在 Java EE 应用程序中使用 Joda Time 进行日期时间操作 其中关联客户端提交的日期时间字符串表示形式在将其提交到数据库之前已使用以下转换例程进行转换 即在getAsObject JSF 转换器中的方法 org joda

  • Xampp MySQL 未启动 - “MYSQL 未在 XAMPP 3.2.1 版本上启动...”

    我在我的笔记本电脑上安装了 xampp 版本 3 2 1 之前 mysql 工作正常 但突然 mysql 停止工作 而 apache 和其他人正在工作 当我单击启动 mysql 时 它显示此错误 我使用 Windows 10 8 52 32

  • 我在尝试发送消息时收到错误

    send setOnClickListener new OnClickListener Override public void onClick View v TODO Auto generated method stub URI uri

  • KendoUI 网格默认值与数据注释

    我将 Kendo UI Grid 与 ASP NET MVC Helpers 和自动生成的列一起使用 I have DefaultValue 60 60 我的视图模型中存在注释 但 Kendo 助手似乎并不尊重这一点 我可以指定默认值 可能

  • 如何将 Observable 序列化到云端并返回

    我需要分割处理序列 就像在这个问题中如何使用 net RX 组织数据处理器的序列 https stackoverflow com q 13310865 296494 到 Azure 环境中的多个计算单元 这个想法是将 Observable

  • 如何在 android 10 - android Q - MIUI 11 中从后台启动活动

    我在真实设备上的 android 10 android Q MIUI 11 中从后台启动活动时遇到问题 在这个线程中 在android 10中启动活动背景 https stackoverflow com a 59421118 1006090

  • Java Selenium WebDriver 找不到表单字段

    我正在测试一个注册页面 并且尝试了名称 xpath id 类 但似乎没有任何效果 这是我的硒代码 driver findElement By id pushMenu click Thread sleep 2000 driver findEl

  • CALayer + NSOutlineView/NSTableView

    问题是 基于视图的 NSOutlineView 或 NSTableView 两者都有这个问题 包含一个托管 CALayer 的自定义控件 用于自定义动画目的 调整大纲视图大小时或删除行 动画删除 后 CALayer 会在错误的位置绘制 这是

  • 检测光盘是否在 DVD 驱动器中

    有没有简单的方法来检测 DVD 驱动器中是否插入了光盘 我不在乎哪种光盘 CD DVD 或蓝光 使用 WMI 检测磁盘是否在 CD DVD 驱动器中 foreach var drive in DriveInfo GetDrives Wher

  • AngularJS - 等待多个资源查询完成

    我有一个用 ngResource 定义的工厂 App factory Account function resource return resource url query method GET 我正在多次调用该工厂中定义的查询方法 这些调

  • 查找两组整数的所有成对 OR 的集合

    给定两个集合 每个集合都包含整数值 如何找到包含所有可能的成对值的集合ORs这两组的值 例如 所有数字都是二进制 1 10 x 100 1000 101 1001 110 1010 1 10 x 11 101 11 101 111 第一个示

  • Excel：将秒转换为 dd 天 hh:mm:ss 格式

    我想将秒转换为 dddays时 分 秒 这就是我所拥有的 我有一个单元格 A1 其值为 457003 在单元格 B1 中我正在执行 Text A1 24 60 60 dd hh mm ss 并且它返回 05 06 56 43 我要找的是 0

  • 在 PowerShell 中添加数字

    我正在尝试在 PowerShell 中将两个数字相加 我将用户提供的输入存储在 Value1 and Value2 但是我找不到任何方法来实际将这些数字相加 我尝试使用Measure Objectcmdlet 但我似乎无法让它工作 如何在

  • 未捕获的类型错误：THREE.MTLLoader 不是构造函数 2.0

    我之前在这里问过这个问题 未捕获的类型错误 THREE MTLLoader 不是构造函数 https stackoverflow com questions 46989337 uncaught typeerror three mtlload

  • cygwin 将文件权限设置为 000

    我有一个文件夹 cygwin d myfolder 每次我在那里保存文件时 如果我从 cygwin 执行 ls la 我会看到这些文件被授予权限 000 这实际上给我带来了很多问题 因为我将此文件夹同步到我的服务器 并且没有一个文件可访问

  • 如何在 ruby​​ 中控制（启动/终止）后台进程（服务器应用程序）

    我正在尝试通过 ruby 设置一个用于集成测试 实际上是规格 的服务器 但不知道如何控制该过程 所以 我想做的是 为我的 gem 运行一个 rake 任务来执行集成规范 该任务需要首先启动服务器 我使用 webrick 然后运行规范 执行规

  • 使用 nginx/php-fpm 设置 $_ENV (fka $HTTP_ENV_VARS)

    apache 环境中 setenv 的等效项是什么 使用 apache 我可以设置环境 SOMEE NV 并通过 ENV SOMEE NV 在 php 中访问它 但我不知道如何使用 nginx php fpm 来做到这一点 我最初以为我只需

  • printf() 和 scanf() 函数何时静态或动态链接到应用程序？

    当一个C程序被编译时 它按照预处理器 编译器 汇编器 链接器的顺序进行 主要任务之一是linker是使库函数的代码可供您的程序使用 链接器可以以静态或动态两种方式链接它们 stdio h仅包含声明 其中不存在定义 我们只包括stdio h在

  • 自记录 Perl 模块（不含 Moose）

    我有同样的问题HERE https stackoverflow com questions 3018528 making self logging modules with loglog4perl但不幸的是我无法安装 Moose 我认为那里

热门标签