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

何故技術者は企画者に興味が無いのか

例えば私は現在の自社の企画の半分はいらないと考えている。それらをすべてエンジニアと交換できたらどれだけ幸せなことだろう。 企画の定義をしよう。ここので言う企画はwebディレクターを中心とした職種である …

no image

flicker of hope

TS380020 表題は何の関係もありません。 海の状況を見ようと誰もいない工業地帯の海岸を歩いていると「ババババッ」という音。空を見ると遠くにラジコン飛行機。工場の人が遊んでいるのかな。 ラジコン飛 …

no image

ままならぬ

ままならない一日。 予想できない動きの疲れが残って1ダメージ。 デスマーチ好きがデスマーチに飲み込まれる余波を食らって1ダメージ。 なにやら早速火の車のサブチームのお手伝いでひとつ仕組みを作ることに。 …

no image

junkmetal2発表!

という夢を見た。 たまーにBF2とかやるけど、やはり違う。 BF2はただのFPS。ROとかはただのMMO。MMOFPSはいまだにjunkmetalしかない。 はー BF2142にはbravo鯖の人たち …

no image

plagger

Firefox ああっ!ぜんぜんよめないっ! もう3000以上未読かぁ・・・feedpathだったころは、30件ぐらいに育つのを待ってからぽちっと開いて、がーっとスクロールして読んでいた。 こうすると …

第一精工の高速リサイクラーはすべての釣り人の必需品だと思っています。糸の巻き替え、巻き直しにこれが在るのと無いのでは天地の差があります!

シマノの防水クッションは、すべての時期で船釣りのオトモ。一番小さいサイズで大抵大丈夫です。冷えから守ってくれたり、エンジンの振動から守ってくれたり、寝るときに枕になります。

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