65 lines
2.4 KiB
Markdown
65 lines
2.4 KiB
Markdown
---
|
||
title: ref関数 – 何のリファレンスなのかを判断する
|
||
author: kazu634
|
||
date: 2009-08-10
|
||
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
|
||
|
||
---
|
||
<div class="section">
|
||
<p>
|
||
リファレンスをでリファレンスしたものが、
|
||
</p>
|
||
|
||
<ul>
|
||
<li>
|
||
スカラー変数
|
||
</li>
|
||
<li>
|
||
配列
|
||
</li>
|
||
<li>
|
||
ハッシュ
|
||
</li>
|
||
</ul>
|
||
|
||
<p>
|
||
なのかを判断する関数がrefです。
|
||
</p>
|
||
|
||
<h4>
|
||
使い方
|
||
</h4>
|
||
|
||
<pre class="syntax-highlight">
|
||
<span class="synStatement">use strict</span>;
|
||
<span class="synStatement">use warnings</span>;
|
||
<span class="synStatement">use </span>Perl6::Say;
|
||
<span class="synStatement">use utf8</span>;
|
||
<span class="synStatement">my</span> <span class="synIdentifier">$foo</span> = <span class="synConstant">10</span>;
|
||
<span class="synStatement">my</span> <span class="synIdentifier">@array</span> = ( <span class="synConstant">1</span>, <span class="synConstant">2</span>, <span class="synConstant">3</span>, <span class="synConstant">4</span>, <span class="synConstant">5</span> );
|
||
<span class="synStatement">my</span> <span class="synIdentifier">$ref_foo</span> = <span class="synIdentifier">\$foo</span>;
|
||
<span class="synStatement">my</span> <span class="synIdentifier">$ref_array</span> = <span class="synIdentifier">\@array</span>;
|
||
<span class="synStatement">my</span> <span class="synIdentifier">$ref_hash</span> = {
|
||
<span class="synConstant">"key"</span> => <span class="synConstant">13</span>,
|
||
<span class="synConstant">"foo"</span> => <span class="synConstant">15</span>,
|
||
};
|
||
say <span class="synStatement">ref</span>(<span class="synIdentifier">$ref_foo</span>);
|
||
say <span class="synStatement">ref</span>(<span class="synIdentifier">$ref_array</span>);
|
||
say <span class="synStatement">ref</span>(<span class="synIdentifier">$ref_hash</span>);
|
||
</pre>
|
||
|
||
<h4>
|
||
実行例
|
||
</h4>
|
||
|
||
<pre class="syntax-highlight">
|
||
~/working/tmp_perl on simoom634 <span class="synStatement">[</span><span class="synConstant">506</span><span class="synStatement">]</span> $: perl <span class="synStatement">test</span>.pl
|
||
SCALAR
|
||
ARRAY
|
||
HASH
|
||
</pre>
|
||
</div>
|