blog/content/post/2009/08/10/2009-08-10-00001214.md

2.4 KiB
Raw Blame History

title author date url wordtwit_post_info categories
ref関数 何のリファレンスなのかを判断する kazu634 2009-08-10 /2009/08/10/_1316/
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";}}
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