一個引用的問題 想不明白

xfoucs

1. #!/usr/bin/perl -w
   
2. #use strict;
   
3. my ($a,$b)=(undef,"test");
   
4. 
   
5. @$a=qw /123 456 789/;
   
6. @$b=qw /321 644 987/;
   
7. 
   
8. print "$a->[0]\t$b->[0]\n";
   
9. print ref $a,ref $b,"-------\n";
   

復(fù)制代碼

請問這  ref $a,ref $b 有什么區(qū)別？ 謝謝

zhlong8

$a是 autovivification，$b 是符號引用

xfoucs

回復(fù) 2# zhlong8


不知能否詳細(xì)說明下或者告知那本書里有介紹 謝謝

zhlong8

回復(fù)  zhlong8


不知能否詳細(xì)說明下或者告知那本書里有介紹 謝謝
xfoucs 發(fā)表于 2011-07-28 09:25

    應(yīng)該是 Intermediate Perl 中講引用的地方。這里你把 $a 當(dāng) arrayref 用了所以就自動創(chuàng)建了個數(shù)組，$b 是 'test' 會當(dāng)作全局變量的變量名進(jìn)行賦值。用了 use strict; $b 就不能這么用了，請永遠(yuǎn)用 use strict;