我想编写一个小的子例程,它可以以一致的方式装饰所有错误消息,而不必在我的程序中复制它.
但是我希望行号来自调用它的位置,而不是来自die/ warn发生的位置.
在CI中只使用预处理器宏,但Perl没有这些.实现这个的最佳方法是什么？
我有一个变量,我想采取第一次捕获并使用它作为哈希的关键.我找到了解决方案,但似乎不是最理想的.
My $out = $hash{[$var =~ /(^[a-z]+)/]->[0]};
似乎必须有一个更好的方法然后去list-> array-> scalar.也许只是列表 - >标量.我知道我也可以捕获另一个变量,然后将其用作关键,但我想避免这种情况.有一个更好的方法吗？