البيانات :: الغواص
التحميل الان

البيانات :: الغواص الترتيب والملخص

البيانات :: الغواص العلامات

الوحدة النمطية بيرل متداخل الهياكل سائق البيانات هياكل متداخلة

البيانات :: الغواص وصف

البيانات :: الغطاس هو وصول بسيط، مخصص للعناصر من الهياكل المتداخلة بعمق. البيانات :: الغواص هو وصولا بسيطا مخصصا لعناصر الهياكل المتداخلة بعمق.SummaryDATA: يوفر الغواص وظائف الغوص () والغطس () للوصول المخصص إلى عناصر من هياكل البيانات المتداخلة بعمق، و Diveref ( )، DiveError ()، DiveClear ()، و Divedie () دعم وظائف الدعم. استخدام البيانات :: غواص QW (Dive Diveref DiveError)؛ بلدي Root = {top => ،}،]،}؛ # تحدد قيمة $ إلى "نعم" # (جذر $ -> {top} {second} {key} {three} {} {}}): بلدي $ القيمة = الغوص ($ الجذر، qw (أعلى 1 المفتاح الثاني 3 ثلاثة موجود))؛ # يحدد قيمة $ إلى UNDEF () لأن "مفقود" غير موجود: $ القيمة = الغطس (جذر $، qw (أعلى 1 مفتاح ثانية 3 ثلاثة مفقود))؛ # يحدد قيمة $ إلى UNDEF () لأن # $ الجذر -> {top} {second} {key} هو خارج نهاية الصفيف: $ القيمة = الغوص ($ الجذر، QW (أعلى 1 ثانية مفتاح 4 ...))؛ # يحدد قيمة $ إلى UNDEF () لأن # $ الجذر -> {top} {key}} سيكون خطأ فادح: $ القيمة = الغوص ($ الجذر، qw (أعلى 1 مفتاح ثانية -5 ...)؛ # مجموعات $ المرجع إلى الجذر $ -> {top} {new} {sub} (الذي ينمو # @ {$ root -> {top}} و autovies اثنين من الخلاص المجهول): بلدي $ المرجع = diveref ($ الجذر ، QW (أعلى 9 فرعية جديدة))؛ # يموت () S لأن "الآخر" ليس رقما صالحا: $ المرجع = diveref ($ الجذر، qw (أعلى أخرى ...))؛ # هل: الجذر $ -> {num} {1} {2} = 3؛ # (Autovivifies Hashes على الرغم من المفاتيح الرقمية.) Diveval (Root $، (QW (NUM 12))) = 3؛ # نفس الشيء: $ {diveref (الجذر $، "الأسطوانات"، 1، 2)} = 3؛ # يسترجع أعلى القيمة، والقيمة $ = 3: $ value = diveval (جذر $، "الأسطوانات"، 1، 2)؛ # نفس الشيء: قيمة $ = $ {diveref ($ root، (qw (num 12)))}؛ # يحاول القيام به Root $ -> {top} {1} {1} وتموت # لأن $ الجذر -> {top} هو مرجع صفيف: Diveref ($ الجذر، 'الأعلى'، 1)؛ # إلى autovivify فقط في الخطوة الأخيرة: $ المرجع = diveref (الغوص (الجذر $، qw (أعلى 1 مفتاح ثانية 3 ثلاثة))، "مفقود")؛ إذا ($ المرجع) {$$- المرجع = "أنا أيضا"} آخر {بلدي ($ nestedref، $ svkey، $ errdesc) = diveerror ()؛ يموت "لا يمكن dereference $ nestedref عبر $$ svkey: $ errdescn"؛ } متطلبات: perl.

البيانات :: الغواص برامج ذات صلة