matsutakegohan1's blog

matsutakegohan1(きゅーぞう)による、釣り、狩猟、技術?、セキュリティ?、その他の話

未分類

初めてのclass

投稿日:

初めてperlでclassを作ってみた。
内容はあんまり無い、phpで誰しも真っ先に作るclass。
配列にkeyとvalをぽんぽん入れて、出せて、毎回array_key_existsしなくて良い。
そんなclassはどう書くのか試してみた。

  1 #!/usr/local/bin/perl
  2
  3 package dataContainer;
  4 use strict;
  5 use warnings;
  6 use Data::Dumper;
  7 use Class::Struct;
  8
  9 struct( container => '%', ); # classのメンバ変数を宣言
 10
 11 sub init {
 12     my ($self) =@_;
 13     my %hash_ref;
 14     $self->container(\%hash_ref);
 15 }
 16
 17 sub set {
 18     my ($self,$key,$val) =@_;
 19     ${%{$self->container}}{$key} = $val;
 20     return 1;
 21 }
 22
 23 sub get {
 24     my ($self,$key) = @_;
 25     my %hash_ref = %{$self->container};
 26     return $hash_ref{$key} if exists $hash_ref{$key};
 27 }
 28
 29 package Main;
 30
 31 my $obj  = new dataContainer; # constructor
 32 my $obj2 = new dataContainer; # constructor
 33
 34 $obj->init();
 35 $obj2->init();
 36
 37 print "================================\n";
 38 $obj->set('hoge', 'moge');
 39 $obj->set('hoge1', 'moge1');
 40 $obj2->set('agg', 'hagehaghe');
 41 $obj2->set('iya', 'sorehanai');
 42
 43 # DEBUG
 44 #my @hoge = ( %{$obj->container} );
 45 #my $dumper = new Data::Dumper(\@hoge);
 46 #print $dumper->Dump();
 47
 48 print $obj->get('hoge'). "\n";
 49 print $obj->get('hoge1'). "\n";
 50 print $obj2->get('iya'). "\n";
 51 print $obj2->get('naiyo'). "\n";
 52
 53 1;

きもいようきもいよう。
コード貼り付けにVOXは向いてませんね。
やはりはてなでしょうか。

何でキモイと思うのでしょう。

  • Class::Structを利用するとコンストラクタが使えない?ので毎回initが必要?マジで?コンストラクタ使いたいよ。
  • メンバ変数containerはハッシュだってstructで宣言してるのにinitで必ずリファレンスと紐つけねばならない
  • 運命の19行。self->containerをハッシュにキャストして、それをスカラーにキャストして扱う。(これしかないの?マジで?)
  • 26行みたいな書き方はすげーいやだったのが段々快感に・・・
  • 値のdumpが面倒。
  • 引数のチェックは自前実装?(してないけど)
  • typoしまくる。(俺のせいか、テストハーネス早いうちに学ばないと。)
  • あああ、setでARRAYやHASHを入れる場合の考慮してないや、どう動くのかしら。

-未分類
-,

執筆者:


comment

メールアドレスが公開されることはありません。

関連記事

no image

本日快晴なれど風も強し

台風前はつれるんですけどね。_。 唐突に現在のタックルボックスさらし。 上から、一軍1、一軍2、二軍。 一軍は以下・タックルハウスのチューンド・タイドミノースリム125・BANZ・パカクラフトのコノハ …

no image

QotD:私のペット達

今まで何匹のペットを飼ったことがありますか?彼らの事を教えてください。 テト。今年14歳?いまだに機嫌がいいと走ったりする。偉い。

no image

戦場の絆

そげキングと呼んでもらってもかまわない。 なんだか狙撃手とリズムがあった。 ・常に右上のレーダーを見る・スコープを覗くのはいいとこ2秒以内。・のこのこまっすぐ歩いてるやつはとりあえず当てておく。・ジャ …

no image

Everything includes a concept

咳が止まらなくて眠れません、助けて。 表題は単純にエキサイト翻訳にかけてみたらちょっとかっこよくなっただけです。「すべてのものにはコンセプトがある」 そんなことを感覚としてはわかっていたものの、きちん …

no image

開幕はいつも荒海

1月終わりや2月はじめの大潮といえば、船橋では大きいのが釣れる。バチに着く前の第一陣を狙う。 風の便りを聞くともう湾奥まで2陣ぐらいまでは入っている模様。船橋は地形上一番北になる。ゆえに一番最後に群れ …

%d人のブロガーが「いいね」をつけました。