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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
#!/usr/bin/perl -w
use strict;
# 1 在 _ 10 _ _ 4 X _ _
# 2 门厅 _ 3 _ _ 1 X _ _
# 3 下面 _ 23 _ _ 4 X _ _
# 4 。 _ 45 _ _ 0 X _ _
my @ldeps;
my @rdeps;
@ldeps=(); for (my $i =0; $i <1000; $i++) { push @ldeps, []; }
@rdeps=(); for (my $i =0; $i <1000; $i++) { push @rdeps, []; }
my $rootcat = 0;
my @cats = ('S');
my $len = 0;
my @noposcats = ('S');
while(<>) {
chomp;
if (/^\s*$/) {
write_cfg($len);
$len = 0;
@cats=('S');
@noposcats = ('S');
@ldeps=(); for (my $i =0; $i <1000; $i++) { push @ldeps, []; }
@rdeps=(); for (my $i =0; $i <1000; $i++) { push @rdeps, []; }
next;
}
$len++;
my ($pos, $word, $d1, $xcat, $d2, $d3, $headpos, $deptype) = split /\s+/;
my $cat = "C$xcat";
my $catpos = $cat . "_$pos";
push @cats, $catpos;
push @noposcats, $cat;
print "[$catpos] ||| $word ||| $word ||| Word=1\n";
if ($headpos == 0) { $rootcat = $pos; }
if ($pos < $headpos) {
push @{$ldeps[$headpos]}, $pos;
} else {
push @{$rdeps[$headpos]}, $pos;
}
}
sub write_cfg {
my $len = shift;
for (my $i = 1; $i <= $len; $i++) {
my @lds = @{$ldeps[$i]};
for my $ld (@lds) {
print "[$cats[$i]] ||| [$cats[$ld],1] [$cats[$i],2] ||| [1] [2] ||| $noposcats[$ld]_$noposcats[$i]=1\n";
}
my @rds = @{$rdeps[$i]};
for my $rd (@rds) {
print "[$cats[$i]] ||| [$cats[$i],1] [$cats[$rd],2] ||| [1] [2] ||| $noposcats[$i]_$noposcats[$rd]=1\n";
}
}
print "[S] ||| [$cats[$rootcat],1] ||| [1] ||| TOP=1\n";
}
|
