Caché :: ramdisk Compartir de objetos Perl entre los procesos en varias unidades de RAM
Descargar ahora

Caché :: ramdisk Clasificación y resumen

Caché :: ramdisk Etiquetas

intercambio Módulo perl perla objetos Perl Objetos compartiendo Aplicaciones multi-proceso

Caché :: ramdisk Descripción

Compartir objetos Perl entre procesos en varias unidades de RAM Caché :: Ramdisk es un módulo PERL que proporciona aplicaciones multi-proceso con un medio para compartir objetos Perl entre los procesos mientras intenta evitar los inconvenientes inherentes a otras herramientas IPC: 1. Las colas de mensajes son extremadamente rápidas, pero también son extremadamente limitadas. El recuerdo compartido es quizás incluso más rápido, pero salió para mí ser un problema al menos peludo tratando de almacenar varias referencias en un segmento.3. Los sockets son confiables, pero requieren un segundo punto final de comunicación y otro proceso de servidor. Pero un archivo es un archivo es un archivo. El paquete recopila tantos ramdisks en un paquete posible y necesario para mantener el espacio de usuario requerido, dependiendo de los respectivos. Parámetros bajo los cuales el kernel individual del sistema había sido compilado. El usuario del sistema y el grupo que posee el caché se pueden especificar para todo el grupo RD, digamos cache.SynopsysApplication Start Fase: use caché :: Ramdisk :: Funciones; cache_install ({'' base '=>' / tmp / rd ',' tamaño '=> 16,' inodes '=> 1024,' sindex '=> {' fie '=> 8,' foe '=> 64,' fum '=> 512},' shmem '=>' rdlk ',' keys '=> {' fie '=> 50,' foe '=> 200,' fum '=> 4000},' usuario '=>' Apache ',' Group '=>' apache '}); Código de controlador de contenido: Use MyApp :: FIE; MY $ FIE = MYAPP :: FIE-> Nuevo (12345); Imprimir $ FIE -> {'some_field'}; Código de objeto: Paquete MyApp :: FIE; Utilice caché :: RAMDISK; Sub nuevo {My ($ Class, $ ID) = @_; My $ C = caché :: Ramdisk-> Nuevo ('/ TMP / RD', cache_lru); My $ yo = $ c-> obtener ({'fie' => $ id}) -> {'fie'} -> {$ id} || Do {# Realice algunas lógicas de DB $ auto = $ Sth-> Fetchrow_Hashref; bendice $ yo, $ clase; $ c-> PUT ({'FIE' => {$ ID => $ Self}}); } $ yo; } Más tarde, en un guión de CGI: use CGI QW (: HTML); Utilice caché :: RAMDISK :: FUNCIONES; MIS $ S = CACHE_STATUS ('/ TMP / RD'); Imprimir "Número de artículos para 'FIE':". $ s-> key_stat ('fie'), br; en apagado de la aplicación: cache_remove ('/ tmp / rd'); Requisitos: · Perl

Caché :: ramdisk Software relacionado