在使用其他人的Perl API时,避免使用$_吗？

发布时间：2020-12-15 22:04:31 所属栏目：大数据来源：网络整理

导读：当我使用别人的API与默认变量$_ foreach (@rps_server_details) { @server_data = (); @server_data = split(/,/); @$esp_hosts = (); $filters{server_name} = $server_data[0]; print "---$_--n"; $esp_hosts = $esp-get_hosts(fields = $fields,%filters

当我使用别人的API与默认变量$_

foreach (@rps_server_details) {
    @server_data = ();
    @server_data = split(/,/);
    @$esp_hosts = ();
    $filters{server_name} = $server_data[0];
    print "--->$_<--n";
    $esp_hosts = $esp->get_hosts(fields => $fields,%filters) || die "$@";
    print "--->$_<--n";

这个输出是：

--->igrid8873.someone.com,app_10<--
Use of uninitialized value in concatenation (.) or string at ./rps_inv_lookup.pl line 120.
---><--

指定我自己的循环变量,而不是依赖$_来解决问题.

我只是使用$_与其他人写的API结合使用天真吗？还是这个API模块中的错误？

解决方法

这是API中的一个错误.如果你在一个函数中使用$_,那么重要的是添加一个

local($_);

在函数内部,以避免调用者的$_,或以其他方式避免使用$_in库函数来调用.

如果您可以将yoursel限制为Perl版本> 5.9.1那么你也可以使$_ lexical这使得它比localwith更容易理解

my $_;

但是,这将打破早期版本的Perl.

从男人的perlvar：

As $_ is a global variable,this may lead in some cases to
unwanted side-effects. As of perl 5.9.1,you can now use a
lexical version of $_ by declaring it in a file or in a block
with “my”. Moreover,declaring “our $_” restores the global $_ in the current scope.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!