![]() |
|||
| | HOME | ご利用について | 推奨環境 | リンクに関して | 免責/規約 | お問合せ | ミスティーネット | リンク集 | | |||
|
HOME >> アルファベットで関数を検索 >> ref
ref [リファレンスかどうか確認する]
[その他の関数]
[関数の使い方・書式]○ = ref [☆] ☆:式。 ・・・ 通常スカラー変数。 [関数の機能] 引数がリファレンスかどうかを判定します。引数がリファレンスである場合の戻り値は、 リファレンスが指しているオブジェクトのタイプまたはプレスされているパッケージの名前です。 [書式の例] $return = ref $param;
サンプルソース
$ref = \123;
if ( ref($ref) eq 'SCALAR') { print "\$ref => スカラー\n"; }
$ref = \@array;
if ( ref($ref) eq 'ARRAY') { print "\$ref => 配列\n"; }
$ref = \%hash;
if ( ref($ref) eq 'HASH') { print "\$ref => ハッシュ\n"; }
$ref = \⊂
if ( ref($ref) eq 'CODE') { print "\$ref => コード\n"; }
$ref = \*glob;
if ( ref($ref) eq 'GLOB') { print "\$ref => グロブ\n"; }
$ref = \\123;
if ( ref($ref) eq 'REF') { print "\$ref => リファレンス\n"; }
$ref = Hoge->new;
if ( ref($ref) eq 'Hoge') { print "\$ref => Hogeクラス\n"; }
package Hoge;
sub new { my $class = shift; my $self = {};
bless $self, $class; return $self; }
|
|||||||||||||||||||||||||||||||||||||