Mercurial > repos > romaingred > pirna_pipeline

changeset 24:08bbde9d0c9d draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author romaingred
date Mon, 23 Oct 2017 08:16:22 -0400
parents 7dd78ad2875f
children f5da139a09b4
files bin/align.pm
diffstat 1 files changed, 11 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/bin/align.pm	Fri Oct 20 09:33:54 2017 -0400
+++ b/bin/align.pm	Mon Oct 23 08:16:22 2017 -0400
@@ -15,12 +15,18 @@
 
 sub to_build
 {
-	my $toBuildHashP  = shift; my $log = shift;
+  my ( $toBuildTabP, $log, $newdir ) = @_;
 
-	while ( my ( $k, $v ) = each %{ $toBuildHashP } )
-	{
-		build_index ( $k, $log ) if $v == 1;
-	}
+  foreach my  $pairs ( @{ $toBuildTabP } ) 
+  {
+    if (  $pairs->[0] == 1 ) 
+    {   
+      my $sym = $newdir.basename(${$pairs->[1]}).'_symlink.fa';
+      symlink( ${$pairs->[1]}, $sym );
+      ${$pairs->[1]} = $sym;
+      build_index ( ${$pairs->[1]}, $log );
+    }   
+  }
 }
 
 sub build_index