Perl 优化 : inlining a function changed the results

Question

我分析了一些代码，有一个功能很突出，我想知道是否有优化它的方法:
该函数定义为:

sub convert_arrayref {
   if(ref($_[0]) eq 'ARRAY') {
       return join(($_[1] || ","), @{$_[0]});
   }
   else {
     return $_[0];
   }
}

大多数时候 else块将被执行，我想知道是否可以内联它而不是进行函数调用。调用代码如下所示:

$data = convert_arrayref($data, '&')

所以，我所做的是将调用代码更改为:

if ($data eq 'ARRAY') {
    $data = join('&', $data)
}

我认为这将是等效的。然而，结果是不同的。我想知道我是否在这里做错了什么。

Answer 1

你得到不同的结果，因为你没有复制 if 的功能。条款。您需要使用 ref检查您的变量是否是数组引用，并且您需要尊重该变量:

if (ref($data) eq 'ARRAY') {
    $data = join('&', @{ $data })
}