perl localとmyの違い

#localとmyのテスト
#localで宣言した変数の値は別のサブルーチンから参照できるが、myで宣言下変数の値は参照できない

#サブルーチン呼び出し
&local_my();

#サブルーチン本体
sub local_my{
    #localによる定義
    local($local_value) = "太郎";

    #myによる定義
    my($my_value) = "花子";

    #別サブルーチンを呼び出し
    &echo_local_my();
}

#サブルーチンから呼び出される別ルーチン
sub echo_local_my{
    #localとmyの値を表示
    print "localによる値: $local_value\n";
    print "myによる値: $my_value\n";
}

#実行結果
# localによる値: 太郎
# myによる値: 

初めてのPerl 第6版

初めてのPerl 第6版