我有一些自动生成的代码,有效地写出以下在一些不同的地方在一些代码:
no warnings 'uninitialized'; local %ENV = %ENV; local $/ = $/; local @INC = @INC; local %INC = %INC; local $_ = $_; local $| = $|; local %sIG = %sIG; use warnings 'uninitialized';
当自动生成代码时,有人认为不是严格必须的代码是“美丽的”,但我想把它拉进一个子程序。但是,这会将那些变量定位在该子程序中。有没有办法本地化这些变量在调用堆栈帧?
更新:在类似的情况下,它将是很高兴能够运行eval在更高的堆栈帧。我认为Python已经有这个。这将是很好,如果Perl也。
解决方法
也许你可以安排使用那些本地化的代码生成为一个闭包?然后你可以
sub run_with_env { my ($sub,@args) = @_; no warnings 'uninitialized'; local %ENV = %ENV; local $/ = $/; local @INC = @INC; local %INC = %INC; local $_ = $_; local $| = $|; local %sIG = %sIG; use warnings 'uninitialized'; $sub->(@args); } run_with_env(sub { # do stuff here }); run_with_env(sub { # do different stuff here });
原文地址:https://www.jb51.cc/Perl/173238.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。