請(qǐng)教各位這代碼里的兩個(gè)$$是什么意思

zlxyzl

sub rand_int_inc_seed
{
     my $srand_seed = $_[0];
     my $range = $_[1];
     my $rand_result;
     srand($$rand_seed);
     $$srand_seed++;
     $rand_result = int(rand($range));
     return $rand_result;
}
請(qǐng)教各位這代碼里的兩個(gè)$$是什么意思

b114213903

變量的引用

523066680

表明 $rand_seed 是引用變量
${$rand_seed} 進(jìn)行解引用，這樣就可以修改 $rand_seed 指向的那個(gè)變量。

例如

1. my $orig = 2;
   
2. func(\$orig);
   
3. print $orig;  # 輸出 3
   
4. 
   
5. sub func
   
6. {
   
7.     my $ref = $_[0];
   
8.     $ref = 3;  # 現(xiàn)在 $orig == 3
   
9. }
   

復(fù)制代碼