perl typeglob使用

#!/usr/bin/perl -l


use strict;
use warnings;


my $var = "Hello Jason";
my @var = qw(aaa bbb ccc ddd eee fff);
*var = "Hello World";
*var = @var;
*var = sub{print "This is a sub"};
print ?${*var{SCALAR}};
map{print}@{*var{ARRAY}};
&{*var{CODE}}();
for my $field (qw/SCALAR ARRAY HASH CODE/){
? ? ? ? print ref *var{$field}?ref *var{$field}:"undefined";
}


sub show{
? ? ? ? print "This is in show()";
}


&{*show{CODE}}();

==================================================================================

output:

Hello World aaa bbb ccc ddd eee fff This is a sub SCALAR ARRAY undefined CODE This is in show()