remove Subroutine that are now in Utilities

NBISweden · Apr 27, 2020 · b4697bf · b4697bf
1 parent f46aaf7
commit b4697bf
Show file tree

Hide file tree

Showing 4 changed files with 0 additions and 84 deletions.
diff --git a/annotation/tools/comparative_genomic/gaas_orthomcl_analyzeOG.pl b/annotation/tools/comparative_genomic/gaas_orthomcl_analyzeOG.pl
@@ -496,23 +496,6 @@ sub removeValueFromList{
     splice(@$array, $index, 1);
 }
 
-sub sizedPrint{
-  my ($term,$size) = @_;
-  my $result; my $sizeTerm=length($term);
-  if ($sizeTerm > $size ){
-    $result=substr($term, 0,$size);
-    return $result;
-  }
-  else{
-    my $nbBlanc=$size-$sizeTerm;
-    $result=$term;
-    for (my $i = 0; $i < $nbBlanc; $i++){
-      $result.=" ";
-    }
-    return $result;
-  }
-}
-
 sub sortOGforFlatDisplay{
 my ($hashOGref)=@_;
 my %hashOGidSentence;

diff --git a/annotation/tools/fasta/gaas_fasta_get_longestORF.pl b/annotation/tools/fasta/gaas_fasta_get_longestORF.pl
@@ -162,31 +162,6 @@
 my $end_run = time();
 my $run_time = $end_run - $start_run;
 print "Job done in $run_time seconds\n";
-#######################################################################################################################
-        ####################
-         #     METHODS    #
-          ################
-           ##############
-            ############
-             ##########
-              ########
-               ######
-                ####
-                 ##
-
-#check if reference exists in hash. Deep infinite : hash{a} or hash{a}{b} or hash{a}{b}{c}, etc.
-# usage example: exists_keys($hash_omniscient,('level3','cds',$level2_ID)
-sub exists_keys {
-    my ($hash, $key, @keys) = @_;
-
-    if (ref $hash eq 'HASH' && exists $hash->{$key}) {
-        if (@keys) {
-            return exists_keys($hash->{$key}, @keys);
-        }
-        return 1;
-    }
-    return '';
-}
 
 __END__
 

diff --git a/bin/gaas_fasta_get_longestORF.pl b/bin/gaas_fasta_get_longestORF.pl
@@ -162,31 +162,6 @@
 my $end_run = time();
 my $run_time = $end_run - $start_run;
 print "Job done in $run_time seconds\n";
-#######################################################################################################################
-        ####################
-         #     METHODS    #
-          ################
-           ##############
-            ############
-             ##########
-              ########
-               ######
-                ####
-                 ##
-
-#check if reference exists in hash. Deep infinite : hash{a} or hash{a}{b} or hash{a}{b}{c}, etc.
-# usage example: exists_keys($hash_omniscient,('level3','cds',$level2_ID)
-sub exists_keys {
-    my ($hash, $key, @keys) = @_;
-
-    if (ref $hash eq 'HASH' && exists $hash->{$key}) {
-        if (@keys) {
-            return exists_keys($hash->{$key}, @keys);
-        }
-        return 1;
-    }
-    return '';
-}
 
 __END__
 

diff --git a/bin/gaas_orthomcl_analyzeOG.pl b/bin/gaas_orthomcl_analyzeOG.pl
@@ -496,23 +496,6 @@ sub removeValueFromList{
     splice(@$array, $index, 1);
 }
 
-sub sizedPrint{
-  my ($term,$size) = @_;
-  my $result; my $sizeTerm=length($term);
-  if ($sizeTerm > $size ){
-    $result=substr($term, 0,$size);
-    return $result;
-  }
-  else{
-    my $nbBlanc=$size-$sizeTerm;
-    $result=$term;
-    for (my $i = 0; $i < $nbBlanc; $i++){
-      $result.=" ";
-    }
-    return $result;
-  }
-}
-
 sub sortOGforFlatDisplay{
 my ($hashOGref)=@_;
 my %hashOGidSentence;