Filesys :: Virtual :: Async :: Inmemory

Montar sistemas de archivos que residen en la memoria (tipo de RAMFS)
Descargar ahora

Filesys :: Virtual :: Async :: Inmemory Clasificación y resumen

Anuncio publicitario

  • Rating:
  • Licencia:
  • Perl Artistic License
  • Precio:
  • FREE
  • Nombre del editor:
  • Apocalypse
  • Sitio web del editor:
  • http://search.cpan.org/~apocal/

Filesys :: Virtual :: Async :: Inmemory Etiquetas


Filesys :: Virtual :: Async :: Inmemory Descripción

Monte los sistemas de archivos que residen en la memoria (tipo de RAMFS) Filesys :: Virtual :: Async :: Inmemory es un módulo PERL para montar sistemas de archivos que residen en la memoria (tipo de RAMFS) .ssynopsis #! / Usr / bin / perl usa estricto; usar advertencias; Use FCNTL QW (: Predeterminado: Modo); # S_IFREG S_IFDIR, O_SYNC O_LARGEFILE, etc. # Descomento, esto para habilitar la depuración de archivos #sub :: Virtual :: Async :: Inmemory :: Depuración {1} Use Filesys :: Virtual :: Async :: Inmemory; # Crear el sistema de archivos My $ VFS = Filesys :: Virtual :: Async :: Inmemory-> Nuevo ('Filessystem' => {'/' => {'mode => oct (' 040755 '), ctime => tiempo () ,},},); # ¡Usa $ VFS como desees! $ vfs-> readdir ('/', sub {# debe imprimir nada Mis $ DATA = CAMBIO; IF (definido $ DATA) {foreach My $ E (@ $ DATA) {Imprimir "Entrada en / -> $ E ";} Imprimir" FIN DE LISTADO PARA / ";} else {imprimir" Error de lectura / ";} do_file_io ();}); mi $ fh; sub do_file_io {$ vfs-> mknod ('/ bar', oct ('100644'), 0, did_mknod);} Sub did_mknod {if ($ _ == 0) {# escribirlo! $ Vfs-> abierto ('/ bar', O_RDWR, 0, DID_OPEN);} else {imprimir "error Mknod / Bar ";}} sub did_open {$ fh = cambio; si (definido $ FH) {MY $ BUF =" FOOBAR "; $ VFS-> Escribe ($ FH, 0, Longitud ($ BUF), $ BUF, 0, DID_WRITE );} else {imprimir "Error de apertura / barra ";}} Sub Did_Write {My $ WROTE = Shift; Si ($ escribió) {impresión" escribió con éxito a / bar "; $ VFS-> Cerrar ($ FH, DID_CLOSE);} else {imprimir" Error al escribir en / Bar ";}} sub did_close {My $ status = Shift; si ($ status == 0) {impresión" exitosamente cerrado fh ";} else {imprimir" error en el cierre de fh ";}} Requisitos: · Perl


Filesys :: Virtual :: Async :: Inmemory Software relacionado

Sobre nosotros