日常

use strict;

sub aaa
{
	local *type_glob = shift;
	print type_glob *type_glob{FILEHANDLE}, "\n";
}

sub bbb
{
	my $type_glob_ref = shift;
	print $type_glob_ref ref $type_glob_ref, "\n";
}

sub ccc
{
	my $file_handle_ref = shift;
	print $file_handle_ref ref $file_handle_ref, "\n";
}

aaa *STDOUT;
bbb \*STDOUT;
ccc *STDOUT{'FILEHANDLE'};

__END__

Perlのlocalとかダイナミックスコープとかいう話を目にした。
私はPerlを使うが、正直なところ、他人にPerlを薦められない。
というのは、例えば、ファイルハンドルをサブルーティンに引き渡す、
なんていうのは頻繁に行うことだと思うのですが、その方法と意味を説明する自信が無いからです。
今やもう待ち遠しくなくなっちゃてるけど、こういう恥部の露出はPerl6ではなくなってるんでしょうか。