DBIX :: OO. الترتيب والملخص
- رخصة:
- Perl Artistic License
- موقع ويب الناشر:
- http://search.cpan.org/~mishoo/DBIx-OO-v0.0.4/lib/DBIx/OO.pm
DBIX :: OO. العلامات
DBIX :: OO. وصف
DBIX :: OO هي قاعدة بيانات لإجرام كائنات بيرل. DBIX :: OO هو قاعدة بيانات ل Perl Objects Exptraction.synopsis Package MyDB؛ استخدم قاعدة "DBIX :: OO"؛ # نحن بحاجة إلى الكتابة فوق get_dbh لأنها وظيفة مجردة. # الطريقة التي تتصل بها DB هي حقا عملك؛ هذه الوظيفة # يجب إرجاع مقبض قاعدة البيانات. get_dbh الافتراضي () croaks. بلدي dbh $؛ sub get_dbh {$ dbh = dbi-> connect_cached ('dbi: mysql: اختبار "، المستخدم"، "passwd") إذا! حدد $ DBH؛ العودة $ dbh؛ } حزمة MYDB :: المستخدمون؛ استخدام قاعدة 'mydb'؛ __Package __-> الجدول ("المستخدمين")؛ __Package __-> الأعمدة (p => ، e => )؛ __Package __-> has_many (الصفحات => 'myDB :: الصفحات "،" المستخدم ")؛ حزمة MYDB :: الصفحات؛ استخدام قاعدة 'mydb'؛ __Package __-> الجدول ("الصفحات")؛ __Package __-> الأعمدة (p => ، e => )؛ __Package __-> has_a (user => 'mydb :: المستخدمون')؛ حزمة الرئيسية My $ u = mydb :: المستخدمون-> إنشاء ({id => userid '، first_name =>' q '، last_name =>' w '})؛ بلدي $ foo = mydb :: المستخدمون-> استرداد ('userid')؛ My BeTH = @ {$ foo-> fk_pages}؛ طباعة "مستخدم:"، $ foo-> first_name، ""، $ foo-> last_name، "الصفحات: n"؛ foreach (p) {print $ _-> العنوان، "n"؛ } $ foo-> first_name ('john')؛ $ foo-> last_name ('doe')؛ # أو $ foo-> set (first_name => 'john'، last_name => 'doe')؛ $ foo-> التحديث؛ متطلبات: perl.
DBIX :: OO. برامج ذات صلة