--- title: ref関数 – 何のリファレンスなのかを判断する author: kazu634 date: 2009-08-10 url: /2009/08/10/_1316/ wordtwit_post_info: - 'O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:4751;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}' categories: - Perl ---

リファレンスをでリファレンスしたものが、

なのかを判断する関数がrefです。

使い方 

use strict;
use warnings;
use Perl6::Say;
use utf8;
my $foo = 10;
my @array = ( 1, 2, 3, 4, 5 );
my $ref_foo   = \$foo;
my $ref_array = \@array;
my $ref_hash  = {
"key" => 13,
"foo" => 15,
};
say ref($ref_foo);
say ref($ref_array);
say ref($ref_hash);

実行例 

~/working/tmp_perl on simoom634 [506] $: perl test.pl
SCALAR
ARRAY
HASH