Changes between Version 2 and Version 3 of Perl

Timestamp:

08/09/06 19:16:51 (19 years ago)

Author:

atzm

Comment:

--

Perl

@@ -163 +163 @@
         };
 }}}
+
+=== オブジェクトの永続化 ===
+当然のことながら，展開先ソースコードが必要になる．
+
+ * object.pm
+{{{
+#!perl
+#!/usr/bin/perl
+
+use strict;
+use diagnostics;
+use warnings;
+
+package object;
+
+sub new {
+        my $class = shift;
+        bless { "1" => "hogera" }, $class;
+}
+
+sub unko {
+        my $self = shift;
+        return $self->{"1"};
+}
+
+1;
+
+__END__
+}}}
+
+ * freeze.pl
+{{{
+#!perl
+#!/usr/bin/perl
+
+use strict;
+use diagnostics;
+use warnings;
+use Storable qw(nfreeze);
+use object;
+
+my $obj = new object;
+
+my $serialized = nfreeze($obj);
+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 object;
+
+my $str = "";
+$str .= $_ while (<>);
+
+my $obj = thaw(r_unescape($str));
+print $obj->unko(), "\n";
+
+sub r_unescape {
+    my $s = shift;
+    $s =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/ge;
+    return $s;
+}
+}}}
+
+ * 実行結果
+{{{
+#!sh
+$ ./freeze.pl | ./thaw.pl 
+hogera
+}}}