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

Annotation of /FigKernelScripts/process_new_sims.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : efrank 1.1 use FIG;
2 :    
3 :     $usage = "usage: process_new_sims NR SimsDir Prefix EnhancedSimsDir";
4 :    
5 :     (($nr = shift @ARGV) && (-s $nr) &&
6 :     ($from_dir = shift @ARGV) &&
7 :     ($prefix = shift @ARGV) &&
8 :     ($to_dir = shift @ARGV)
9 :     ) || die $usage;
10 :    
11 :     opendir(FROM,$from_dir) || die "could not open $from_dir";
12 :     @to_process = grep { $_ !~ /^\./ } readdir(FROM);
13 :     closedir(FROM);
14 :    
15 :     (-d $to_dir) || mkdir($to_dir,0777) || die "could not make $to_dir";
16 :    
17 :     foreach $file (@to_process)
18 :     {
19 :     print STDERR "processing $file\n";
20 :     my $base = ($file =~ /^(\S+).gz$/) ? $1 : $file;
21 :    
22 :     if (-e "$to_dir/$prefix.$base")
23 :     {
24 :     print STDERR "$to_dir/$base already exists - skipping\n";
25 :     }
26 :     else
27 :     {
28 :     if ($file =~ /^(\S+)\.gz$/)
29 :     {
30 :     &FIG::run("zcat $from_dir/$file | reduce_sims | reformat_sims $nr > $to_dir/$prefix.$base");
31 :     }
32 :     else
33 :     {
34 :     &FIG::run("reduce_sims < $from_dir/$file | reformat_sims $nr > $to_dir/$prefix.$file");
35 :     }
36 :     }
37 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3