comparison complete_names.pl @ 3:637ed4e3aa1d draft default tip

Uploaded

2:bba379e32116

while(<P>){
	my $line = $_;
	$numline++;
	if (/^([\w\-]+)\s+/ && $numline > 1){
		my $reported_id = $1;
		print "ok"; 
		my $id = $ids[$numline-2];
		$line =~s/$reported_id/$id/g;
		print O $line;
	}
	else{

3:637ed4e3aa1d

while(<P>){
	my $line = $_;
	$numline++;
	if (/^([\w\-]+)\s+/ && $numline > 1){
		my $reported_id = $1;
		my $id = $ids[$numline-2];
		$line =~s/$reported_id/$id/g;
		print O $line;
	}
	else{