| Previous changeset 23:7dd78ad2875f (2017-10-20) Next changeset 25:f5da139a09b4 (2017-10-23) |
|
Commit message:
Uploaded |
|
modified:
bin/align.pm |
| b |
| diff -r 7dd78ad2875f -r 08bbde9d0c9d bin/align.pm --- 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 |