字符串eval、代码属性与符号表的异常交互原因咨询

你遇到的符号名称不匹配问题，核心根源在于Perl符号表的复用机制，以及Attribute::Handlers的属性绑定逻辑：

1. 符号表条目（Glob）的复用
   你在循环中通过string eval反复定义同名的嵌套函数（比如每次循环都定义outer、middle、inner），Perl并不会为每次定义创建全新的符号表条目，而是会复用已有的*main::outer、*main::middle这类glob。当你修改函数的属性状态（从带属性变不带，或反之），旧的glob元数据不会被自动清理。

2. Attribute::Handlers的属性绑定逻辑
   Attribute::Handlers是将属性绑定到符号表的glob上，而非具体的代码引用本身。当你第一次给某个函数添加属性时，模块会修改对应glob的元数据；后续重新定义该函数（即使去掉属性），之前绑定在glob上的元数据不会被彻底重置，甚至glob的NAME字段会残留之前的关联信息，导致*{$symbol}{NAME}获取到的是旧的函数名，而非当前定义的函数实际名称。

3. 嵌套函数的符号表污染
   嵌套函数的定义会在当前包的符号表中留下痕迹，每次循环的嵌套定义会反复覆盖同一批glob，叠加Attribute::Handlers的元数据残留，最终导致符号名称的匹配逻辑混乱，出现你观察到的无规律（实则是glob复用残留）的名称不符问题。

验证与解决思路 #

• 验证方法：在每次string eval执行前，手动清除对应glob的所有关联数据，比如：

  undef *outer;
  undef *middle;
  undef *inner;
  

  执行后再重新定义函数，看看符号名称是否能恢复正常匹配。
• 根本解决方向：不要复用同名函数，而是在每次循环中生成唯一的函数名（比如结合循环索引拼接，如outer_${i}_${j}_${k}），让每个函数对应独立的glob，从根源上避免符号表复用带来的元数据残留问题。

内容的提问来源于stack exchange，提问作者Joe Casadonte