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

Diff of /FortyEight/get_number_of_external_jobs.pl

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

revision 1.3, Mon Nov 5 20:36:35 2007 UTC revision 1.4, Mon Nov 5 20:38:25 2007 UTC
# Line 57  Line 57 
57    
58    
59  my $nr_excluded = 0;  my $nr_excluded = 0;
60    my $nr_external = 0;
61  foreach my $user ( keys %overview ){  foreach my $user ( keys %overview ){
62    foreach my $genome ( keys %{ $overview{ $user } } ){    foreach my $genome ( keys %{ $overview{ $user } } ){
63      if ( $exclude->{ $user } ){      if ( $exclude->{ $user } ){
# Line 64  Line 65 
65      }      }
66      else{      else{
67        print $user , "\t" , $genome ,"\t", $overview{ $user }->{ $genome }, "\n";        print $user , "\t" , $genome ,"\t", $overview{ $user }->{ $genome }, "\n";
68          $nr_external++;
69      }      }
70    }    }
71  }  }
72    
73  print "Excluded jobs = $nr_excluded\n";  print "Excluded jobs = $nr_excluded\n";
74    print "External jobs = $nr_external\n";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3