カジュアルと言えば、Hokkaido.pm Casual#8が開催されたばっかりなので、どんな感じのことをやってるか少しだけ紹介しますね!
#8で扱ったのは「モジュール定義入門」ということで、Perlでクラス定義とかオブジェクトの生成とかどうやるの?って内容で開催しました。
package Foo; use strict; use warnings; sub new { my $class = shift; return bless {}, $class; } package Bar; use strict; use warnings; sub new { my $class = shift; return bless {}, 'NotBar'; } package main; use strict; use warnings; use feature 'say'; my $foo = Foo->new(); say ref $foo; # Foo my $bar = Bar->new(); say ref $bar; # NotBar my $hoge = bless {}; say ref $hoge; # main
こんな感じの結果が得られる訳ですが、newの第1引数にパッケージ名が入っているので、blessの第2引数に使うのが良く見られると思います。でも、第2引数に任意の文字列を与えたり、省略することも出来て、省略した場合は現在のパッケージ名が入るようです。
Perl のオブジェクトからタイトルを拝借した訳ですが、blessの第1引数にはリファレンスを渡します。なので、オブジェクトに他の言語でいうメンバ変数を持たせたい場合は、以下のように書きます。
package Foo; use strict; use warnings; sub new { my $class = shift; return bless { a => 5 }, $class; } package main; use strict; use warnings; use feature 'say'; my $foo = Foo->new(); say $foo->{a}; # 5
ちなみにメソッドを定義して呼び出す手順はこんな感じ。
package Bar; use strict; use warnings; sub new { my $class = shift; return bless {}, $class; } sub hoge { return 'hello.'; } package main; use strict; use warnings; use feature 'say'; my $bar = Bar->new(); say $bar->hoge(); # hello.
newを呼び出したときの引数をメンバ変数として確保して、それをメソッドから参照するにはこんな感じ。
package Foo; use strict; use warnings; sub new { my $class = shift; return bless { a => shift }, $class; } sub hoge { my $self = shift; return $self->{a}; } package main; use strict; use warnings; use feature 'say'; my $foo = Foo->new( 'hello.' ); say $foo->hoge(); # hello.
->演算子(アロー演算子)で呼び出すと第1引数にはオブジェクトが入っているので、そのオブジェクトを使ってメンバ変数を参照してるのがポイントです。
組み込み関数のrefを使うとこんなことが出来ます。
use strict; use warnings; use feature 'say'; my $array_ref = [ 0, 1, 2 ]; my $hash_ref = { a => 1, b => 2 }; my $obj = bless {}, 'MyClass'; say ref $array_ref; # ARRAY say ref $hash_ref; # HASH say ref $obj; # MyClass
ちなみに、リファレンスじゃないもの(数字, 文字列, 配列, ハッシュとか)を渡すと空文字列が返ってきます。(http://perldoc.jp/func/ref参照)
Scalar::Utilの出番ですね!
use strict; use warnings; use feature 'say'; use Scalar::Util 'blessed'; my $array_ref = [ 0, 1, 2 ]; my $hash_ref = { a => 1, b => 2 }; my $obj = bless {}, 'MyClass'; say blessed($array_ref) ? blessed($array_ref) : 'undef'; # undef say blessed($hash_ref) ? blessed($hash_ref) : 'undef'; # undef say blessed($obj) ? blessed($obj) : 'undef'; # MyClass
blessされたものじゃない場合はundefが返ってくるので、undefをそのままsayするわけにはいかず、undefの場合は'undef'という文字列を出力しています。これでblessされたものか判別できますね!
blessの第1引数にはリファレンスを渡すことになっていますが、もちろんハッシュリファレンス以外も渡せます。(Thanks! akiymさん)
use strict; use warnings; use feature 'say'; my $foo = bless [ 100, 101, 102 ], 'Foo'; say $foo->[0]; # 100 say $foo->[1]; # 101 say $foo->[2]; # 102 my $str = 'hello.'; my $bar = bless \$str, 'Bar'; say ${$bar}; # hello.
Scalar::Utilってコアモジュールなの?っていうときに便利なのが、corelistコマンド。Module::CoreListを入れると使えるそうです。(Thanks! aloelightさん)
$ corelist Scalar::Util Scalar::Util was first released with perl v5.7.3 $ corelist Module::CoreList Module::CoreList was first released with perl v5.8.9
という訳で、すでにv5.8.9からcorelistコマンドが使えるようですね!
毎月第3水曜日に、こんな感じの内容をみんなでわいわいやっております。もし興味があれば、ぜひ遊びに来てください!