Perlはどのようにサブルーチンのプライベート変数へのグローバル参照を実装していますか？

Question

私は以下のようにPerlとCで2つのコードセクションを持っています。これはPerlのmy変数とCの自動変数に関するものです。ある程度は、関数に入るたびに初期化されるという点ではかなり似ています。しかし、Perlはサブルーチンの変数myを参照することができます。戻り値の後に関数呼び出しスタックが破棄されるため、Perlはサブルーチンの変数を参照できます。誰でもこの機能をPerlがどのように実装しているのか知っていますか？それは、すべてのサブルーチンコールスタックをそのままにすることはできませんでした。つまり、Perlは "データセグメント"（スタックと比較して）のサブルーチンに作成された変数myを割り当てますか？

Perlコード：

use strict; 
use warnings; 

my $ref; 

sub func 
{ 
    my $str = "hello"; 
    $ref = \$str; 
} 
func; 
print "value is "; 
print "${$ref}\n"; 

Cコード：

#include <stdio.h> 

int *pi; 

void func(void) 
{ 
    int j = 9; 
    pi = &j; 
} 

int main(void) 
{ 
    func(); 
    printf("value is "); 
    printf("%d\n", *pi); 
    return 0; 
} 

おかげで、あなたが関数内でローカルに作成されたいくつかのデータへ参照にグローバル変数を設定している

Answer 1

。

Perl（「マネージメモリ」言語）では、すべての参照がなくなるまでガベージコレクションされない参照カウントされた「オブジェクト」（ここでは文字列であるため、ゆるやかな用語を使用します）。

Cでは、これは単なるメモリアドレスであり、有効であることを確認する必要があります（また、関数が返されるとすぐに既に再利用されているスタック領域を指しません）。