Convertir :: Perlref2String Convertir PERL Referencias a la cadena comprimida y viceversa
Descargar ahora

Convertir :: Perlref2String Clasificación y resumen

Convertir :: Perlref2String Etiquetas

convertidor Módulo perl perla referencias Referencias perl Conversor de referencia

Convertir :: Perlref2String Descripción

Convertir las referencias de Perl a la cadena comprimida y viceversa Convertir :: Perlref2String es un módulo PERL para convertir las referencias de Perl a la cadena comprimida y al viceversa.synopsisthe Siguiendo el uso de la secuencia de comandos :: Perlref2String; # Acción del remitente: Usar datos :: Dumper; My $ perl = {'order' => {'bookname' => 'Programación de serives web web con Perl', 'ID' => '0-596-00206-8', 'Cantidad' => '500'}, ' PAGO '=> {' CARDTYPE '=>' VISA ',' validDate '=> '12 -10-2006', 'Cardno' => '1234-5678-9012-3456', 'portador' => 'kai li '}}; My $ string = perlref2string ($ perl); Imprimir $ cadena, " "; #Sending la cadena a través de Internet ... la acción del receptor #: mi $ perlref = string2perlref ($ cadena); imprimir Volquete ($ perlref); produce esta salida: H4sIAAAAAAAAA32RzarCQAxG9z5FFheycSCttiqi4M9GFK1XqetoBx20rYyjUqTvbtVeuYJtlplz vknIj9 / 7taADtwq8C2c6kBqh0 / 1ofxT243g / 5 VA + w + MfR0vNUchirawkquYSG1uqiNPMFVmR14Uh Wpg1Cl4pJJyWK4hsckWzhJ + fOTLKJC / LIcLvaPo / Aj1OQhmZ8r0ybsA6WCbHfDN / tOgVj5LhPh9U MGST85YtLBI2kVtqPT6Zxn9KrS4ct9EULcr0Wt0pd / uSdX4fHLOCicIiOn0 / pO3KHXfoF8XsAQAA $ Q1 = { 'Orden' => { 'BookName' => 'Programación web con Perl Serivices', 'id' => '0-596-00206-8' , 'Cantidad' => '500'}, 'PAGO' => {'CARDTYPE' => 'VISA', 'ValidDate' => '12 -10-2006 ',' Cardno '=>' 1234-5678-9012 -3456 ',' portador '=>' kai li '}}}}; Mientras que una versión ligeramente diferente (pasando el código PERL a SUNROINTINE PERLREF2STRING en lugar de referencia) use convertir :: perlref2string; # Acción del remitente: use los datos :: Dumper; My $ perl = q | {'orden' => {'bookname' => 'Programación de serives web con Perl', 'ID' => '0-596-00206-8', 'Cantidad' => '500 '},' PAGO '=> {' CARDTYPE '=>' VISA ',' VALIDDATE '=> '12 -10-2006', 'CARDNO' => '1234-5678-9012-3456', 'portador' = > 'Kai li'}}; |; My $ string = perlref2string ($ perl); Imprimir $ cadena, " "; #Sentando la cadena a través de Internet ... # Acción del receptor: My $ perlref = string2perlref ($ cadena); Imprimir Dumper ($ perlref); produce esencialmente el mismo resultado. Cuando la referencia contiene elementos de datos más sofiscados (por ejemplo, SUBROUTINAS) Preferimos enviar el código original a través de Internet, por lo que debemos usar Subutine String2Perlcode en lugar de STRING2PERLREF. El script de Follwing use convertir :: Perlref2String; # Remiter Acción: My $ perlref = q | {"skipper" => sub {" $ persona = turno; imprimir "kipper: hey ahi, $ persona! ";}," Gilligan "=> sub {My $ persona = turno; si ($ persona EQ" Skipper ") {Imprimir" Gilligan: SIR, SI, SIR, $ PERSONA! ";} else {imprimir" Gilligan: Hola, $ persona! ";}}," Profesor "=> Sub {My $ persona = Shift; Imprimir" Profesor: Por mis cálculos, ¡debes ser $ persona! ";}," Ginger "=> SUB {MY $ persona = Shift; Imprimir" Ginger: (en una voz de Sulty) Well Hola, $ persona! ";},}; |; mi $ string = perlref2string ($ perlref); imprimir $ cadena" "; #sending la cadena a través de Internet ... # Acción del receptor: My $ perlcode = string2perlcode ($ cadena); Imprimir $ perlcode; My $ Greets = Eval ($ perlcode); My @room (QW (Gilligan Skipper Professor Ginger)) {imprimir " "; Imprimir" $ persona camina hacia la habitación. "; para mi $ room_person (@room) {$ saludas -> {$ persona} -> ($ room_person); $ saluda -> {$ room_person} -> ($ persona);} Push @room, $ persona;} produce: H4sIAAAAAAAAA62SywrCMBBF937FtbhQ6BdUdOFGwY3gwo2bWqZ2MCY1kwpB / c + Hfroy34QEVnEQK5 ZOZg4t3CKYbzjPyQYYDCHF6lC / VLH16JQCMRoDSMap6z9ocsvaIZheUBEm5OEyshRWqe2lDpq0 Y9jUH7NSvI71bwY47VYa2jVN9R5pd5ar8hHmbEN4khByvj01XjdASugL9oTfAZ / + zcyalETMf6ZT 0yKM / DkxiVVSqNix0WXX3hTYFuKwok + mptd / WporKkKXNeKSppzH3nBCPSxIKWTlYV4vUuvYPwHy z8yqzgIAAA == { "Skipper" => sub {my $ persona = desplazamiento; print "Kipper: Hola, $ persona! ";}," Gilligan "=> sub {My $ persona = turno; si ($ persona EQ" Skipper ") {Imprimir" Gilligan: SIR, SI, SIR, $ PERSONA! ";} else {imprimir" Gilligan: Hola, $ persona! ";}}," Profesor "=> Sub {My $ persona = Shift; Imprimir" Profesor: Por mis cálculos, ¡debes ser $ persona! ";}," Ginger "=> SUB {MY $ persona = Shift; Imprimir" Ginger: (en una voz de Sulty) Well Hola, $ persona! ";},}; Gilligan camina hacia la habitación. El patrón entra por la habitación. Kipper: ¡Oye, Gilligan! Gilligan: Señor, sí, señor, Skipper! El profesor camina hacia la habitación. Profesor: Por mis cálculos, debes ser Gilligan! Gilligan: ¡Hola, profesor! Profesor: por mis cálculos, debes ser patrón! Kipper: ¡Oye, profesor! Jengibre camina hacia la habitación. Jengibre: (en una voz de Sulty) Well Hola, Gilligan! Gilligan: Hola, jengibre ! Ginger: (en una voz sulty) ¿Bien Hola, Skipper! Kipper: Oye, jengibre! Ginger: (en una voz sulty) ¡Bien, profesor! Profesor: por mis cálculos, ¡debes ser un jengibre! Obviamente hay algunos riesgos Para usar lo último. Se recomienda el cifrado fuerte (por ejemplo, SSL) y los certificados de cliente / servidor deben instalarse en las dos partes para garantizar un canal protegido y exclusivo. Requisitos: · Perl

Convertir :: Perlref2String Software relacionado