当在另一个包中调用 sysread 等核心函数时，如何最好地覆盖/包装它们

发布于 2024-11-08 02:29:32 字数 660 浏览 2 评论 0 原文

我正在开发一个用 Perl 编写的相当复杂的应用程序。我对这门语言相当有经验，但我只是被难住了。

我正在使用一个模块 Foo，它使用 sysread 和 syswrite 对我传递给其构造函数的文件句柄（在本例中为双向套接字）进行各种操作。

我想要执行以下操作：从我正在编写的另一个模块（我们称之为 Bar），我想更改 sysread/write 的行为方式 仅当从属于 Foo 的方法内调用时

Sysread等人需要在其他地方正常工作。可以放心地假设 Foo 中 sysread 的使用不会改变。

我想要这样做的原因是我需要跟踪从上述文件句柄读取/写入的字节数。此时，这似乎是我获取此信息的唯一方法 - 基本上保存系统读/写的返回值。

我使用 CPAN 的任何东西都没有问题，只要它质量好。

更新：我找到了针对我的具体问题的更好解决方案，并在此处发布了代码：

https:// github.com/Hercynium/Tie-Handle-CountChars

它似乎在我的应用程序中运行得很好，但在我更彻底地测试它并编写一些实际的代码之前，我不会将其发布到 CPAN单元测试:)

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

如日中天 2024-11-15 02:29:32

您可以通过创建自己的 Foo::sysread 函数来完成此操作，该函数通过记录返回值来包装核心函数。可以使用类::方法::修饰符:

package Foo;

use strict;
use warnings;

# ... other code...

use Class::Method::Modifiers;
around sysread => sub {
    my $orig = shift;

    my $return = CORE::sysread(@_);

    # do something with $return

    return $return;
};

You could do this by creating your own Foo::sysread function, which wraps the core function by logging the return value. The wrapping can be done automatically (preventing you from having to mess about with the symbol table yourself) with Class::Method::Modifiers:

package Foo;

use strict;
use warnings;

# ... other code...

use Class::Method::Modifiers;
around sysread => sub {
    my $orig = shift;

    my $return = CORE::sysread(@_);

    # do something with $return

    return $return;
};

回复收藏 0 原文

~没有更多了~