[Bio] / FigKernelScripts / check_all_lost_sims.pl Repository:
ViewVC logotype

Annotation of /FigKernelScripts/check_all_lost_sims.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : efrank 1.1 $usage = "usage: check_all_lost_sims Deleted ReMapped OldSims NewSims";
2 :    
3 :     (($deleted = shift @ARGV) &&
4 :     ($remapped = shift @ARGV) &&
5 :     ($old = shift @ARGV) &&
6 :     ($new = shift @ARGV)
7 :     )
8 :     || die $usage;
9 :    
10 :     opendir(OLD,$old) || die "could not open $old";
11 :     @files = grep { $_ =~ /^\S/ } readdir(OLD);
12 :     closedir(OLD);
13 :    
14 :     foreach $file (@files)
15 :     {
16 :     $fileB = $file;
17 :     $fileB =~ s/\.gz$//;
18 :    
19 :     if ((-s "$old/$file") && (! -s "$new/$fileB"))
20 :     {
21 :     print "LOST FILE: $file\n";
22 :     }
23 :     if ($file eq $fileB)
24 :     {
25 :     system "check_lost_sims $deleted $remapped $new/$file < $old/$file";
26 :     }
27 :     else
28 :     {
29 :     system "zcat $old/$file | check_lost_sims $deleted $remapped $new/$file";
30 :     }
31 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3