File: makeMatchLists.pl

package info (click to toggle)
augustus 3.5.0%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 777,036 kB
  • sloc: cpp: 80,063; perl: 21,491; python: 4,368; ansic: 1,244; makefile: 1,126; sh: 171; javascript: 32
file content (20 lines) | stat: -rwxr-xr-x 468 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl
#
# make for each matching est contig a list of matching genomic contigs in the same line
#

$oldestcontigname = "---begin---";
while (<>) {
    chomp;
    @f = split /\t/, $_;
    $estcontigname = $f[0];
    $genomiccontigname = $f[1];
    if ($estcontigname ne $oldestcontigname) {
	if ($oldestcontigname ne "---begin---") {
	    print "\n";
	}
	print $estcontigname;
    }
    print "\t$genomiccontigname";
    $oldestcontigname = $estcontigname;
}