請教各位這代碼里的兩個$$是什么意思

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;
}
請教各位這代碼里的兩個$$是什么意思

b114213903

變量的引用

523066680

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

例如

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

復制代碼