From 370fb33e7a4170669a30cdfd69fdbd56cf78dd73 Mon Sep 17 00:00:00 2001 From: elserj Date: Fri, 3 Sep 2010 00:23:46 +0000 Subject: [PATCH] Added a test script for find_species.pl subroutines svn path=/; revision=23 --- interactome_scripts/find_species_test.pl | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100755 interactome_scripts/find_species_test.pl diff --git a/interactome_scripts/find_species_test.pl b/interactome_scripts/find_species_test.pl new file mode 100755 index 0000000..45b6fc8 --- /dev/null +++ b/interactome_scripts/find_species_test.pl @@ -0,0 +1,22 @@ +#!/usr/bin/perl + +# script to test if current version of find_species.pl subroutines are correct +# run from protein sequences directory + +use strict; +use warnings; + +require "$ENV{HOME}/scripts/jaiswallab/interactome_scripts/find_species.pl"; + +my @file_array = qx(ls | grep -v ___ | grep -v bad_sequence); + +for(my $i =0; $i<@file_array; $i++) { + $file_array[$i] =~ s/\r//g; + $file_array[$i] =~ s/\n//g; + #print "$files[$i]\n"; +} + +foreach my $file (@file_array) { + my $spec = find_species($file); + print "$file\t\t$spec\n"; +} -- 2.34.1