filesys :: الظاهري :: ASYNC :: Inmemory
التحميل الان

filesys :: الظاهري :: ASYNC :: Inmemory الترتيب والملخص

filesys :: الظاهري :: ASYNC :: Inmemory العلامات

الوحدة النمطية بيرل بيرل تتعدد نظام الملفات جبل نظام الملفات async الظاهري

filesys :: الظاهري :: ASYNC :: Inmemory وصف

أجهزة الملفات الجبل التي تقيم في الذاكرة (نوع من الراميف) FILIVESYS :: الظاهري :: ASYNC :: INMEMORY هي وحدة PERL لجبل أنظمة الملفات التي تقيم في الذاكرة (نوع من Ramfs) .synopsis #! / USR / BIN / PERL استخدام صارمة؛ استخدام التحذيرات؛ استخدم FCNTL QW (: الافتراضي: الوضع)؛ # s_ifreg s_ifdir، o_ifreg o_largefile، o_sync o_largefile إلخ # uncomment هذا لتمكين تصحيح الأخطاء #sub filesys :: الظاهري :: ASYNC :: Inmemory :: Debug {1} استخدم filesys :: الظاهري :: ASYNC :: Inmemory؛ # إنشاء نظام الملفات بلدي $ vfs = filipsys :: async :: inmemory-> جديد ('نظام الملفات' => {'/' => {mode => Oct ('040755')، ctime => الوقت () ،}،}،)؛ # استخدام $ vfs كما يحلو لك! $ vfs-> readdir ('/'، sub {# يجب طباعة لا شيء بياناتي $ = التحول؛ إذا (بيانات $ المعرفة) {foreach بلدي $ e e (@ بيانات $) {print "إدخال في / -> $ e "؛} طباعة" نهاية الإدراج ل / "؛} آخر {print" خطأ في القراءة / "؛} do_file_io ()؛})؛ بلدي $ fh؛ sub do_file_io {$ vfs-> mknod ('/ bar'، أكتوبر ('100644')، 0، did_mknod)؛} sub did_mknod {if ($ _ ] == 0) {# اكتب إليها! $ vfs-> فتح ('/ bar'، o_rdwr، 0، did_open)؛} آخر {print "خطأ mknod / bar "؛}} sub_open did_open {$ fh = shift؛ إذا (المعرفة $ fh) {بلدي $ buf =" foobar "؛ $ vfs-> الكتابة ($ fh، 0، الطول ($ buf)، $ buf، 0، did_write )؛} آخر {print "خطأ فتح / شريط "؛}} SUB DID_WRITE {بلدي $ كتب = التحول؛ إذا ($ كتب) {print" كتب بنجاح إلى / شريط "؛ $ vfs-> إغلاق ($ fh، did_close)؛} آخر {print" خطأ الكتابة إلى / bar "؛}} Sub DoD_Close {My $ Status = Shift؛ إذا ($ الحالة == 0) {print" الناجح مغلق FH "؛} آخر {print" خطأ في إغلاق FH "؛ } } متطلبات: perl.

filesys :: الظاهري :: ASYNC :: Inmemory برامج ذات صلة