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

Diff of /FigKernelScripts/svr_mapped_genomes.pl

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

revision 1.2, Thu Aug 26 19:13:04 2010 UTC revision 1.3, Thu Oct 21 13:02:28 2010 UTC
# Line 96  Line 96 
96    
97  $genome || die "You need to specify a reference genome";  $genome || die "You need to specify a reference genome";
98  &SeedUtils::verify_dir($directory);  &SeedUtils::verify_dir($directory);
99    open my $ih, "d:/bruce/downloads/other.genomes";
100  my @lines = map   { chomp; [split(/\t/,$_)] } <STDIN>;  my @lines = map   { chomp; [split(/\t/,$_)] } <$ih>;
101  if (! $column)    { $column = @{$lines[0]} }  if (! $column)    { $column = @{$lines[0]} }
102  my @against = map { $_->[$column-1] } @lines;  my @against = map { $_->[$column-1] } @lines;
103  foreach my $other (@against)  foreach my $other (@against)

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3