mirror of
http://43.156.76.180:8026/YuuMJ/EukPhylo.git
synced 2025-12-28 05:40:26 +08:00
20 lines
402 B
Perl
20 lines
402 B
Perl
#!/usr/local/bin/perl -w
|
|
use strict;
|
|
|
|
@ARGV >= 1 or die "USAGE: $0 guidanceDir1 [guidanceDir2...]\n";
|
|
|
|
my @guidanceDirs = @ARGV;
|
|
|
|
my ($c,@gr);
|
|
foreach my $dir (@guidanceDirs) {
|
|
print "*** $dir\n";
|
|
if (-e "$dir/Col_Scores_Graph.png") {
|
|
print "Completed successfully\n";
|
|
} elsif (-e "$dir/MSA.PRANK.aln.std") {
|
|
$c = "cat $dir/MSA.PRANK.aln.std";
|
|
@gr = `$c`;
|
|
print "> $c\n@gr";
|
|
}# elsif {
|
|
|
|
}
|