File: dovalidclean.pl

package info (click to toggle)
emboss 6.6.0%2Bdfsg-12
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 571,584 kB
  • sloc: ansic: 460,579; java: 29,383; perl: 13,573; sh: 12,753; makefile: 3,294; csh: 706; asm: 351; xml: 239; pascal: 237; modula3: 8
file content (20 lines) | stat: -rwxr-xr-x 424 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl -w

$name = shift @ARGV;
open(ACD, "$ENV{HOME}/local/share/EMBOSS/acd/$name.acd") || die "Cannot open $name.acd";
while(<ACD>) {
    if(/^\s+embassy:\s+"([^\"]+)"\s*$/) {$embassyname = $1;}
}
close ACD;

$cnt=0;
while (<>) {
    if (!$cnt++) {
	if(defined($embassyname)) {print "+$name ($embassyname)\n"}
	else {print "$name\n"}
    }
    s/ \S+\/([^\/.]+[.]acd) / $1 /;
    print;
}

if ($cnt) {print "\n"}