Hm. There are still plenty of places where references to typeglobs are relevant in Perl5:
open my $fh, '>', 'fred.junk'; Dump( $fh );; SV = RV(0x3c728b0) at 0x3c728a0 REFCNT = 1 FLAGS = (PADMY,ROK) RV = 0x3c72950 SV = PVGV(0x3c82d38) at 0x3c72950 REFCNT = 1 FLAGS = () NAME = "$fh" NAMELEN = 3 GvSTASH = 0x36bde0 "main" GP = 0x3c93298 SV = 0x0 REFCNT = 1 IO = 0x3c72168 FORM = 0x0 AV = 0x0 HV = 0x0 CV = 0x0 CVGEN = 0x0 LINE = 1 FILE = "(eval 18)" FLAGS = 0x0 EGV = 0x3c72950 "$fh"
opendir my $dir, '.'; Dump( $dir );; SV = RV(0x2762e8) at 0x2762d8 REFCNT = 1 FLAGS = (PADMY,ROK) RV = 0x3c721e0 SV = PVGV(0x3c82d38) at 0x3c721e0 REFCNT = 1 FLAGS = () NAME = "$dir" NAMELEN = 4 GvSTASH = 0x36bde0 "main" GP = 0x3c93298 SV = 0x0 REFCNT = 1 IO = 0x3c72198 FORM = 0x0 AV = 0x0 HV = 0x0 CV = 0x0 CVGEN = 0x0 LINE = 1 FILE = "(eval 22)" FLAGS = 0x0 EGV = 0x3c721e0 "$dir"
sub cmp { $_[0] <=> $_[1] };; Dump( \&cmp );; SV = RV(0x2762e8) at 0x2762d8 REFCNT = 1 FLAGS = (TEMP,ROK) RV = 0x3c72858 SV = PVCV(0x3c5a028) at 0x3c72858 REFCNT = 2 FLAGS = () COMP_STASH = 0x36bde0 "main" START = 0x3d0ef48 ===> 0 ROOT = 0x3d0eed0 GVGV::GV = 0x3c721f8 "main" :: "cmp" FILE = "(eval 9)" DEPTH = 0 FLAGS = 0x0 OUTSIDE_SEQ = 1935 PADLIST = 0x3c72840 PADNAME = 0x3c72828(0x3cf7358) PAD = 0x3c72210(0x3cf7618) OUTSIDE = 0x36beb8 (UNIQUE)
Being dismissive of these more obscure but still totally current and relevant areas of Perl because you rarely interact with them directly or don't understand them is of no help to anyone.
In reply to Re^2: Dereferencing a reference to a typeglob?
by BrowserUk
in thread Dereferencing a reference to a typeglob?
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |