型グロブの性質の一例。 use strict; use vars qw($foo); $foo = 'FOO'; local *HOGE = 'main::foo'; print ${*HOGE{SCALAR}}; こいつはエラーを吐かずに予期した通りの動作をする。perlな人じゃないと絶対書かないコードだけどね(-_-)。

openっぽいのを自分で作ってみたかったのでやってみた。use strict;sub myopen(*$){ my ($glob_ref, $path) = @_; local (*FH) = $$glob_ref; return open(FH, $path); }myopen(OUT, '>out.txt'); print OUT "hello\n"; close(OUT); が、Can't use string ("…