无法将散列和字符串传递给函数,在perl中一起！

发布时间：2020-12-15 23:30:56 所属栏目：大数据来源：网络整理

导读：我基本上试图将字符串和哈希传递给perl中的子例程. sub coru_excel { my(%pushed_hash,$filename) = @_; print Dumper(%pushed_hash);} 但似乎数据正在变得混乱.转储的数据还包括$filename.这是输出. ...................$VAR7 = 'Address';$VAR8 = [ '223 V

我基本上试图将字符串和哈希传递给perl中的子例程.

sub coru_excel {
    my(%pushed_hash,$filename) = @_;
    print Dumper(%pushed_hash);
}

但似乎数据正在变得混乱.转储的数据还包括$filename.这是输出.

...................
$VAR7 = 'Address';
$VAR8 = [
          '223 VIA DE
................
        ];
$VAR9 = 'data__a.xls'     <----- $filename
$VAR10 = undef;
$VAR11 = 'DBA';
$VAR12 = [
           'J & L iNC
..................
         ];

以下是我调用子程序的方法.

coru_excel(%hash,"data_".$first."_".$last.".xls");

解决方法

参数作为一个无差别列表传递给子例程.

一种解决方案是颠倒参数的顺序,以便标量是第一个.

sub coru_excel {
    my($filename,%pushed_hash) = @_;
}

coru_excel("FILE_NAME",%hash);

另一种方法是通过引用传递哈希：

sub coru_excel {
    my($pushed_hash_ref,$filename) = @_;
}

coru_excel(%hash,"FILE_NAME");

（编辑：李大同）

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