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

Diff of /FigKernelScripts/svr_in_runs.pl

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

revision 1.1, Wed Jul 15 23:36:53 2009 UTC revision 1.2, Wed Jul 22 18:33:24 2009 UTC
# Line 37  Line 37 
37      }      }
38    
39      my $line;      my $line;
     my %lines;  
40      while (defined($line = <STDIN>)) {      while (defined($line = <STDIN>)) {
         # Compute the index for this line.  
         my $i = $. - 1;  
41          # Remove the new-line.          # Remove the new-line.
42          chomp $line;          chomp $line;
         # Save the line in the line hash.  
         $lines{$i} = $line;  
43          # Get the fields in the line.          # Get the fields in the line.
44          my @fields = split /\t/, $line;          my @fields = split /\t/, $line;
45          # Put the last field in the output list.          # The last field is the group.
46          push @{$args{groups}}, $fields[$#fields];          $args{groups} = [$fields[$#fields]];
47      }          # Make the runs for this group.
   
48      my $res =  $ss->make_runs(%args);      my $res =  $ss->make_runs(%args);
49            # Output the result.
50      foreach my $i (sort keys(%{$res})) {          foreach my $run (@{$res->{0}}) {
51          foreach my $j (@{$res->{$i}}) {              print join("\t", $line, $run) . "\n";
             print join("\t", $lines{$i}, $j) . "\n";  
52          }          }
53      }      }
54    
   
   
55   exit;   exit;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3