Changeset 18391

Timestamp:

08/28/08 17:24:47 (4 months ago)

Author:

yappo

Message:

サイズがでかくならんようにした

Files:

• lang/perl/Acme-Encode-WhiteSpace8/trunk/lib/Acme/Encode/WhiteSpace8.pm (modified) (4 diffs)

lang/perl/Acme-Encode-WhiteSpace8/trunk/lib/Acme/Encode/WhiteSpace8.pm

@@ -16 +16 @@
 
 my %whitespaces2bit = (
-    "\t" => "00",
-    "\r" => "01",
-    "\n" => "10",
-    " "  => "11",
+    " "    => "0000",
+    "\001" => "0001",
+    "\002" => "0010",
+    "\003" => "0011",
+    "\004" => "0100",
+    "\005" => "0101",
+    "\006" => "0110",
+    "\007" => "0111",
+
+    "\010" => "1000",
+    "\011" => "1001",
+    "\013" => "1010",
+    "\014" => "1011",
+    "\016" => "1100",
+    "\017" => "1101",
+    "\020" => "1110",
+    "\021" => "1111",
 );
 my %bit2whitespaces = map { $whitespaces2bit{$_} => $_ } keys %whitespaces2bit;
@@ -28 +41 @@
     my $bytes = Encode::encode('utf8', $str);
     my $bits = unpack('B*', $bytes);
-    $bits =~ s/([01][01])/$bit2whitespaces{$1}/g;
+    $bits =~ s/([01][01][01][01])/$bit2whitespaces{$1}/g;
     $bits;
 }
@@ -35 +48 @@
     my ($obj, $bytes, $chk) = @_;
     return '' unless $bytes;
-    return $bytes unless $bytes =~ /^[\t\r\n ]{4,}$/;
+    return $bytes unless $bytes =~ /^[ \001\002\003\004\005\006\007\010\011\013\014\016\017\020\021]{2,}$/;
 
     my @bits = map {
@@ -42 +55 @@
 
     my $ret = '';
-    while (my @byte = splice @bits, 0, 4) {
+    while (my @byte = splice @bits, 0, 2) {
         $ret .= pack('B8', join '', @byte);
     }
-
     $ret;
 }