オブジェクト指向perl

**nobodyさん** · 02/05/29 01:51

モジュールを作ろうとしているのですが、何か分かりやすい参考書
やサイトないですか？なかなか見つかりません。

◆unKo/nko · 02/05/29 04:57

今だ！２番ゲットォォｫｫ！！
￣￣￣￣￣∨￣￣￣￣￣￣
　　　 ∧∧　∧∧　ドドドドドド・・・・
　　　(ﾟДﾟ ,,) (ﾟДﾟ ,,)　　∧∧ 　　　　 (´´
　　 ⊂_⊂Ｖ⊂ ⊂ )⊂(ﾟДﾟ ,,)_／(´´
　　　　　Ｙ /⊃ | .Ｌ⊃∧∧∪ _⊃(´⌒(´
　　ドカ ∪∧∧J⊂(x _x⊂ノ(´⌒(´　　(´´
　ドカ　 ⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　ｽﾞｻﾞ・・・

**nobodyさん** · 02/05/29 05:54

>>1
他のオブジェクト指向言語の利用経験はあるの?

Perlのオブジェクト指向機能って変則的だから、オブジェクト指向の概
念がしっかりわかってないとツラいよ。もし経験が無いなら遠回りなよ
うでも一旦Ruby等の言語を使ってみる事をすすめる。

**nobodyさん** · 02/05/29 17:21

『オブジェクト指向Perlマスターコース』。
あと自分の作ろうとしてるモジュールが既にないか調べとけ。

1に質問書く単発スレうざい。

１ · 02/05/29 20:58

>>3
オブジェクト指向は初めてです。
はじめがperlなんで・・・
それにしても一旦rubyをやるとなると相当時間かかりますね。
それほど大変なんだろうな。ありがとうございます。

>>4
それ今日たまたま見た。6500円はちと高い。
作ろうとしているものが既にあるかどうか調べといてやるよ。

**nobodyさん** · 02/05/29 21:02

>>4
おまえさ、もっと普通に会話できんの？
アドバイスはありがたいんだけど、見てるとむかつくんだよ。
ガチンコじゃね～んだから、もっと普通にしろや。

4 · 02/05/29 21:25

1に質問書く単発スレうざい。
1に質問書く単発スレうざい。
1に質問書く単発スレうざい。

3回書けば判っていただけますか？
それと「調べといてやるよ」なんてバカみたいなことは一々宣言しないで結構です。
『Perlモジュール活用ガイド』はモジュール作るのにはあまり役に立たないが、
Chapter10のデバッグ関連の所は一通り見た方がいい。

**nobodyさん** · 02/05/29 22:18

1はオブジェクト指向したいわけじゃなくて、単にモジュールが作りたいだけか?
それなら手持ちの入門書で「モジュールを作る」あたりを読めば簡単。

**nobodyさん** · 02/05/30 01:26

もういいから Ruby 使いなさい。

1 · 02/05/30 02:00

>>8
どちらもです。

**nobodyさん** · 02/05/30 07:17

>>10
まずはオブジェクト指向してないモジュールを書くとこから始めれ。
$obj->method()形式で呼び出せないとカッコ悪いと思ってるかもしれな
いけど、全然そんな事ないから気にするな。

あと、オブジェクト指向ってのは見通しのよいプログラムをデザインす
るための大量の思想・概念・道具類・センス等の寄せ集めだから、文法
憶えてハイ修得ってわけにはいかない。生涯かけて学んでゆく規模だか
ら、数種類の言語を学ぶぐらいは当然。で、Perlでオブジェクト指向を
学ぶのは遠回りだ。時間浪費する事になるよ。

**nobodyさん** · 02/05/30 16:09

SocketモジュールとIO::Socketモジュールの違いみたいなもんか。

**nobodyさん** · 02/05/31 17:01

>>11
オブジェクト指向自体はそんなことめざしてません。

1 · 02/06/01 01:25

>>11
とりあえずオブジェクト指向していないモジュール（つうか
自作のサブルーチンを集めたようなもの）はいろいろ作ったり
してます。いろいろ作っていくうちCGI_Lite等のようなものを
作りたくなった、というのもオブジェクト指向を勉強してみた
いと思った要因でもあります。
まずは「オブジェクト指向」というものはどんなものか？
ということから理解しないとだめなんすね？それにはrubyをまず
してみろと・・・長い道のりになりそうだけどがんばってみます。
アドバイスありがとうございます。

02/06/01 19:57

4は普通だと思うが・・・
ずいぶん、甘い板になったな。
初心者スレでCGIに関する質問もずいぶん多くなったし

**nobodyさん** · 02/06/03 00:17

>15 そだねー。
おれなんか初心者スレに質問書いた時、回答が「基礎からやりなおせ」だけだった時があったからね。
答えるのがあたりまえとは思ってないけど、答えるんなら、も少し情報くれてもいいのにとは思った。

**use IO::Socket;** · 02/07/01 12:34

駄スレ再利用計画
ここをオブジェクト指向Perl講座にしてみよう

**use IO::Socket** · 02/07/01 12:39

クラス作るまで

1.クラスの生成
{ package ClassA;
}

2.コンストラクタ
メソッド名はなんでもいいが一般的にはnew
{ package ClassA;
sub new {}
}

3.コンストラクタ実装
ClassAのオブジェクトを返すには、自分のアドレスとデータメンバの入った
無名ハッシュをblessする

{ package ClassA;
sub new {
my $class = shift;
my $hash = {
data1 => shift,
data2 => shift,
data3 => shift
};
bless( %hash, $class );
}
}

4.あとは適当にメソッドなど追加する。以上

**use IO::Socket** · 02/07/01 12:48

オブジェクト

1.オブジェクトの生成
$obj1 = ClassA -> new( $data1, $data2, $data3 );

「ClassA ->」は第一引数にClassAへの参照が入る。
よって@_は( ClassA, $data1, $data2, $data3 )となる。

2.オブジェクトの使用
1.で$objにClassAのオブジェクトが入っているのでこれを利用する。
$retvalue = $obj -> Method1();
もし、Method1がClassBのオブジェクトを返し、Method2がClassBに属する（以下略）なら
$retvalue = $obj -> Method1() -> Method2() -> Method3() ...;
と続けて出来る。これぞオブジェクト指向。

**nobodyさん** · 02/07/01 14:52

無意味で分りにくい解説禁止。

**nobodyさん** · 02/07/03 10:50

ﾊｧ？

**ぺるにゃん** · 02/07/18 02:36

まず Perl 以外のオブジェクト指向言語に触れてから、
Perl に戻ってきた方が理解が早いと思うにゃ。
だまされたと思って、Java とかやってみて。

**nobodyさん** · 02/07/18 09:32

形無し言語でクラスとか多様とか言われてもぴんとこない・・・。
全部元クラスじゃんみたいな。

**nobodyさん** · 02/07/18 15:03

>>17-19
こんな抽象的な説明でオブジェクト指向を理解できる初心者がいたら凄いな・・・

**nobodyさん** · 02/07/18 20:22

>>23
キミのもっている「形無し言語」の定義と、
世間一般の「形無し言語」の定義は違うぞ。

**初期不良** · 02/07/18 22:48

おりゃPerlモジュール活用ガイドを読んでモジュール作ったけどね、
継承のためにこんなコンストラクタ作らなきゃならんのは
どうかと思う罠。Perl6 だとどうなるのか知らんけど。
sub new{
my $param = shift;
my $class = ref($param) || $param;
my $obj = {};
bless($obj, $class);
return $obj;
}

**nobodyさん** · 02/07/19 02:00

>>26
$obj->new(...);
ってのを許すのはあまり好ましくないと言ってみる

**初期不良** · 02/07/19 03:49

>>27
継承でそれが必要なんだとさ

**初期不良** · 02/07/19 03:52

>>27
しかもこれの事をクローニングとか逝ってたしｗ
値をきちんとコピーする clone メソッドは別に作ったよ。
ろくに使わんけどなー

**nobodyさん** · 02/07/19 08:51

>>28
継承で必要なのは第一引数でblessすることなんだけど…。
その本がダメなだけじゃないの？

**初期不良** · 02/07/19 13:22

>>30
すまん俺の勘違いだったみたい。
継承のために必要というわけじゃないらしい。
てっきりスーパークラスのコンストラクタを呼び出すときに
そうなってしまうというのかと思ってた。

サブクラスでコンストラクタをオーバーライドしなかった場合
スーパークラスのコンストラクタが呼ばれなきゃならんけど
下の文法だとそれが行われないって問題だけみたい。
Subclass->new(); #OK
new Subclass; #NG

**nobodyさん** · 02/07/19 15:22

>>31
ﾃﾞﾏ流すなよ。。。

#!perl
my @obj;
push @obj, Super->new();
push @obj, Subclass->new();
push @obj, new Subclass;
for my $obj (@obj) {
　　　$obj->compute();
}
exit;

package Super;
sub new {
　　　my $class = shift;
　　　my $self = bless {
　　　　　　message => 'Hello World!'
　　　}, $class;
　　　$self->init();
　　　return $self;
}

sub init {
　　　my $self = shift;
　　　print $self->{message}, "\n";
}

sub compute {
　　　my $self = shift;
　　　print scalar(localtime), "\n";
}

package Subclass;
use base 'Super';
sub compute {
　　　my $self = shift;
　　　print scalar(gmtime), "\n";
}

**初期不良** · 02/07/19 19:14

>>32
スマソ
確認しなかった俺が悪かった。
perl5004 とか収録している本だからかな？
new Subclass の構文は失敗する、と
258 ページにはっきりと書いてある。

◆JAPH9PWA · 02/07/19 21:21

>>33
Perl5.003をベースにしたプログラミングＰｅｒｌ改正版でも、
new Subclassに問題があるようには読めないなぁ。
その本の作者、またはキミが激しく勘違いしていることは間違いないね。

**初期不良** · 02/07/19 23:00

>>34
33 に書き忘れたけど完全に同意してるんで許して

**nobodyさん** · 02/11/21 12:09

オブジェクト指向言語を勉強したいんですけど
どこか初心者用の解説サイトみたいなとこしらないっすか

**nobodyさん** · 02/11/21 12:11

ってゆうか言葉とかも全然っす
メソッドって？クラスって？てな感じです

ちなみにC言語とかはそこそこ使えます

**nobodyさん** · 02/11/21 12:33

>>37
んじゃ勉強すれ
ＪＡＶＡの本なんかにみんないろんな方法でかいてあるよ、電気スタンドとか
コーヒーに例えて（わら
それがまたややこしいんだってことに気付かない著者ってステキだがな。

**nobodyさん** · 02/11/21 12:35

>>38
その為のサイト教えてくれー

**nobodyさん** · 02/11/21 12:45

JAVEは、オブジェクト＝インスタンスだよね
Perlでも同じ？

**nobodyさん** · 02/11/21 15:14

>>39
Perlオブジェクト指向
ttp://www.pure.ne.jp/~learner/program/Perl_oo.html
ざっと見てみたけど、いいサイトだと思う。
>>40
Perlでは、オブジェクト＝インスタンス＝ブレスされたハッシュ
Perlでは、クラス＝モジュール＋OO構文

**bloom** · 02/11/21 16:41

http://www.agemasukudasai.com/bloom/

**nobodyさん** · 02/11/21 18:05

>>41
ありがとう

**nobodyさん** · 02/11/21 22:57

#それぞれ一回ずつhogeと表示させたいのですが、
#どうすればいいか分かりません。教えてください。

my $b = new a();
print 'nothing';
$b->nothing();# hoge
print 'read';
$b->read();# hoge

package a;

sub new {
my $this = shift;
my $self = {};
bless $self, $this;
return $self;
}

sub read {
my $self = shift;
print "hoge\n";
}

AUTOLOAD {
my $self = shift;
$self->read();
}

**nobodyさん** · 02/11/22 04:39

助けてー

**nobodyさん** · 02/11/22 12:58

メソッド呼ぶたびに二回表示されるのは何故なのですか？
お願いです、教えてくださいです。

**nobodyさん** · 02/11/22 14:00

>>44
DESTROY がよばれてる?

**nobodyさん** · 02/11/23 11:22

>>>>>>>>>47
直ったああああああああああありがとう!!

**nobodyさん** · 02/11/23 12:20

**nobodyさん** · 02/11/24 06:31

get()って何する関数ですか？

出来れば詳しく解説してるサイトも教えてもらえるとうれしです。

**nobodyさん** · 02/11/24 06:38

>>50
自己解決しますた。すいません

**nobodyさん** · 02/11/24 13:56

usestrickについて詳しいトコおせーてくだせー

**nobodyさん** · 02/11/24 15:33

>>52
まさかとは思うが、もしかして、
use strict;
のことを言いたいのか？

**nobodyさん** · 02/11/25 00:03

良いスレじゃないか。
ちなみに俺は↓でPerlのモジュールを学んだ。
http://www.melma.com/mag/85/m00014785/

**nobodyさん** · 02/11/29 01:20

上のサイトでも紹介されてるけど
「オブジェクト指向Perlマスターコース」
は良い本だと思う。(個人的に一番)
だから誰か中古で買って。
会社の倉庫に眠ってた(新品同様)のを貰ったんだけど
以前個人的に買ったからダブってるんだよ。

**nobodyさん** · 02/11/29 11:18

>>52
use strict;
はプラグマというものでコンパイラにヒントを与えるものだ。
慣習としてuseする際に大文字から始まるものはモジュールで
小文字から始まるものはプラグマらしい。

**山崎渉** · 03/01/15 13:43

（＾＾）

**山崎渉** · 03/04/17 12:27

（＾＾）

**山崎渉** · 03/04/20 06:05

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

**山崎渉** · 03/05/22 02:09

━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

**山崎渉** · 03/05/28 17:16

　　　　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾）＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

**山崎渉** · 03/07/15 11:17

　__∧＿∧_
　|（　　＾＾）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

**山崎渉** · 03/08/02 02:34

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

**nobodyさん** · 03/08/09 10:54

いろいろperlでCGI書いてます。
多言語の経験はなくフリーの物を改造からはじめて独学２年、perlのみです。
で、オブジェクト指向を勉強したいと思っています。
本は「初めての～」「プログラミングperl」「CGIプログラミング」
「入門perlDBI」「EfectivePerl」などを読みました。
以下、僕が良く作っているスクリプトの構造ですが、これをオブジェクト指向で組み立てるとどんなふうになるんでしょうか。
なんとなく本を読んでいてぼんやりとイメージが掴めかけていますが、では
実際自分が書いているものが、オブジェクト指向だとどんな風になって
どんなメリットがあるのか、が具体的に見えてきません。
どなたかわかりやすく教えて下さいませんか？

＃おこられたので二つに分けます。

64 · 03/08/09 10:54

######
&main();
exit;
sub main{
if($mode eq 'view'){&view}
elsif($mode eq 'form'{&form}
elsif($mode eq 'regist'{®ist}
elsif($mode eq 'delete'{&delete}
}

sub view{
# 閲覧表示
}
sub form{
# フォーム表示
}
sub regist{
# データ書き込み
}
sub delete{
# データ削除
}
######

宜しくお願いします。

**nobodyさん** · 03/08/09 14:56

>>64
おまえみたいな、甘えきった質問する奴は叩かれること必至ですが？

**nobodyさん** · 03/08/09 17:39

>>64

俺も同感。

>>66

なんで？至極全うな質問だと思うけど。

**nobodyさん** · 03/08/09 17:40

>>6が一番芝居クサい。

**nobodyさん** · 03/08/09 22:12

>>64-65
最終的にif文からは逃げられない。せいぜいその部分を外に出すだけ。
そのあと機能ごとに同じ名前のメソッドを作ってポリモフィズム。
メリットはmainのソースをいじらなくてすむことかな。

package main;
my $app = FooBar::Factory->func($mode);
$app->run;
exit;

package FooBar::Factory;
use base 'FooBar';
sub func {
my ($mode) = @_;
if ($mode eq 'view') {
return FooBar::View->new;
} elsif ($mode eq 'Regist') {
return FooBar::Regist->new;
}
return FooBar->new;
}
package FooBar;
sub new { ref $_[0] ? ref $_[0] : $_[0] }
sub run {
my $self = shift;
$self->doing;
$self->output;
}
package FooBar::View;
use base 'FooBar'; sub doing { ... } sub output { ... }
package FooBar::Regist;
use base 'FooBar'; sub doing { ... } sub output { ... }

69 · 03/08/09 22:13

use書くの忘れたけどその辺は想像で補って

**nobodyさん** · 03/08/10 09:38

>>69
ありがとうございます。
昨日「オブジェクト指向perlマスターコース」買ってきて読み始めましたが、
まだ言葉の意味から探っている段階です。
書いて頂いたもの、僕が出した例の「条件分岐によるサブルーチンの振り分け」
のその上に「オブジェクト指向」という概念、というかレイヤーをもうひとつ
かぶせている、という事でしょうか。

オブジェクト指向でプログラムを構築する、と言うのはある程度の規模でこそ
メリットが発揮される、というように感じますがどうなんでしょう。

今書いているものは2000行程ですが行の半分はHTML展開部分です。
で、進め方は設計の概略は最初に考えるものの細かな部分を含め、
どうしてもボトムアップな進め方になってしまってます。
こんな進め方は「オブジェクト指向」なプログラムには向かないような気がしています。
もっとトップダウンで進める、というか、初期の設計段階にもっと時間を
かける、というか。
僕が書いたやり方だとプログラムの構造が「フラット」な気がします。対して
書いて頂いたものはもっと「階層構造的」なきがします。
「フラット」なものは全体が煩雑になりがちですが、でもどうにでもいじくれます。
でも書いた本人以外にはわかり難い物になるでしょうね。
でも「階層構造的」なものは一部分の変更は容易で他の人にもプログラムの
全体構造はわかりやすいでしょうが、逆に言うといじくれる範囲が限定されてくる。
その分全体構造なり仕様を設計初期である程度明確にする必要がある、様な気がします。

> メリットはmainのソースをいじらなくてすむことかな。
これは僕が書いたやり方でもプログラムの構造が変わらない限り、同じだと
思うのですが、そういうことではない、という事ですか？

**nobodyさん** · 03/08/10 16:17

>>71
オブジェクト指向はしっかりとした設計を先に練らないと役に立たないし、
そうしないと後から後からやってくる仕様変更に耐えられません。
（そうしたいい加減な設計に振り回された人達が
「オブジェクト指向は実践では役に立たない」と広める結果に）
だから何かを作る時に、プログラミングは最後の段階というか、
あとは予定通りにコードを書けば完成、というくらいになるまで書かない方がいいと思う。
ってそれが出来たら苦労しないんだけど。

> これは僕が書いたやり方でもプログラムの構造が変わらない限り、同じだと
> 思うのですが、そういうことではない、という事ですか？

コードは一つのファイルに全てを書かずに、モジュールに分割してください。
オブジェクト指向だろうがなんだろうが、綺麗なソースは変更点が少なくてすみます。

あとこれは嫌味ではなく、一度別のオブジェクト指向の言語に触れておいた方がいいです。
その方が理解が速い。Perlは独特だから。

71 · 03/08/10 17:33

>>72
ありがとうございます。
なるほど、やっぱりある程度の規模で今までより大きなプログラムの
設計概念から入れ、それでこそ生きる手法、って事でしょうか。

今、ある組織のサイトの為にperlで書いたCGIスクリプトが三つあるんです。
ひとつは主要なデータを抽出して対外的にアナウンスを出すもの。
二つ目は組織の各部署を統合しながらスケジュール管理するもの。
三つ目は活動記録などをリクエストされた形態で表示するものです。

三つはもともとその時その時の必要に応じて書いたもので、
もちろんデータも別に持っているのですが、ここに来て同じようなデータを
持っていたり、あるいはちょっと加工することでデータやルーチンを共有
した方が効率的だ、何とかならないかな、と思っていました。

こういう要求には「オブジェクト指向」って役に立ちそうですね。
もっと勉強しなければなりませんが、勉強するモチベーションはあがりそうです。

>一度別のオブジェクト指向の言語に触れておいた方がいいです。
これはよく聞きます。
まあもともとperl自体がオブジェクト指向を念頭に設計されてない、って事でしょうね。
オブジェクト指向、とは別にある方からJAVA勉強すれば、といわれているのです。
とりあえず今のところperlに一所懸命なものでなかなか手につかないのですが、
zdnetやらatmarkitやら暇を見つけてはJAVAについての記述を読んだりしていますが
なかなか難しいです。
どうしてもWEB関連での開発ということになるので、まずテスト環境から構築しなければならないですし。

ありがとうございました。
このスレももっと動いて欲しいですね。

**nobodyさん** · 03/08/11 02:19

う～ん　いいやり取りだ。勉強になった。

**山崎渉** · 03/08/15 22:39

　　　 (⌒V⌒)
　　　│ ＾＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

71 · 03/08/28 12:36

「オブジェクト指向Perlマスターコース」読みましたが、
結局いきなりオブジェクト指向なコーディングに入っても、
やっぱり漠然としてるもんで、atmarkitで、
「ここから始めるオブジェクト指向」、と「初歩のＵＭＬ」読んでます。

なんとなく漠然としてた物がはっきりしてきたような。
本職設計業では良くある具現化手法なのでとっつきやすいし、
イメージつかみ安いですね。

**nobodyさん** · 04/01/10 06:31

Perlのオブジェクト指向ってのはなんか妙に泥臭くないか？
慣れの問題かもしれんがかなり変則的な書き方してる気もする。
Perl6をとりあえず、待ってみる。もう少し他の言語のOOPに近づいてほしい。
今はとりあえず、利用する側として勉強するにとどめます。

**nobodyさん** · 04/08/26 15:36

VBしか使ったことの無い漏れに矢印だらけのPerlは不可解です。

**nobodyさん** · 05/02/03 03:22:49

漏れはPerlがメインなのだが、VBは、Dictionaryだっけ？あれにひるんだ。

**nobodyさん** · 05/02/20 13:47:57

Delphiのみちょっとかじった事がある程度です。

delphiでいうclassの、プロパティ及びメソッドへのアクセスは全て「.」でした。
perlだと「->」と言う風に認識していました。

ところが最近見たソースで（今手元に無いのですが）、
perlのパッケージ(classと同義？)内の関数を
　&パッケージ名'関数名(引数)

と言う形で使っているものがありました。
ソースを見た限りでは、なんとなくclassをインスタンス化せずに
関数を使っている場合に「'」を使用しているように見えるのですが、
この認識は間違っていないでしょうか？

->
'
::

の違いが良く判りません。。
こういう記号ってgoogleだと検索できないし…

**nobodyさん** · 05/02/20 14:30:53

' ≒ ::

**nobodyさん** · 05/02/20 14:47:41

(^-^::)->

**nobodyさん** · 05/02/20 17:58:25

≒ってどういう意味だっけ

**nobodyさん** · 05/02/21 11:26:28

大体等しい

**nobodyさん** · 05/02/22 05:38:41

「オブジェクト指向Perlマスターコース」は良い本だ。
OOPじゃないPerlの解説も親切でわかりやすい。
俺はラクダ本を読んだことがないのでこれを読んでようやくlocalとmyの違いがわかった。
一般書籍レベルの解説書にはそれぞれの変数の振る舞いについては欠かれていたが、
本質的な定義について理解できたのは偏にこの本のお陰だ。
ちょっとでもOOPに興味があったら買うべし。

>>80
それはPerl4の頃の仕様じゃないか？
昔は名前空間の定義が曖昧だったためにパッケージ変数にアクセスするときに
「$パッケージ名'型グロブ」としていたときのものと思われる。
互換性を保つためにPerl5でもそれが読めるようだが、本質的にPerlオブジェクトは
＄スカラにオブジェクトへのリファレンスを格納して->でデリファレンスするので
オブジェクトメソッドにアクセスするには->を使う。
ちなみに::はPerl5以降での名前空間の参照に用いる。

これでわかるか？てか合ってるかな？

80 · 05/02/23 00:20:16

>>85
ありがとうございます。
違いが良く判りましたです。

85 · 05/02/23 02:16:19

微妙に間違い。
×「$パッケージ名'型グロブ」
○「＊パッケージ名'型グロブ」
たまに配布版掲示板CGIなんかでjcode.plをこの方法で使っているのを見かける。

わかったなら良かったよ・・・。

**nobodyさん** · 2005/04/11(月) 20:39:48

ちょっと言い方がおかしいかもしれませんが…

$class = new Class;として、
$class->func(...); と Class::func($class, ...); はほぼ同じときいたので、
ちょっと汚く見えますけどClass::func($class, ...);と書いても問題はないのでしょうか。

Class::func()のほうはただサブルーチンを呼び出しているだけなので
$class->func()より速いという結果になりました（当たり前ですけど…）。

$classが何のオブジェクトか分からない場合は->演算子を使うのですが、
$classが必ず"Class"のオブジェクトでしかありえない場合では普通に呼び出したいと思うことがあります。

**nobodyさん** · 2005/04/11(月) 20:43:51

ええけつしとるのぉ(*´Д`)ﾊｧﾊｧ
http://192.168.0.5/
http://192.168.0.5/~ss.jpg
http://kouichi/
http://kouichi/~ss.jpg

**nobodyさん** · 2005/04/13(水) 02:23:33

>>88
そうでなく、静的かインスタンスかで理解したほうが。
コンストラクタでblessした$selfなんかの値は使えないよ。

**nobodyさん** · 2005/04/18(月) 17:58:39

>>90
遅れてすみません。
Class::func("Class",...);はいいけどClass::func($class,...);は駄目ということですよね。
(あまり理解できていないような気がします、ちょっと不安…)
ありがとうございました。

**nobodyさん** · 2005/05/29(日) 01:27:45

@ISA を直接いじらず use base するメリットってなんでしょうか。

**nobodyさん** · 2005/05/29(日) 16:52:06

Perl5でOOPするのに良いモジュール無いかと思って検索してみたら
Class::HPLOOという便利な奴があるみたいですが、
皆さんは何を使ってますか？

ちなみにここを参考にしました。
http://naoya.dyndns.org/~naoya/mt/archives/000870.html

**nobodyさん** · 2005/06/27(月) 15:05:43

パッケージをつかわずにOOPてか
クロージャとハッシュと無名関数だけでOOPを実装。
インスタンス、カプセル化、継承、多態性が実装されてるからOOPだよね。

sub String_new{
my $value = shift;
my $self;
$self = {
set => sub{$value=$_[0]},
value => sub{$value},
};
}
sub String2_new{
my $base = String_new(@_);
my $self;
$self = {
%$base,
set => sub{my$str=$self->{value}();$base->{set}($_[0]);$str},
length => sub{length $self->{value}()},
}
}
$s1 = String_new('abcde');
$s2 = String2_new('1234567');
print $s1->{value}(),"\n";
print $s1->{set}('wxyz'),"\n";
print $s1->{value}(),"\n";
print $s2->{value}(),"\n";
print $s2->{set}('890'),"\n";
print $s2->{value}(),"\n";
print $s2->{length}(),"\n";

**nobodyさん** · 2005/06/29(水) 05:34:38

perlで一番つかわれてるフレームワークってなに？

**山碕渉** · 2005/07/05(火) 00:52:32

　　　　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾）＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山碕渉

**nobodyさん** · 2005/12/17(土) 00:54:36

もうperl5 oopは死んだのですか？

**nobodyさん** · 2005/12/17(土) 05:11:53

勝手に殺すな

**nobodyさん** · 2005/12/17(土) 15:31:32

いやあ、このスレが死んでいたので･･･

**nobodyさん** · 2005/12/29(木) 17:34:47

getメソッドで受け取った値を、Parser.pmモジュールの_parse_query関数で受け
取って解析したあと、解析した値を他のモジュールから呼び出すにはどういう記述
をすれば良いですか？

**nobodyさん** · 2005/12/29(木) 17:35:40

ちなみに、Parser.pmはこんな感じです↓

package Common::Parser;

sub new {
my $class = shift;

my $self = {
query => undef
};

bless $self, $class;

if ($ENV{'CONTENT_LENGTH'} or $ENV{'QUERY_STRING'}) {
$self->{query} = $self->_parse_query;
}
}

**nobodyさん** · 2005/12/29(木) 17:36:58

sub _parse_query {
my $self = shift;

my ($data, $query);

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $data, $ENV{'CONTENT_LENGTH'});
} else {
$data = $ENV{'QUERY_STRING'};
}

foreach (split(/&/, $data)) {
my ($name, $value) = split(/=/);

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C', hex($1))/eg;

$query->{$name} = $value;
}
}

1;

**nobodyさん** · 2005/12/29(木) 18:21:13

getter書く。

というかCGI.pm使えば？

**nobodyさん** · 2005/12/30(金) 09:29:38

自分で parse すんなよｗ

**nobodyさん** · 2005/12/30(金) 13:18:26

お二人様の言う事が暗号みたいでいまいち理解できませんが、なんとか
頑張ってみたいと思います。
解答ありがとうございました！

**nobodyさん** · 2005/12/30(金) 13:58:41

なんどもすみません；；
>>101のように、コンストラクタの中に

if ($ENV{'CONTENT_LENGTH'} or $ENV{'QUERY_STRING'}) {
　　　$self->{query} = $self->_parse_query;
}

のように、本来のコンストラクタの仕事である関連付け以外の処理をさせても良いのですか？

**nobodyさん** · 2005/12/30(金) 18:10:38

良いも悪いもねーよ

PerlでのOOの勉強目的でやってんならCPANモジュールの中身見て
どんなことをやってるか参考にしたらいいよ

**nobodyさん** · 2006/01/01(日) 16:23:29

過疎ってるなぁ

**nobodyさん** · 2006/04/24(月) 03:56:56

かそあげ

**nobodyさん** · 2006/05/07(日) 21:19:51

保守

**nobodyさん** · 2006/05/21(日) 05:12:37

実際のところ、Perlでのオブジェクト指向を学ぶには
書籍以外に何を見たらいいの？
自分はCGIのためにPerl始めたんだが
そこらで配布されてるCGIにオブジェクト指向が取り入れられてる例を見たことがない。

適材適所とは思うけど、小規模なスクリプトだからってオブジェクト指向ｲﾗﾈってことも
ないと思うんだけど・・・
身近で、興味が持てる例があれば理解の助けになると思うのに
それともフリー配布のCGIに教材的な面を望むのが無謀なのか。

**nobodyさん** · 2006/05/21(日) 07:06:33

>111
まず最初に、その検索能力の無さをなんとかしろよ

**nobodyさん** · 2006/05/21(日) 08:38:29

わかった

**nobodyさん** · 2006/05/21(日) 08:48:25

またスレストか

**112** · 2006/05/21(日) 12:27:40

>113,111
しょーがねーな
なんか反応が素直だからいくつかURL貼ってやるよ
ttp://serennz.cool.ne.jp/sblog/
ttp://apps.cside.com/
あとはここで好きなだけ探せ
ttp://search.cpan.org/

**nobodyさん** · 2006/05/21(日) 17:04:31

>>115
ありがとう。がんばる。

**nobodyさん** · 2006/05/21(日) 17:10:48

>>115
sb のサクーシャ？
なんか、汚い書き方多くて見る気がしないぽ。

**112** · 2006/05/21(日) 18:49:49

>117
俺は
>そこらで配布されてるCGIにオブジェクト指向が取り入れられてる例
を紹介しただけ。
綺麗な書き方のはお前さんにまかせた。

**nobodyさん** · 2006/05/21(日) 18:58:38

>>118
そんな無責任な態度でいいもんかね？

**nobodyさん** · 2006/05/21(日) 21:26:43

許す

**nobodyさん** · 2006/08/09(水) 14:48:38

>>115
＞# 2.00a [2004/11/17] generated ... oh, it's my birthday.
痛いコメントﾊｹｰﾝ

**nobodyさん** · 2006/08/19(土) 14:23:39

>121
作者の誕生日にはわざわざお知らせを出すようになってる
もっと痛いスクリプトも世の中にはあるぞ。
オブジェクト指向は取り入れられてないからこのスレには書かないが。

**nobodyさん** · 2006/08/20(日) 00:59:39

> 作者の誕生日にはわざわざお知らせを出すようになってる
> もっと痛いスクリプトも世の中にはあるぞ。
> オブジェクト指向は取り入れられてないからこのスレには書かないが。

存在を知らせる必要すらなくね？

**nobodyさん** · 2006/08/20(日) 23:14:02

>>122
それ和みスレで見たことある

**nobodyさん** · 2008/01/20(日) 12:39:36

久しぶりにageてみる。

**nobodyさん** · 2009/07/02(木) 00:20:51

最近Perlのオブジェクト指向勉強しだした
サブルーチンにリファレンスでぐちゃぐちゃだったコードがすっきりした
単純にうれしい

?PLT(12079) · 2012/09/30(日) 17:38:58.16

　　∧＿∧
　（　・∀・）　　　 |　| ｶﾞｶﾞｯ
　と　　　　）　　　 |　|
　　Ｙ　/ノ　　　　 .人
　　　 /　） .人　　 < 　>_∧∩
　＿/し'　< 　>_∧∩｀Д´）/
　（＿フ彡　Ｖ｀Д´）/　　 / ←>>63
　　　　　　　　　　/ ←>>59

**nobodyさん** · 2013/08/15(木) NY:AN:NY.AN

$obj = $class->new(@_);