FileSys :: Virtual :: Async :: InMemory. 메모리에있는 파일 시스템 (RAMFS 종류)
지금 다운로드

FileSys :: Virtual :: Async :: InMemory. 순위 및 요약

FileSys :: Virtual :: Async :: InMemory. 태그

Perl 모듈 펄 산 파일 시스템 마운트 파일 시스템 가상 비동기

FileSys :: Virtual :: Async :: InMemory. 설명

메모리에있는 파일 시스템 마운트 (RAMFS 종류) filesys :: virtual :: async :: inmemory는 메모리에있는 파일 시스템을 마운트하는 Perl 모듈입니다 (RAMFS 종류) .Synopsis #! / usr / bin / perl을 사용하십시오. 경고를 사용하십시오. fcntl qw (: 기본값 : 모드)를 사용하십시오. # s_ifreg s_ifdir, o_sync o_largefile etc. #sub filesys :: virtual :: async :: inmemory :: debug {1} filesys :: virtual :: async :: inmemory; # 파일 시스템 만들기 MY $ VFS = FILESS :: VIRESS-> 새 ( '파일 시스템'=> { '/'=> {mode => OCT ( '040755'), ctime => time () ,},},); # $ VFS를 원하는대로 사용하십시오! $ vfs-> readdir ( '/', sub {#는 내 $ data data = shift를 인쇄해야합니다. ";} 인쇄"목록의 엔드 / ";} else {print"오류 읽기 / ";} do_file_io ();}); My $ fh; sub do_file_io {$ vfs-> mknod ( '/ bar', oct ( '/ bar', oct ( '100644'), 0, did_mknod);} sub did_mknod {if ($ _ == 0) {$ write! $ vfs-> open ( '/ bar', o_rdwr, 0, did_open);} else {print "오류 mknod / bar ";}} sub did_open {$ fh = shift; (정의 된 $ fh) {my $ buf ="foobar "; $ vfs-> 쓰기 ($ fh, 0, 길이 ($ buf), $ buf, 0, did_write );} else {print "오류 / 막대 ";}} sub did_write {my $ roote = shift; ($ 쓴다) {print"가 / bar에 썼다면 "; $ VFS-> 닫기 ($ FH, did_close);} else {print"오류 / bar에 쓰기 ";}} sub did_close {my $ status = shift; if ($ status == 0) {print"성공적인 닫힌 FH ";} else {print"오류를 닫는 오류 ";}} 요구 사항 : · Perl.

FileSys :: Virtual :: Async :: InMemory. 관련 소프트웨어