File: conv_jdata.pl

package info (click to toggle)
chinput 3.0.2-8
  • links: PTS
  • area: main
  • in suites: woody
  • size: 2,124 kB
  • ctags: 2,806
  • sloc: ansic: 52,549; makefile: 165; perl: 23
file content (30 lines) | stat: -rwxr-xr-x 527 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
#!/usr/bin/perl -w

@chars = ();
$line = 0;

while (<>) {
    $line++;

    next if !/^\s*\"/;
    $data = eval $_;
    if (!defined $data) {
	die "Could not parse line $line: $!";
    }
    $strokecount = ord(substr($data,0,1)) - ord('A') + 1;

    if (!defined $chars[$strokecount]) {
	$chars[$strokecount] = "";
    }

    $chars[$strokecount] .= substr($data,1,-1);
}

for (0..$#chars) {
    if (defined $chars[$_]) {
	print pack("NN",$_,length($chars[$_])+1);
	print $chars[$_];
	print "\0";
    }
}
print pack("NN",0,0);