File: makeMatchLists.pl

package info (click to toggle)
augustus 3.4.0%2Bdfsg2-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 758,480 kB
  • sloc: cpp: 65,451; perl: 21,436; python: 3,927; ansic: 1,240; makefile: 1,032; sh: 189; 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;
}