Question

perl中“->”的用法

$RefCurUnit->[2]=$Max;
本来个人觉得->可以去掉，变成$RefCurUnit[2]=$Max;也没问题
但是试验以后发现不能去掉->
求问->的作用？为啥去掉就不出结果？
$RefCurrent=${$RefLattice}[$i];
foreach $RefCurUnit(@{$RefCurrent}){
｝
嗯这个$RefCurUnit是这么个存在

Answer 1

不能去掉，->代表的是取引用，数组 @a=(1,2,3), $a[0]=1 写成引用形式是$a=[1,2,3] 因此 $a->[0]=1, $RefCurrent是数组的引用类似于[1,2,3]， @{$RefCurrent} 就是把引用转为数组，类似于@a, $RefCurUnit 就是数组@{$RefCurrent}中的一个元素，而这个元素本身又是一个引用。

追问

老师后来说$RefCurUnit->[2]=$Max; 改成${$RefCurUnit}[2]=$Max;也行 但是我改成这种以后完全不能运行？请问两种真的是一样的么还是微妙的有不同？哪里不同？

追答

你要理解数组和数组引用的区别，$RefCurUnit->[2]=$Max是说数组引用$RefCurUnit第3个元素为$Max， ${$RefCurUnit}[2]=$Max; 是说数组@{$RefCurUnit}的第三个元素， 是一样的

Answer 2

$refcurunit 是一个指针，－〉可以理解为取值 ，$ref->[2]->[3]...就是你想像中的$ref[2][3]

追问

但是$ref[2][3]这种我在程序里跑了并不能出结果？ 如果是我想象中的那种那我去掉了也没问题可是就是不能运行？

Answer 3

（1）/c表示把匹配不上的字符进行替换.
$temp="AAAABCDEF";
$count=$temp=~tr/A/H/c;
print "$temp\t$count\n";
结果：AAAAHHHHH 5
（2）/d:表示把匹配上的字符全部替换
$temp="AAAABCDEF";
$count=$temp=~tr/A/H/d;
print "$temp\t$count\n";
结果：HHHHBCDEF 4