From abe9af07ddb9a9c2cff9db7046cbee3c4f24e86a Mon Sep 17 00:00:00 2001 From: Surya Saha Date: Fri, 10 Jul 2015 17:50:50 -0400 Subject: [PATCH] fixed typo in var name --- place_bacs.pl | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/place_bacs.pl b/place_bacs.pl index 1790e37..4aa1e11 100755 --- a/place_bacs.pl +++ b/place_bacs.pl @@ -164,15 +164,16 @@ =head1 TODO next; } chomp($line); - my @bac_and_coordinates = split( /\t/, $line ); - my $bac_name = $bac_and_coordinates[0]; #query + my @bac_end_coordinates = split( /\t/, $line ); + my $bac_name = $bac_end_coordinates[0]; #query if ( is_ncbi_format($bac_name) ){ $bac_name = get_accession($bac_name);} - my $bac_ref_start = $bac_and_coordinates[2]; #ref_start - my $bac_ref_end = $bac_and_coordinates[3]; #ref_end - my $bac_query_start = $bac_and_coordinates[5]; #query_start - my $bac_query_end = $bac_and_coordinates[6]; #query_end - my $bac_query_length = $bac_and_coordinates[7]; #query_length - my @bac_array = ( $bac_name, $bac_ref_start, $bac_ref_end, $bac_query_start, $bac_query_end, $bac_query_length ); + my $bac_ref_start = $bac_end_coordinates[2]; #ref_start + my $bac_ref_end = $bac_end_coordinates[3]; #ref_end + my $bac_query_start = $bac_end_coordinates[5]; #query_start + my $bac_query_end = $bac_end_coordinates[6]; #query_end + my $bac_query_length = $bac_end_coordinates[7]; #query_length + my $direction = $bac_end_coordinates[9]; #direction (+1 if in same orientation, -1 otherwise) + my @bac_array = ( $bac_name, $bac_ref_start, $bac_ref_end, $bac_query_start, $bac_query_end, $bac_query_length, $direction ); push( @bacs, \@bac_array ); }