ls -d1 T0*/ | perl -ne 'chomp; chop; chop; my $t=$_; my $fout="$t\/$t\_tm.all.dat"; open(FOUT, "> $fout") || die "Cannot open fout $fout : $!\n"; my @fs=glob("$t\/*.tm"); for $f(@fs){ $f =~ /^$t\/($t.*?)\_(.*?)\.tm$/ || die "Weird dali file name $f\n"; my $tmtarg=$1; my $serv=$2; open(F, $f) || die "Cannot open input $f : $!\n"; $/ =" TM-score="; my @chunks=<F>; close(F); $/="\n"; if($chun
ks[1] =~ /^(.*?)\, ID\=/) { $s=$1; print FOUT "$tmtarg\t$serv\t$s\n";  } else { warn "No TM score in file $f\n"; }  } close(FOUT); ' > & collect_tm.log &