英文:
Perl how do I dynamically alias a sub and pass it arguments?
问题
在Perl中，您可以动态别名子例程并将参数传递给它，或者将一个子例程别名为另一个子例程在一个blessed对象中。以下是您提供的示例代码中的相关部分的翻译：
#!/usr/bin/env perl#https://www.perl.com/article/closures-as-objects/use warnings;use strict;use diagnostics;package Debug;use Data::Dumper;sub new {my $self = {};# 如何将所有@files别名为子例程log？my @files = (qw(callback log printing));foreach my $file (@files) {# 使用ikegami提出的答案更新$self->{$file} = sub { plog( @_, $file ) };}print Dumper $self;return bless $self;}sub plog { # 提供Debug->log Debug->printing Debug->status等功能my ($self, $level, $message, $file) = @_;print "Level:'$level'\n";print "Message:'$message'\n";print "File:'$file'\n";}1;###################################################package main;my $debug = Debug->new();# 文件 等级，消息$debug->plog(1, "Hello World", "在Debug中" );$debug->callback(1, "Hello World" );$debug->log(1, "Hello World" );$debug->printing(1, "Hello World" );#### 期望结果# Level:1# Message:Hello World# File:callback
注意：您提供的Perl代码包含一些HTML转义字符（如>和"），这些字符在翻译中已被修复。如果您需要将翻译后的代码放入Perl环境中运行，建议删除这些HTML转义字符。
英文:
In Perl how do I dynamically alias a sub and pass it arguments?
Or How do I alias a sub to another sub in a blessed object?
I have an array @files that I would like to all become subs that call sub log with the name of the file appended to @_
Sample code with things I tried below.
Is this possible? Thanks!
#!/usr/bin/env perl#https://www.perl.com/article/closures-as-objects/use warnings;use strict;use diagnostics;package Debug;use Data::Dumper;sub new {my $self = {};# How do I alias all @files to sub log ?my @files = (qw(callback log printing ));foreach my $file (@files){# updated with ikegami's proposed answer$self->{$file} = sub { plog( @_, $file ) };}print Dumper $self;return bless $self;}sub plog { # provides Debug->log Debug->printing Debug->status etc..my ($self, $level, $message, $file) = @_;print "Level:'$level'\n";print "Message:'$message'\n";print "File:'$file'\n";}1;###################################################package main;my $debug = Debug->new();# file level, message$debug->plog(1,"Hello World","were in the Debug" );$debug->callback(1,"Hello World" );$debug->log(1,"Hello World" );$debug->printing(1,"Hello World" );#### Desired result# Level:1# Message:Hello World#File:callback
答案1
得分: 2
Perl对象没有自己的方法；它们拥有其类的方法。
package Debug;use Sub::Name qw( subname );for my $name (qw( callback log printing )) {my $sub = subname $name, sub {my $self = shift;return $self->plog( @_ , $name );};no strict qw( refs );*$name = $sub;}...
或者
package Debug;sub callback { my $self = shift; $self->plog( @_, "callback" ) }sub log { my $self = shift; $self->plog( @_, "log" ) }sub printing { my $self = shift; $self->plog( @_, "printing" ) }...
英文:
Perl objects don't have the methods of their own; they have the methods of their class.
package Debug;use Sub::Name qw( subname );for my $name (qw( callback log printing )) {my $sub = subname $name, sub {my $self = shift;return $self->plog( @_ , $name );};no strict qw( refs );*$name = $sub;}...
or
package Debug;sub callback { my $self = shift; $self->plog( @_, "callback" ) }sub log { my $self = shift; $self->plog( @_, "log" ) }sub printing { my $self = shift; $self->plog( @_, "printing" ) }...
答案2
得分: 1
$self->{ $file } = sub { log( @_, $file ) };
它被如下调用：
$debug->{ callback }->( ... )
英文:
> put log function here?
You want to put a call to log there.
$self->{ $file } = sub { log( @_, $file ) };
It's called as follows:
$debug->{ callback }->( ... )
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论