merge.prl

来自「中心词驱动的短语结构句法分析器。该模型考虑了跟随介词短语的名词短语的中心词的作用」· PRL 代码 · 共 31 行

#!/usr/bin/perl

$file1 = shift @ARGV;
$file2 = shift @ARGV;

open(FILE1,$file1);
open(FILE2,$file2);

while(<FILE1>)
{
    if(m/\(TOP/)
    {
	$a = <FILE2>;
	while(!($a =~ m/\(TOP/))
	{
	    $a = <FILE2>;
	}
	if(! (m/TOP~/))
	{
	    print $a;
	    print STDERR "MISSED $a\n";
	}
	else
	{
	    print $_;
	}

    }

}