Cache :: Memcached :: Fast perl cliente para memcached, na linguagem c
Baixe Agora

Cache :: Memcached :: Fast Classificação e resumo

Cache :: Memcached :: Fast Tag

Módulo Perl. perl cache memcached. cliente memcached

Cache :: Memcached :: Fast Descrição

Cliente perl para memcached, na linguagem c Cache :: Memcahced :: Rápido é um módulo Perl para memcached, um daemon de cache de memória (http://www.danga.com/memcached/). O núcleo do módulo é implementado em c e tenta difícil minimizar o número de chamadas do sistema e evitar qualquer cópia chave / valor para velocidade. Como resultado, ele tem muito baixo consumo de CPU.Api é amplamente compatível com o cache :: Cliente Perl Puro Memcached, Original, a maioria dos usuários do módulo original pode começar a usar este módulo instalando-o e adicionando ":: rápido" ao antigo Nome em seus scripts (consulte "Compatibilidade com o cache :: Memcached" abaixo para detalhes completos) .Synopsis Use cache :: Memcached :: Fast; My $ Memd = Novo Cache :: Memcached :: Fast ({servidores => , namespace =>' my: ', connect_timeout => 0.2, io_timeout => 0.5, close_on_rorror => 1, compress_threshold => 100_000, compress_ratio => 0.9, comprimir_method => , max_failures => 3, fracasso_timeout => 2, ketama_points => 150, agoraait => 1, hash_namespace => 1, serialize_methods => , UTF8 => ($ ^ V GE V5.8.1? 1: 0), max_size => 512 * 1024,}); # Obter versões do servidor. minhas $ versões = $ memd-> server_versions; Enquanto (meu ($ server, $ versão) = cada% $ versões) {# ...} # armazenar escalares. $ memd-> Adicionar ('Sky', 'Texto'); $ memd-> add_multi (, ); $ memd-> Substitua ('Skey', 'Val'); $ Memd-> Substitua_Multi (, ); $ memd-> conjunto ('NKEY', 5); $ memd-> set_multi (, ); # Loja estruturas de dados perl arbitrárias. meu% hash = (a => 1, b => 2); meu @list = (1, 2); $ memd-> conjunto ('hash', \% hash); $ memd-> set_multi (, ); # Adicionar às cordas. $ memd-> Prepare ('Skey', 'isso é A'); $ memd-> Prepend_Multi (, ); $ memd-> Anexar ('Skey', 'UE'); $ memd-> append_multi (, ); # Aritmética. $ memd-> incr ('NKEY', 10); imprimir "OK "Se $ Memd-> Dim ('NKEY', 3) == 12; Meu @Counters = QW (C1 C2); $ memd-> set_multi (mapa {} @Counters, 'C3', 'c4'); $ memd-> incr_multi (, @Counters, ); # Recuperar valores. Meu $ Val = $ Memd-> Get ('Skey'); imprimir "OK "If $ val eq 'Este é um valor.'; My $ href = $ memd-> get_multi ( 'haxixe', 'nKey'); print" OK "If $ href -> {haxixe} -> {b} == 2 e US $ href -> {nKey} == 12;. # Faça operações de teste-e-set atômicas my $ cas_val = $ memd-> gets (' nKey '); $$ cas_val = 0 se $$ cas_val == 12; if ($ memd-> cas (' nKey', @ $ cas_val)) {print "OK, valor atualizado ";} Else {print 'Update falhou, provavelmente outro cliente actualiza o valor'." ";} # Apagar alguns dados $ memd-> delete ( 'skey');. Minhas @keys = qw (k1 K2 K3); $ memd-> delete_multi (@keys, ); # Wait para todos os comandos que foram executados no modo nowait $ memd-> nowait_push; # acabar com todos os dados em cache $ memd-> flush_all; Requisitos..: · Perl.

Cache :: Memcached :: Fast Software Relacionado