Convert :: Perlref2String. Convertendo Referências Perl a string compactada e vice-versa
Baixe Agora

Convert :: Perlref2String. Classificação e resumo

Convert :: Perlref2String. Tag

conversor Módulo Perl. perl referências Referências Perl. Conversor de referência

Convert :: Perlref2String. Descrição

Convertendo referências Perl para cadeia comprimida e vice-versa Converter :: PerlRef2String é um módulo Perl para converter referências PERL para string comprimida e vice versa.SYNOPSISThe após o uso de script Convert :: PerlRef2String; # Ação do remetente: use Data :: Dumper; my $ perl = { 'Order' => { 'bookname' => 'Programação Web Serivices com Perl', 'Id' => '0-596-00206-8', 'Quantidade' => '500'}, ' pagamento '=> { 'cardType'=> 'VISA', 'ValidDate'=> '12 -10-2006' , 'Cardno'=> '1234-5678-9012-3456', 'portador'=>' Kai Li "}}; my $ string = perlref2string ($ perl); imprimir $ string" "; #Sending a corda através da Internet ... a ação de # Receiver: my $ perlref = string2perlref ($ string); imprimir Dumper ($ perlref); produz esta saída: H4sIAAAAAAAAA32RzarCQAxG9z5FFheycSCttiqi4M9GFK1XqetoBx20rYyjUqTvbtVeuYJtlplz vknIj9 / 7taADtwq8C2c6kBqh0 / 1ofxT243g / 5VA + MfR0vNUchirawkquYSG1uqiNPMFVmR14Uh + w Wpg1Cl4pJJyWK4hsckWzhJ + fOTLKJC / LIcLvaPo / Aj1OQhmZ8r0ybsA6WCbHfDN / tOgVj5LhPh9U MGST85YtLBI2kVtqPT6Zxn9KrS4ct9EULcr0Wt0pd / uSdX4fHLOCicIiOn0 / pO3KHXfoF8XsAQAA $ VAR1 = { 'Order' => { 'bookname' => 'Programação web Serivices com Perl', 'Id' => '0-596-00206-8' 'Quantidade' => '500'}, 'Pagamento' => { 'cardType' => 'VISA', 'ValidDate' => '12 -10-2006' , 'Cardno' => '1234-5678-9012 -3456' , 'portador' => 'Kai Li'}}; Enquanto uma versão ligeiramente diferente (passando código PERL para sunroutine perlref2string em vez de referência) uso Convert :: PerlRef2String; acção # do remetente: uso Data :: Dumper; my $ perl = q | { 'Order' => { 'bookname' => 'Programação web Serivices com Perl', 'Id' => '0-596-00206-8', 'Quantidade' => '500 '}, 'Pagamento'=> { 'cardType'=> 'VISA', 'ValidDate'=> '12 -10-2006', 'Cardno' => '1234-5678-9012-3456', 'portador' = > 'Kai Li'}}; |; my $ string = perlref2string ($ perl); imprimir $ string" "; #Sending a corda através da Internet ... a ação de # Receiver: my $ perlref = string2perlref ($ string); imprimir Dumper ($ perlref); produz essencialmente o mesmo result.When a referência contém elementos de dados mais sophiscated (por exemplo, sub-rotinas) que preferem enviar o código original através da Internet por isso devemos usar string2perlcode sub-rotina em vez de string2perlref o follwing roteiro uso Convert :: PerlRef2String; acção # do remetente:. my $ perlref = q | { "Skipper" => sub {my $ pessoa = shift; print "Kipper: Olá, $ pessoa! ";}, "Gilligan"=> sub {my $ pessoa = shift; if ($ pessoa eq "Skipper") {print" Gilligan: Senhor, sim, senhor, $ pessoa! ";} Else {print" Gilligan: Oi, $ pessoa! ";}}, "Professor"=> sub {my $ pessoa = shift; print" Professor: Pelos meus cálculos, você deve ser de US $ pessoa! ";}, "Ginger"=> sub {my $ pessoa = shift; print" Ginger: (em voz sulty) Bem Olá, $ pessoa! ";},}; |; My $ string = perlref2string ($ perlref); imprimir $ string" "; #Sending a corda através da Internet ... a ação de # Receiver: my $ perlcode = string2perlcode ($ string); imprimir $ perlcode; my $ cumprimenta = eval ($ perlcode); minha @room; para minha US $ pessoa (qw (Gilligan Skipper Professor Ginger)) {print " "; Print" $ pessoa entra na sala. "; Para minha US $ room_person (@room) {$ saude -> {$ pessoa} -> ($ room_person); $ saude -> {$ room_person} -> ($ pessoa);} @room empurrão, $ pessoa;} produz: H4sIAAAAAAAAA62SywrCMBBF937FtbhQ6BdUdOFGwY3gwo2bWqZ2MCY1kwpB / Hfroy34QEVnEQK5 c + ZOZg4t3CKYbzjPyQYYDCHF6lC / VLH16JQCMRoDSMap6z9ocsvaIZheUBEm5OEyshRWqe2lDpq0 Y9jUH7NSvI71bwY47VYa2jVN9R5pd5ar8hHmbEN4khByvj01XjdASugL9oTfAZ / + zcyalETMf6ZT 0yKM / DkxiVVSqNix0WXX3hTYFuKwok + mptd / WporKkKXNeKSppzH3nBCPSxIKWTlYV4vUuvYPwHy z8yqzgIAAA == { "Skipper" => sub {my $ pessoa = shift; print "Kipper: Olá, $ pessoa! ";}, "Gilligan"=> sub {my $ pessoa = shift; if ($ pessoa eq "Skipper") {print" Gilligan: Senhor, sim, senhor, $ pessoa! ";} Else {print" Gilligan: Oi, $ pessoa! ";}}, "Professor"=> sub {my $ pessoa = shift; print" Professor: Pelos meus cálculos, você deve ser de US $ pessoa! ";}, "Ginger"=> sub {my $ pessoa = shift; print" Ginger: (em voz sulty) Bem Olá, $ pessoa! ";},}; Gilligan entra na sala. Skipper entra no quarto. Kipper: Hey lá, Gilligan! Gilligan: senhor, sim, senhor, capitão! Professor entra no quarto. Professor: Pelos meus cálculos, você deve ser Gilligan! Gilligan: Oi, Professor! Professor: Pelos meus cálculos, você deve ser capitão! Kipper: Hey lá, professor! Ginger caminha no quarto. Gengibre: (em uma voz sulty) Bem, Gilligan! Gilligan! Gilligan! Gilligan! Gilligan! Gilligan! Gilligan! Gilligan! Gilligan Ginger: (em uma voz sulty) Bem Olá, Skipper! Kipper: Hey lá, gengibre! Ginger: (em uma voz sulty) Bem, professor! Professor: pelos meus cálculos, você deve ser gengibre! Obviamente, existem alguns riscos! Para usar o mais recente. A criptografia forte é recomendada (por exemplo, os certificados SSL) e cliente / servidor devem ser instalados nas duas partes para garantir um canal protegido e exclusivo. Requisitos: · Perl.

Convert :: Perlref2String. Software Relacionado