Changes between Version 1 and Version 2 of Perl

Timestamp:

08/09/06 18:29:07 (19 years ago)

Author:

atzm

Comment:

--

Perl

@@ -72 +72 @@
 WARNING: Can't locate foo.pm in @INC ...
 }}}
+
+== データの永続化 ==
+Storable を使って文字列で Perl オブジェクトをやりとりしてみる．nfreeze を使う場合，改行をエスケープする必要があるようだ．
+
+バイナリでのやりとりも可であれば，nstore を使うのが良い．
+
+ * freeze.pl
+{{{
+#!perl
+#!/usr/bin/perl
+
+use strict;
+use diagnostics;
+use warnings;
+use Storable qw(nfreeze);
+
+my $hash = {
+    "1" => "hogera",
+    "2" => 1,
+    "3" => [1, 2, 3],
+    "4" => {"a" => 1},
+    "5" => {
+        "a" => 1,
+        "b" => [1, 2, 3],
+        "c" => {"i" => 2},
+    },
+};
+
+my $serialized = nfreeze($hash);
+print r_escape($serialized);
+
+sub r_escape {
+    my $s = shift;
+    $s =~ s/([%\r\n])/sprintf("%%%02X", ord($1))/ge;
+    return $s;
+}
+
+}}}
+
+ * thaw.pl
+{{{
+#!perl
+#!/usr/bin/perl
+
+use strict;
+use diagnostics;
+use warnings;
+use Storable qw(thaw);
+use Data::Dumper;
+
+my $line = "";
+$line .= $_ while (<>);
+
+my $hash = thaw(r_unescape($line));
+print Dumper($hash);
+
+sub r_unescape {
+    my $s = shift;
+    $s =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/ge;
+    return $s;
+}
+}}}
+
+ * 実行結果
+{{{
+#!sh
+$ ./freeze.pl | ./thaw.pl 
+$VAR1 = {
+          '1' => 'hogera',
+          '4' => {
+                   'a' => 1
+                 },
+          '3' => [
+                   1,
+                   2,
+                   3
+                 ],
+          '2' => 1,
+          '5' => {
+                   'c' => {
+                            'i' => 2
+                          },
+                   'a' => 1,
+                   'b' => [
+                            1,
+                            2,
+                            3
+                          ]
+                 }
+        };
+}}}