open Z, "F:/Z.txt";open OJ, "F:/OJ.txt";@arrayZ=;@arrayOJ=;$count=1;#先解析文件z.txt ,以每行的第2个词为key,4-8词构成的数组为valueforeach $item(@arrayZ){($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8)=split(/\s+/,$item);$hash{$s2} = [$s4,$s5,$s6,$s7,$s8];}foreach (@arrayOJ){
@new=split(/\s+/,$_);
foreach $seq(@new){
#如果OJ中对应单... |