Konvertieren :: Perlref2String. Konvertieren von Perl-Verweisen auf komprimierte Zeichenfolge und umgekehrt
Jetzt downloaden

Konvertieren :: Perlref2String. Ranking & Zusammenfassung

Konvertieren :: Perlref2String. Stichworte

Konverter Perl-Modul Perl Verweise Perl-Referenzen. Referenzwandler

Konvertieren :: Perlref2String. Beschreibung

Umwandeln Perl Verweise auf komprimierten String und vice versa Convert :: PerlRef2String ist ein Perl-Modul PERL Verweise auf komprimiertes String und vice versa.SYNOPSISThe folgende Skript verwenden Konvertieren zum Konvertieren :: PerlRef2String; # Absender Aktion: Verwenden Sie Data :: Dumper; my $ perl = { 'Order' => { 'Bookname' => 'Programmierung Web Serivices mit Perl', 'Id' => '0-596-00206-8', 'Anzahl' => '500'}, ' Payment '=> { 'Cardtype'=> 'VISA', 'validdate'=> '12 -10-2006' , 'Cardno'=> '1234-5678-9012-3456', 'Bearer'=>' Kai Li '}}; my $ string = perlref2string ($ perl); print $ string, ; #Sending die Zeichenfolge über das Internet ... # Empfängers Aktion: my $ perlref = string2perlref ($ string); drucken Dumper ($ perlref), erzeugt diese Ausgabe: H4sIAAAAAAAAA32RzarCQAxG9z5FFheycSCttiqi4M9GFK1XqetoBx20rYyjUqTvbtVeuYJtlplz vknIj9 / 7taADtwq8C2c6kBqh0 / 1ofxT243g / 5VA + MfR0vNUchirawkquYSG1uqiNPMFVmR14Uh + w Wpg1Cl4pJJyWK4hsckWzhJ + fOTLKJC / LIcLvaPo / Aj1OQhmZ8r0ybsA6WCbHfDN / tOgVj5LhPh9U MGST85YtLBI2kVtqPT6Zxn9KrS4ct9EULcr0Wt0pd / uSdX4fHLOCicIiOn0 / pO3KHXfoF8XsAQAA $ VAR1 = { 'Order' => { 'Bookname' => 'Programmierung Web Serivices mit Perl', 'Id' => '0-596-00206-8' 'Menge' => '500'}, 'Zahlung' => { 'Cardtype' => 'VISA', 'validdate' => '12 -10-2006' , 'Cardno' => 1234-5678-9012 -3456' , 'Bearer' => 'Kai Li'}}; Während eine etwas andere Version (vorbei PERL-Code sunroutine statt Referenz perlref2string) Verwendung Convert :: PerlRef2String; # Absender Aktion: use Data :: Dumper; my $ perl = q | { 'Order' => { 'Bookname' => 'Programmierung Web Serivices mit Perl', 'Id' => '0-596-00206-8', 'Anzahl' => 500 '}, 'Zahlung'=> { 'Cardtype'=> 'VISA', 'validdate'=> '12 -10-2006', 'Cardno' => '1234-5678-9012-3456', 'Bearer' = > 'Kai Li'}}; |; my $ string = perlref2string ($ perl); print $ string, ; #Sending die Zeichenfolge über das Internet ... # Empfängers Aktion: my $ perlref = string2perlref ($ string); Dumper drucken ($ perlref), erzeugt im Wesentlichen die gleiche result.When die Referenz mehr sophiscated Datenelemente enthält (zB Subroutinen) bevorzugen wir den ursprünglichen Code über das Internet zu senden, damit wir Unterroutine string2perlcode statt string2perlref verwenden, müssen die follwing Convert Skript Verwendung :: PerlRef2String; # Absender Aktion:. my $ perlref = q | { "Skipper" => sub {my $ person = shift; print Kipper: Hey, $ person! ";} "Gilligan"=> sub {my $ person = shift; if ($ Person eq "Skipper") {print" Gilligan: Sir, ja, Sir, $ person! ";} Else {print" Gilligan: Hallo, $ person! ";}}, "Professor"=> sub {my $ person = shift; print" Professor: Nach meinen Berechnungen, müssen Sie $ Person sein! ";}, "Ginger"=> sub {my $ person = shift; print" Ginger: (in einer sulty Stimme) Na hallo, $ person! ";},}; |; My $ string = perlref2string ($ perlref); $ string drucken" ; #Sending die Zeichenfolge über das Internet ... # Empfängers Aktion: my $ Perlcode = string2perlcode ($ string); print $ Perlcode; my $ Greets = eval ($ Perlcode); mein @room; für meine $ Person (qw (Gilligan Skipper Professor Ginger)) {print " "; Print" $ Person geht in den Raum. , Für meinen $ room_person (@room) {$ Greets -> {$ person} -> ($ room_person); $ Greets -> {$ room_person} -> ($ person);} Push @room, $ Person;} produziert: H4sIAAAAAAAAA62SywrCMBBF937FtbhQ6BdUdOFGwY3gwo2bWqZ2MCY1kwpB / Hfroy34QEVnEQK5 c + ZOZg4t3CKYbzjPyQYYDCHF6lC / VLH16JQCMRoDSMap6z9ocsvaIZheUBEm5OEyshRWqe2lDpq0 Y9jUH7NSvI71bwY47VYa2jVN9R5pd5ar8hHmbEN4khByvj01XjdASugL9oTfAZ / + zcyalETMf6ZT 0yKM / DkxiVVSqNix0WXX3hTYFuKwok + mptd / WporKkKXNeKSppzH3nBCPSxIKWTlYV4vUuvYPwHy z8yqzgIAAA == { "Skipper" => sub {my $ person = shift; print Kipper: Hey, $ person! ";} "Gilligan"=> sub {my $ person = shift; if ($ Person eq "Skipper") {print" Gilligan: Sir, ja, Sir, $ person! ";} Else {print" Gilligan: Hallo, $ person! ";}}, "Professor"=> sub {my $ person = shift; print" Professor: Nach meinen Berechnungen, müssen Sie $ Person sein! ";}, "Ginger"=> sub {my $ person = shift; print" Ginger: (in einer sulty Stimme) Na hallo, $ person! ";},}; Gilligan geht in den Raum. Skipper geht in den Raum. Kipper: Hey da, Gilligan! Gilligan: Sir, ja, Sir, Skipper! Professor geht in den Raum. Professor: Mit meinen Berechnungen müssen Sie sein Gilligan! Gilligan: Hallo ! Ingwer: (in einer sultischen Stimme) Nun, Hallo, Skipper! Kipper: Hey da, Ingwer! Ingwer: (in einer sultischen Stimme) Nun, Hallo, Professor! Professor: Nach meinen Berechnungen müssen Sie Ingwer sein! Offensichtlich sind es ein paar Risiken Für die Verwendung der Neuigkeiten. Die starke Verschlüsselung wird empfohlen (z. B. SSL) und Client- / Server-Zertifikate sollten an den beiden Teilen installiert werden, um einen geschützten und exklusiven Kanal sicherzustellen. Anforderungen: · Perl.

Konvertieren :: Perlref2String. Zugehörige Software