فئة :: AutoDB. استجواب الكائنات التلقائية تقريبا التعايش مع قاعدة البيانات الهندسية
التحميل الان

فئة :: AutoDB. الترتيب والملخص

فئة :: AutoDB. العلامات

الوحدة النمطية بيرل بيرل يعارض إصرار ثبات الكائن قاعدة بيانات الهندسة البشرية

فئة :: AutoDB. وصف

تقريبا مثابر الكائنات التلقائية التعايش مع قاعدة البيانات الهندسية Class :: AutoDB هو وحدة بيرل تعمل عن كثب مع الفصل :: Autoclass لتوفير استمرار الكائنات الشفافة تقريبا التي يمكن أن تتعايش مع قاعدة بيانات هندسية للإنسان. توفر آلية الثبات التلقائي السنانير لتوصيل جزأين من قاعدة البيانات معا. استخدم قاعدة QW (فئة :: Autoclass)؛ استخدام vars qw (@ auto_attributes autodb)؛ @ auto_Attributes = qw (اسم أصدقاء الهوية الجنسية)؛ AutoDB = (Collection => 'الشخص'، مفاتيح => QQ (سلسلة الاسم، سلسلة الجنس، عدد صحيح الهوية))؛ فئة :: Autoclass :: إعلان؛ ################################## # كود يستخدم فئة مستمرة # خلق وتخزينها كائنات جديدة # استخدام الفئة :: AutoDB؛ استخدام الشخص بلدي $ AutoDB = فئة جديدة :: AutoDB (قاعدة البيانات => "اختبار")؛ # قاعدة البيانات المفتوحة # جعل بعض الكائنات. لم يتم تخزينها بعد في قاعدة البيانات بلدي $ Joe = شخص جديد (الاسم => 'Joe'، الجنس => 'M'، ID => 1)؛ My Mary $ = شخص جديد (الاسم => "Mary"، الجنس => 'F'، ID => 2)؛ فاتورة $ = شخص جديد (الاسم => "فاتورة"، الجنس => 'M'، ID => 3)؛ # إعداد قوائم الأصدقاء. كل قائمة من شخصيات الشخص $ joe-> الأصدقاء ()؛ Mary-> Friends ()؛ فاتورة $-> الأصدقاء ()؛ # تخزين الكائنات في قاعدة البيانات $ autodb-> put_objects؛ # استرداد الكائنات الحالية # استخدام الفئة :: AutoDB؛ استخدام الشخص بلدي $ AutoDB = فئة جديدة :: AutoDB (قاعدة البيانات => "اختبار")؛ # استرجاع قائمة الكائنات الخاصة بي @ الأشخاص = $ autodb-> get (collection => 'الشخص')؛ # الجميع بلدي الذكور = $ autodb-> الحصول على (جمع => 'شخص'، الجنس => 'm')؛ # فقط الأولاد # يفعلون شيئا مع الكائنات المستردة، على سبيل المثال، قوائم طباعة الأصدقاء للحصول على شخصي شخصي (Perserson) {my @ friend_names = الخريطة {$ _-> اسم} @ {$ شخص-> الأصدقاء}؛ طباعة $ شخص-> الاسم، "أصدقاء" fromed_names \ n "؛ } # استرجاع وكائنات العملية One-by-one my cursor $ = $ autodb-> find (collection => 'الشخص')؛ بينما (شخصيتي $ = $ cursor-> get_next) {# افعل ما تريد مع شخص $، على سبيل المثال، قائمة الأصدقاء الطباعة الخاص بي @ friend_names = خريطة {$ _-> اسم} @ {$ شخص-> الأصدقاء}؛ طباعة $ شخص-> الاسم، "أصدقاء" fromed_names \ n "؛ } # ربط الكائنات المستمرة تلقائيا مع الجداول المهندسة # تحتوي قاعدة البيانات على جداول هندسية للإنسان # قسم (ID INT، الاسم Varchar (255))، Empdept (EMP_ID INT، DEPT_ID INT) # هذا الاستعلام يسترجع أسماء أقسام Joe استخدم DBI ؛ بلدي dbh = $ autodb-> dbh؛ My Depts $ = $ dbh-> selectcol_arrayref (qq (حدد dept.name from dept، empdept، شخص حيث dept.id = empdept.dept_id و empdept.emp_id = person.id و person.name = 'joe'))؛ ######################## # ميزات جديدة في فيريون 1.20 # استرجاع الكائنات باستخدام SQL # على افتراض قاعدة البيانات المذكورة أعلاه (مع قسم الجداول المهندسة البشرية و Empdept)، # يسترجع هذا الاستعلام كائنات شخص للموظفين في قسم الألعاب بلدي @ Toy_Persons = $ AutoDB-> Get (SQL => QQ (حدد OID من قسم، Empdept ، شخص حيث DEPT.ID = EMPDEPT.DEPT_ID و EMPDEPT.EMP_ID = Person.ID و Dept.Name = "لعبة"))؛ # استرجاع جميع الكائنات بلدي @ all_objects = $ autodb-> الحصول عليها؛ # حذف الكائنات # $ autodb-> del (males)؛ # حذف متطلبات الأولاد: perl.

فئة :: AutoDB. برامج ذات صلة