intersection.pl

来自「htk的第三章例题的源代码,按照htkbook做就可以了,很快就会熟悉 htk的」· PL 代码 · 共 20 行

#!/usr/bin/perl

# Bonus script to print the intersection of two word lists to standard output

# (c) Gareth Moore 2002

open(IN, "60k_wlist");
while (<IN>)
{
   $list{$_} = "1"; 
}
close(IN);

open(IN, "5k_unk.wlist");
while (<IN>)
{
    if ($list{$_} eq "1") {print;}
}
close(IN);