Dados :: Transformador. Traverse uma estrutura de dados, alterando-a no lugar
Baixe Agora

Dados :: Transformador. Classificação e resumo

Dados :: Transformador. Tag

estrutura Módulo Perl. perl estrutura de dados transformador

Dados :: Transformador. Descrição

Atravessar uma estrutura de dados, alterando-a no lugar Data :: Transformer é um módulo Perl para atravessar uma estrutura de dados, alterando-a no lugar.Synopsis Use dados :: Transformer; # A: uso simples: # aparar espaço em branco extra de cordas normais dentro de TA. Meu $ Trim = Sub {Local ($ _) = Shift; $$ _ = ~ s / ^ s * //; $$ _ = ~ s / s * $ //; }; Meu $ T = Data :: Transformer-> Novo (Normal => $ Trim); $ t-> travessia (TA); # B: Uso mais complexo: # (a) maiúsculas Todas as teclas em todos os hashes contidos em $ Data # e (b) Converter qualquer matriz para hashes: Meu $ UC_HASH = sub {my $ h = shift; minhas @keys = teclas% h; foreach (@keys) {my $ UC = UC ($ _); Se ($ UC NE $ _! Existe ($ h -> {$ UC})) {$ h -> {$ UC} = $ h -> {$ _}; excluir $ h -> {$ _}; } Elsif ($ UC NE $ _) {Die "Bad Key $ _: '$ UC' já existe"; }}}; meu $ ar_conv = sub {my% h = @ {$ _ }; Retorno sub {\% h}; }; Meu $ T = Data :: Transformer-> Novo (Hash => $ UC_HASH, array => $ ar_conv, node_limit => 500_000); eval {$ t-> travessia ($ data)}; Avisar "Não foi possível completar a transformação: $ @" se $ @; # C: travessia não destrutiva # você não tem que mudar nada ... meu tamanho de $ = 0; Meu $ T = Data :: Transformer-> Novo (Normal => Sub {$ Size + = Comprimento ($ {$ _})}, hash => sub {$ size + = comprimento ($ _) para chaves% { $ _ }},); meus $ nós = $ t-> transversal (ta); Imprimir "Número de nós: $ nós "; impressão" tamanho de chaves + valores: $ tamanho "; # D: Objetos dentro de uma estrutura de dados # afetam objetos usando o nome da classe como uma tecla: Meu $ T = Data :: Transformer-> Novo ('Meu :: Class' => Sub {Shift-> set_foo (' bar ')}); requisitos: · Perl.

Dados :: Transformador. Software Relacionado