Intermediate Perl 2nd EDITION 错了??????

chenxianzai

今天看了 《Intermediate Perl 2nd EDITION》 看到第四章Introduction to References的时候发现一个问题，
一下是英文版截图：（英文版第37页Doing the Same Task on Many Arrays那节）

这里是不是写错了？perl的子程序的默认传参机制是“引用传递”的。如果你要“按值传递”的，你需要显式的写 例如： my @params = @_;
上文说不会修改到原来的数组?
哥做了一个测试：
#!/usr/bin/per
use strict;
use warnings;

my @required = qw(preserver sunscreen water_bottle jacket);

change(@required );

sub change {
$_[0]=substr($_[0],3);
}

#输出是：server sunscreen water_bottle jacket  
第一个元素被修改了！！！！！！

在perl之父Larry wall 写的《Programming Perl,4th.Edition》的第7章（英文版，318页，Tricks with Parameter Lists那节）说明perl的子程序默认是按引用传递的：




请大神指点迷津！！！！！！！！！！！！！！

104359176

我用  use 5.016; 做了个测试，修改  @_ 确实会修改传入的变量本身。

Perl 最佳实践 189 页上说， @_ 的每个元素都是原有自变量的别名。也就是说，修改 $_[0], 也会改变含有该自变量的变量。

这种写法我没有用过，因为这是不建议使用的。在大部分语言中，函数是有独立词法作用域的结构，按照引用传递，是一个错误的设计。

虽然按照值传递效率太低，但惰性计算机制会弥补。

我想 Perl 的核心团队应当知道这个设计错误。

在未来的版本中，我希望 Perl 改变按引用传递的机制。

chenxianzai

回复 2# 104359176


    Perl难道就这么不成熟吗

rubyish

不会修改到原来的, Because We Have A Copy in The Sub

1. my @array = qw/1 2 3 4/;
   
2. 
   
3. sub nochange {
   
4.     my @a = @_;    # We Have A Copy
   
5.     map { $_ *= 2 } @a;
   
6.   }
   
7. sub change {
   
8.     # don't have a copy
   
9.     map { $_ *= 2 } @_;
   
10. }
    
11. 
    
12. say nochange @array;  # 2468
    
13. say @array;           # 1234
    
14. 
    
15. say change @array;    # 2468
    
16. say @array;           # 2468

复制代码

104359176

回复 3# chenxianzai


    这是历史原因，本着向前兼容的原则，Perl 不会轻易修改这个问题。

chenxianzai

回复 4# rubyish


    难道是我的英文理解有问题 ？
any changes we make to @_ aren’t reflected automatically in the corresponding
provisions array.

这句话中的provisions array指的是？subroutine中的provisions array 的copy 还是 传入subroutine的参数数组？

pitonas

我的理解

1. my @origin = qw/A B C/;
   
2. 
   
3. sub changes {
   
4.     my @corresponding = @_;    # because have a copy
   
5.     map { $_ = lc } @_;        # any changes we make to @_
   
6.     say "\@_:\t", @_;
   
7. 
   
8.     # aren’t reflected automatically in the corresponding provisions array.
   
9.     say "corresponding:\t", @corresponding;
   
10. }
    
11. 
    
12. changes @origin;

复制代码

1. @_:     abc
   
2. corresponding:  ABC
   

复制代码

pitonas

哦，哦 . . .

wxlfh

我觉得这不是个问题，C/C++也有传地址或引用进函数的。

104359176

回复 9# wxlfh


    传递引用和传递值都是非常有用的特性，但 Perl 却强制只是传递引用。然后用命名规范方面的东西，实现值的传递。