クラス:: autodb.

人工データベースと共存するほぼ自動オブジェクトの持続性
今すぐダウンロード

クラス:: autodb. ランキングとまとめ

広告

  • Rating:
  • ライセンス:
  • Perl Artistic License
  • 出版社名:
  • Nathan Goodman
  • 出版社のWebサイト:
  • http://search.cpan.org/natg/

クラス:: autodb. タグ


クラス:: autodb. 説明

人工化されたデータベースと共存するほぼ自動オブジェクトの持続性 Class :: AutoDBは、Class :: AutoClassと緊密に機能するPerlモジュールです。自動永続性メカニズムは、データベースの2つの部分を互いに接続するためのフックを、永続的クラス＃パッケージ人を定義するSyNopsis＃コード。基本QW（Class :: AutoClass）を使用してください。 VARS QW（@AUTO_ATTRIBUTES％AUTODB）を使用してください。 @ auto_attributes = QW（セックスIDの友達名）; ％autodb =（collection => 'person'、keys => qq（名前文字列、Sex String、ID整数））;クラス:: autoclass :: declare; ###########################################################＃create and store新しいオブジェクト＃クラス:: AUTODBを使用します。人を使う。 My $ AUTODB =新しいクラス:: AUTODB（データベース=>「テスト」）; ＃開くデータベース＃いくつかのオブジェクトを作成します。データベースにまだ保存されていませんMy $ JOE =新人（名前=> 'joe'、sex => 'm'、id => 1）;私の$ MARY =新人（名前=> 'Mary'、Sex => 'F'、ID => 2）。私の$ bill =新人（名前=> 'bill'、sex => 'm'、id => 3）。 ＃友達リストを設定します。それぞれがPerson Objects $ Joe-> Friends（）のリストです。 $ MARY->友達（）; $ Bill-> Friends（）; ＃データベース$ autodb-> put_objectsにオブジェクトを格納します。 ＃既存のオブジェクトを取得＃クラス:: AUTODBを使用します。人を使う。 My $ AUTODB =新しいクラス:: AUTODB（データベース=>「テスト」）; ＃オブジェクトのリストを取得するMy @ Persons = $ autodb-> get（collection => 'person'）。 ＃私の@ males = $ autodb-> get（collection => 'person'、sex => 'm'）; ＃ちょうど＃あるいは検索されたオブジェクトで何かをするたとえば、私の$ Person（@ persons）のための友達リストを印刷する（@ persons）{my @ friend_names = map {$ _-> name} @ {$ person->友達}}};印刷$ PERSON-> NAME、「友達は@friend_names n」; }＃オブジェクトを取得して処理するOny-One My $ CURSOR = $ AUTODB-> find（collection => 'person'）。 （My $ Person = $ cursor-> get_next）{＃は、$ PONSERで何をしたいです。たとえば、友達を印刷します。印刷$ PERSON-> NAME、「友達は@friend_names n」; ＃auto-persistentオブジェクトを操作したテーブルを接続する＃ASSUMEデータベースには、人間設計テーブル＃dept（ID INT、名前VARCHAR（255））、EMPDEPT（emp_id int、dept_id int）＃このクエリはJoeの部門の名前がDBIを使用します。 ; My $ DBH = $ AUTODB-> DBH; My $ DEPTS = $ DBH-> SELECTCOL_ARRAYREF（QQ（DEPT.ID = EMPDEPT.DEPT_ID、EMPDEPTEMP_ID = PERSON.IDとPERSON.NAME = 'JOE'））; #########################################################新機能1.20＃使用しているオブジェクトを取得する上記のデータベースを仮定して（人間の設計されたテーブル部門とEMPDEPT）、＃このクエリは玩具部門の従業員のための人物オブジェクトを取得しますMy @ TOY_PERSONS = $ AUTODB-> GET（SQL => QQ（DEPTからのOIDの選択、EMPDEPT） 、dept.id = empdept.dept_idとempdept.emp_id = person.idとdept.name = 'toy'）））; ＃すべてのオブジェクトを取得するMy @ ALL_OBJECTS = $ AUTODB-> GET; ＃オブジェクトを削除＃$ AUTODB-> DEL（@Males）; ＃男の子の要件を削除します。 ・Perl


クラス:: autodb. 関連ソフトウェア

私たちに関しては