تحويل :: perlref2string. تحويل مراجع بيرل إلى السلسلة المضغوطة والعكس صحيح
التحميل الان

تحويل :: perlref2string. الترتيب والملخص

تحويل :: perlref2string. العلامات

محول الوحدة النمطية بيرل بيرل المراجع المراجع بيرل محول المرجع

تحويل :: perlref2string. وصف

تحويل مراجع بيرل إلى السلسلة المضغوطة والعكس صحيح تحويل :: Perlref2String هو وحدة بيرل لتحويل مراجع بيرل إلى السلسلة المضغوطة والعكس صحيح. يستخدم البرنامج النصي التالي تحويل :: Perlref2String؛ # عمل المرسل: استخدم البيانات :: Dumper؛ My $ perl = {'order' => {'bookname' => 'softwarming web serivices with perl'، 'id' => '0-596-00206-8'، "الكمية" => '500'} " الدفع '=> {' CardType '=>' Visa '،' VisaDate '=>' '12 -10-2006'، 'Cardno' => 'Cardno' => '1234-5678-9012-3456'، "حامل" => كاي لي '}}؛ بلدي سلسلة $ = perlref2string ($ perl)؛ طباعة سلسلة $ " "، #sending السلسلة عبر الإنترنت ... العمل # المتلقي: بلدي $ perlref = string2perlref ($ سلسلة)؛ طباعة قلابة ($ perlref)؛ تنتج هذا الإخراج: H4sIAAAAAAAAA32RzarCQAxG9z5FFheycSCttiqi4M9GFK1XqetoBx20rYyjUqTvbtVeuYJtlplz vknIj9 / 7taADtwq8C2c6kBqh0 / 1ofxT243g / 5VA + MfR0vNUchirawkquYSG1uqiNPMFVmR14Uh + ث Wpg1Cl4pJJyWK4hsckWzhJ + fOTLKJC / LIcLvaPo / Aj1OQhmZ8r0ybsA6WCbHfDN / tOgVj5LhPh9U MGST85YtLBI2kVtqPT6Zxn9KrS4ct9EULcr0Wt0pd / uSdX4fHLOCicIiOn0 / pO3KHXfoF8XsAQAA $ VAR1 = { 'ترتيب' => { 'BookName' => 'برمجة Serivices ويب مع بيرل'، 'رقم' => '0-596-00206-8 " ، "الكمية" => '500'}، "الدفع" => {'CardType' => 'Visa' = 'VISA'، 'FORTDATE' => '' 12 -10-2006 '،' Cardno '=>' 1234-5678-9012 -3456 "،" حامل "=> 'Kai Li'}؛ في حين أن نسخة مختلفة قليلا (تمرير رمز Perl إلى Sunroutine Perlref2String بدلا من المرجع) استخدم تحويل :: Perlref2string؛ عمل المرسل: استخدم البيانات :: Dumper؛ بلدي $ perl = q | {'order' => {'bookname' => 'softwarming web serivices مع perl'، 'id' => '0-596-00206-8'، 'الكمية' => '500 "}"، "الدفع" => {'CardType' => 'Visa'، 'VisaDate' => '42 -10-2006'، "Cardno" => '1234-5678-9012-3456'، "حامل" = > كاي لي '}}؛ |؛ بلدي سلسلة $ = perlref2string ($ perl)؛ طباعة سلسلة $ " "؛ #sending السلسلة عبر الإنترنت ... # عمل المتلقي: بلدي Perlref = string2perlref (سلسلة $)؛ تطبع النتيجة ($ perlref)؛ تنتج أساسا نفس النتيجة. عند المرجع يحتوي على عناصر بيانات أكثر تمثخة (على سبيل المثال) Subroutines) نحن نفضل إرسال التعليمات البرمجية الأصلية عبر الإنترنت حتى يجب علينا استخدام Subroutine String2perLcode بدلا من string2perlref. يستخدم البرنامج النصي follwing convert :: perlref2string؛ عمل المرسل: بلدي perlref = q | {"skipper" => sub {بلدي $ شخص = تحول؛ طباعة "kipper: يا شخص، $! "؛}،" gilligan "=> sub {my person = shift؛ إذا كان ($ شخص EQ" Skipper ") {print" gilligan: sir، نعم، يا سيدي، $ شخص! "؛} آخر {print" gilligan: مرحبا، $ شخص! "؛}}،" أستاذ "=> Sub {My $ شخص = Shift؛ طباعة" أستاذ: بواسطة حساباتي، يجب أن تكون شخصا! "؛}،" الزنجبيل "=> SUB {My $ شخص = Shift؛ طباعة" الزنجبيل: (في صوت أولية) حسنا، $ شخص! "؛}،}؛ |؛ سلسلة $ $ = perlref2string ($ perlref)؛ طباعة سلسلة $،" "؛ #sending السلسلة عبر الإنترنت ... # عمل جهاز الاستقبال: بلدي perlcode $ = string2perlcode (سلسلة $)؛ طباعة $ perlcode. تحية $ $ = eval ($ perlcode)؛ بلدي oroom؛ لبلدي شخصي (QW (Gilligan Skipper Professor Ginger)) {print " "؛ طباعة" شخص يمشي في الغرفة. "؛ بالنسبة لي $ Room_Person (@ Room) {$ reets -> {$ شخص} -> ($ Room_person)؛ $ يحيي -> {$ room_person} -> ($ شخص)؛} دفع الغرفة، $ شخص؛} تنتج: H4sIAAAAAAAAA62SywrCMBBF937FtbhQ6BdUdOFGwY3gwo2bWqZ2MCY1kwpB / Hfroy34QEVnEQK5 ج + ZOZg4t3CKYbzjPyQYYDCHF6lC / VLH16JQCMRoDSMap6z9ocsvaIZheUBEm5OEyshRWqe2lDpq0 Y9jUH7NSvI71bwY47VYa2jVN9R5pd5ar8hHmbEN4khByvj01XjdASugL9oTfAZ / + zcyalETMf6ZT 0yKM / DkxiVVSqNix0WXX3hTYFuKwok + mptd / WporKkKXNeKSppzH3nBCPSxIKWTlYV4vUuvYPwHy z8yqzgIAAA == { "ربان" => الفرعية {يا $ = شخص التحول، طباعة "كيبر: يا هناك، $ شخص! "؛}،" gilligan "=> sub {my person = shift؛ إذا كان ($ شخص EQ" Skipper ") {print" gilligan: sir، نعم، يا سيدي، $ شخص! "؛} آخر {print" gilligan: مرحبا، $ شخص! "؛}}،" أستاذ "=> Sub {My $ شخص = Shift؛ طباعة" أستاذ: بواسطة حساباتي، يجب أن تكون شخصا! "؛}،" الزنجبيل "=> SUB {My $ شخص = Shift؛ طباعة" الزنجبيل: (في صوت أولية) حسنا، $ شخص! "؛}،}؛ جيليجان يمشي في الغرفة. مقبر يمشي في الغرفة. Kipper: يا هناك، جيليجان! جيليجان: سيدي، نعم، سيدي، سيدي، سكير، أستاذ يمشي في الغرفة. أستاذ: بواسطة حساباتي، يجب أن تكون جيليجان! جيليجان: مرحبا، أستاذ! أستاذ: بواسطة حساباتي، يجب أن تكون قبرا! Kipper: يا هناك، أستاذ! الزنجبيل يمشي في الغرفة. الزنجبيل: (في صوت أولية) مرحبا، جيليجان! جيليجان: مرحبا، الزنجبيل الزنجبيل: (في صوت أولية) مرحبا، قائد! KIPPER: يا هناك، الزنجبيل! الزنجبيل: (في صوت أولية) حسنا، أستاذ! أستاذ البروفيسور: من خلال حساباتي، يجب أن تكون الزنجبيل! من الواضح أن هناك بعض المخاطر لاستخدام أحدث. ينصح تشفير قوي (على سبيل المثال SSL) وشهادات العميل / الخادم يجب تثبيتها في الجزءين لضمان قناة محمية وحصرية. المتطلبات: perl.

تحويل :: perlref2string. برامج ذات صلة