[Bio] / FortyEight / rp_chunk_sims.pl Repository:
ViewVC logotype

Diff of /FortyEight/rp_chunk_sims.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Wed Nov 29 15:19:19 2006 UTC revision 1.3, Wed Sep 5 20:59:03 2007 UTC
# Line 14  Line 14 
14  use File::Basename;  use File::Basename;
15  use Cwd 'abs_path';  use Cwd 'abs_path';
16    
17  @ARGV == 4 or die "Usage: $0 fasta-file nr peg.synonyms sims-job-dir\n";  my $usage = "Usage: $0 [-size max-size] fasta-file nr peg.synonyms sims-job-dir";
18    
19    my $max_size = 10_000;
20    
21    while (@ARGV > 0 and $ARGV[0] =~ /^-/)
22    {
23        my $arg = shift @ARGV;
24        if ($arg =~ /^-size/)
25        {
26            $max_size = shift @ARGV;
27        }
28        else
29        {
30            die $usage;
31        }
32    }
33    
34    @ARGV == 4 or die $usage;
35    
36  my $fasta = shift;  my $fasta = shift;
37  my $nr_file = shift;  my $nr_file = shift;
# Line 23  Line 40 
40    
41  -d $jobdir or mkdir $jobdir or die "Cannot mkdir $jobdir: $!\n";  -d $jobdir or mkdir $jobdir or die "Cannot mkdir $jobdir: $!\n";
42    
 my $max_size = 10_000;  
43  my $next_task = 1;  my $next_task = 1;
44  my $last_task;  my $last_task;
45    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3