'* {}'は有効なPerl5逆参照演算子（perldoc：overload）のようです。それはどのように逆参照されますか？

Question

プラグラムPerl5のオーバーロードについて読んでいる間、私はオペレータ*{}に気づいた。

*がどのようなものか、またはrefの文脈で*の意味があるかどうかを知りたいと思います。

Answer 1

*fooは、「タイプグロブ」または略して「グロブ」です。グロブは、ARRAY、HASH、IOなどのフィールドを持つ構造体（C structのように）です。これらのフィールドには、何も参照も含まれていません。 Perlコードの観点からは、非常に特殊なハッシュのように見えます。

globの主な目的は、Perlのシンボルテーブルのエントリとしてサーバーを使用することです。シンボルテーブルは、パッケージに属するすべてのシンボルとすべての「真にグローバル」な変数（例えばSTDOUT、$1など）を保持します。シンボルがなければ、何という名前のサブルーチンはないであろう、@ISAと@EXPORTは存在しないないだろう、とどちらも@_、$$などが[もちろん、グロブはほとんど間違いないレガシーです。]でしょう

$ perl -E' 
    our @foo = qw(a b c); 
    our %foo = (d=>4, e=>5); 
    say @{ *foo{ARRAY} }; 
    say %{ *foo{HASH} }; 
' 
abc 
d4e5 

グロブも使用されていますIOオブジェクト（ファイルハンドル）の周りのラッパーとして。 open(my $fh, ...)でもglobで$fhが生成されます。

グローはPerlで明示的に使用されることはほとんどありません。 1つの例外は古いスタイルのファイルハンドルです。たとえば、FILEとSTDOUTは、実際にはと*STDOUT（ファイルハンドルとして使用される）を意味します。これらの用語は、便宜上、*FILE{IO}と*STDOUT{IO}です。

$ perl -e'open(FILE, "echo foo|") or die; print readline(FILE);' 
foo 

$ perl -e'open(*FILE, "echo foo|") or die; print readline(*FILE);' 
foo 

$ perl -e'open(*FILE{IO}, "echo foo|") or die; print readline(*FILE{IO});' 
foo 

、なぜあなたは*{}を上書きしたいのでしょうか？

実際にファイルハンドルなしでファイルハンドルのように見えるオブジェクトを作成する場合は、*{}を上書きすることをお勧めします。たとえば、このオーバーライドを使用して、globベースのオブジェクトの代わりにIO :: Socketオブジェクトのハッシュベースのオブジェクトを作成できます。

Answer 2

typeglobを指します。それは任意のタイプを参照することができます。彼らは現在ほとんどが遺産である。