Mercurial > repos > dereeper > readseq

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author dereeper
date Tue, 08 Jan 2019 10:17:16 -0500
parents bba379e32116
children
comparison
equal deleted inserted replaced
2:bba379e32116 3:637ed4e3aa1d
20 while(<P>){ 20 while(<P>){
21 my $line = $_; 21 my $line = $_;
22 $numline++; 22 $numline++;
23 if (/^([\w\-]+)\s+/ && $numline > 1){ 23 if (/^([\w\-]+)\s+/ && $numline > 1){
24 my $reported_id = $1; 24 my $reported_id = $1;
25 print "ok";
26 my $id = $ids[$numline-2]; 25 my $id = $ids[$numline-2];
27 $line =~s/$reported_id/$id/g; 26 $line =~s/$reported_id/$id/g;
28 print O $line; 27 print O $line;
29 } 28 }
30 else{ 29 else{