blocks|key|1492918|text|这是可能的，但在处理匿名函数时，您可能希望使用my+($x)+=+@_;而不是$x+=+@_;，并使用删除函数名。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|BOLD|entityRanges|data|1492919|然后，您可以将函数作为$a{first}->([arg])调用|1492920|my+%25a+=+('first'+=>+sub+{+my+($x)+=+@_;+sprintf("(first+%25s)",+$x);+});|code-block|syntax|javascript|1492921|entityMap^0|N|D|13|8|1F|5|0|B|I|0|0^^$0|@$1|2|3|4|5|6|7|P|8|@$9|Q|A|R|B|C]|$9|S|A|T|B|C]|$9|U|A|V|B|D]]|E|@]|F|$]]|$1|G|3|H|5|6|7|W|8|@$9|X|A|Y|B|C]]|E|@]|F|$]]|$1|I|3|J|5|K|7|Z|8|@]|E|@]|F|$L|M]]|$1|N|3|-4|5|6|7|10|8|@]|E|@]|F|$]]]|O|$]]

It is possible, but you probably want <code>my ($x) = @_;</code> instead of <code>$x = @_;</code> and drop function name as you're dealing with anonymous function.

You can then call function as <code>$a{first}-&gt;([arg])</code>

<pre><code>my %a = ('first' =&gt; sub { my ($x) = @_; sprintf("(first %s)", $x); });
</code></pre>

blocks|key|1492935|text|如此接近..。您遗漏的一个细节是您在那里定义了一个匿名子，所以您不应该给它命名：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1492936|$+perl+-E+'%25a+=+(first+=>+sub+{+$x+=+@_;+sprintf("(first+%25s)",+$x);+});+say+$a{first}->(3);'
(first+1)|code-block|syntax|javascript|1492937|(请注意，对于$x+=+@_，您将$x设置为@_中的项数，而不是数组中的第一项，这就是为什么输出是"first+1“而不是"first+3”的原因。)|offset|length|style|CODE|1492938|entityMap^0|0|0|7|7|H|2|M|2|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@$I|R|J|S|K|L]|$I|T|J|U|K|L]|$I|V|J|W|K|L]]|9|@]|A|$]]|$1|M|3|-4|5|6|7|X|8|@]|9|@]|A|$]]]|N|$]]

So close... The one detail you missed is that you're defining an anonymous sub there, so you shouldn't give it a name:

<pre><code>$ perl -E '%a = (first =&gt; sub { $x = @_; sprintf("(first %s)", $x); }); say $a{first}-&gt;(3);'
(first 1)
</code></pre>

(Note that, with <code>$x = @_</code>, you're setting <code>$x</code> to the number of items in <code>@_</code>, not the first item in the array, which is why the output is "first 1" instead of "first 3".)

blocks|key|1334653|text|您可以存储对匿名子例程的引用：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1334654|my+%25a+=+('first'+=>+sub+{+my+($x)+=+@_;+sprintf("(first+%25s)",+$x);+});|offset|length|style|CODE|1334655|或对命名子例程的引用：|1334656|sub+first+{+
++my+($x)=+@_;+
++sprintf("(first+%25s)",+$x);
}

my+%25a+=+('first'+=>+\&first);|code-block|syntax|javascript|1334657|在这两种情况下，您都以相同的方式取消对它们的引用。|1334658|my+@result+=+$a{first}->(@args);|1334659|这通常被称为“调度表”。|1334660|entityMap^0|0|0|1Y|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|W|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|X|8|@$D|Y|E|Z|F|G]]|9|@]|A|$]]|$1|H|3|I|5|6|7|10|8|@]|9|@]|A|$]]|$1|J|3|K|5|L|7|11|8|@]|9|@]|A|$M|N]]|$1|O|3|P|5|6|7|12|8|@]|9|@]|A|$]]|$1|Q|3|R|5|L|7|13|8|@]|9|@]|A|$M|N]]|$1|S|3|T|5|6|7|14|8|@]|9|@]|A|$]]|$1|U|3|-4|5|6|7|15|8|@]|9|@]|A|$]]]|V|$]]

You an either store a reference to an anonymous subroutine:

<code>my %a = ('first' =&gt; sub { my ($x) = @_; sprintf("(first %s)", $x); });</code>

Or a reference to a named subroutine:

<pre><code>sub first { 
 my ($x)= @_; 
 sprintf("(first %s)", $x);
}

my %a = ('first' =&gt; \&amp;first);
</code></pre>

In both cases, you dereference them the same way.

<pre><code>my @result = $a{first}-&gt;(@args);
</code></pre>

This is usually called a 'dispatch table'.

blocks|key|1492984|text|首先，perl中没有关联数组。它是散列是的，你可以在散列中存储对子例程的引用；|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1492985|+my+%25hash=(
++++++++'function'=>\&subroutine,
+);
+sub+subroutine{
+++++print+"hai";
+}|code-block|syntax|javascript|1492986|或者，您可以在散列中创建它|1492987|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

First of all there is no associative array in perl. It is a hash
Yes you can store reference to a subroutine in a hash;

<pre><code> my %hash=(
 'function'=&gt;\&amp;subroutine,
 );
 sub subroutine{
 print "hai";
 }
</code></pre>

or you can create it inside the hash

Is it possible to create associative array that returns function?
Something similar to this 

<pre><code>%a = ('first' =&gt; sub first { $x = @_; sprintf("(first %s)", $x); });
</code></pre>

Thank you

Associative array that returns function in perl

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

可以创建返回函数的关联数组吗？类似这样的东西%a = ('first' => sub first { $x = @_; sprintf("(first %s)", $x); });谢谢

问在perl中返回函数的关联数组
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在perl中返回函数的关联数组EN