init III

Perl JSON Server Client/MCast Receiver/convert.pl

@@ -0,0 +1,17 @@
+#!/bin/perl
+
+$hash{0}="00|01|02|03";
+$hash{1}="10|11|12|13";
+$hash{2}="20|21|22|23";
+$hash{3}="30|31|32|33";
+
+
+foreach (keys %hash) {
+    ($a,$b,$c,$d) = split /\|/,$hash{$_};
+    @arr=($a,$b,$c,$d);
+    #push @{$hash2{$_}}=@arr;
+    #$hash2{$_} = [$a, $b, $c ,$d];
+    $hash2{$_} = [@arr];
+}
+
+print %hash2;