我只是初学者 这是我的一点浅见 orz 我是觉得cutecpu前辈提出的问题真的很有趣 ※ 引述《l10nel (小失)》之铭言： : ※ 引述《cutecpu (可爱中央处理器)》之铭言： : : 想请问为什麽： : : #!/usr/bin/perl -w : : @arr = (1,2,3); : : print @arr[2]; : : 会出现：「Scalar value @arr[2] better written as $arr[2] at ./g.pl line 5.」 : : 而以下 code 却不会 : : #!/usr/bin/perl -w : : @arr = (1,2,3); : : $ref = \@arr; : : print @$ref[2]; # 我一直以为要写成 ${$ref}[2] or $$ref[2] 才是对的 : : 谢谢^_^ : 很讶异 4、7、8 都是可行的（印出正确结果），但避免为宜。 : use warnings; : use strict; : my @arr = (1,2,3); : print $arr[2]; #3 1:正确写法 : print ${arr[2]}; #3 2:同1但没必要 : print ${arr}[2]; #3 3:同1但没必要 : print @arr[2]; #3 4:惊讶，这样在Perl 5.10竟然也行！何时开始可行的？ : # 这的确是Perl 6的标准语法， : # 难道Perl 5向Perl 6借了新功能？ : # 在 use warnings; 下遭到警告：Scalar value @arr[2] : # better written as $arr[2] 我比较想提出的看法是在这边 @arr[1]这种用法我很久前就开始用了 那时候好像perl 6架构也都还没有出来 这语法我认为最大的价值就在於 有时候在对array做sliding时 并不会知道需要切多少出来 例如我要从array A中找出符合的ID 再去array B调出符合的纪录 如果符合条件的只有一个元素 就会出问题 那强制锁定单数要用$ 在实作上似乎就不是那麽必要 而且可能还会造成程式员的负担 (因为要先确定元素个数有几个 再来决定前置符号 光是这点就有些麻烦) 後来的perl 6有对这部分改进 印象中理由就是 "大家从array中取值出来 如果用@会比较容易理解" 当然我是觉得有好有坏 如果是用Larry产品的人应该都知道他是"西方"语言学家 那边的语言名词都有单复数之别 相对的在"东方"语系对於名词的单复数就不是要求那麽严格 这种修改有可能跟Larry的语言上的美学有冲突 但对於使用perl实作时 的确是有些许帮助 (虽然也是会失去判别该变数的单复数区别能力 trade off的问题) : #print {@arr}[2]; #3 语法错误，大括号通常不该围住最前头的 @ $ 等符号 : my $ref = \@arr; : print "\n"; : print @$ref; #123 5:这是从$ref还原(dereference)阵列的标准做法 : print "\n"; : print $ref->[2]; #3 6:以$ref取阵列元素的标准做法，用->避开烦人的大括号 : print @$ref[2]; #3 7:以下7-10都同6，都能成功取得元素[2]，但前头涉及 : # 两个符号，後面还接 [...]， : print @{$ref}[2]; #3 8: 若再加大括号，非常烦人，这就是Perl令人诟病处， : # 能写成6的地方 : print $$ref[2]; #3 9: 应该尽量避免写成7-10 : print ${$ref}[2]; #3 10: : === : OUTPUT: : 3333 <- 1-4 各印出一个3 : 123 <- 阵列全部内容 : 33333 <- 6-10 各印出一个3 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 140.113.173.30 ※ 编辑: abliou 来自: 140.113.239.44 (04/24 14:35)