From 6659fa5f9a0a9da920619c54d79e407d2c810258 Mon Sep 17 00:00:00 2001
From: rajar <rajar@localhost>
Date: Tue, 1 Nov 2011 20:24:46 +0000
Subject: [PATCH] Script to run TMMHMM

svn path=/; revision=201
---
 interpro/.gitignore   |  0
 interpro/RUN_TMHMM.pl | 52 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 52 insertions(+)
 delete mode 100644 interpro/.gitignore
 create mode 100644 interpro/RUN_TMHMM.pl

diff --git a/interpro/.gitignore b/interpro/.gitignore
deleted file mode 100644
index e69de29..0000000
diff --git a/interpro/RUN_TMHMM.pl b/interpro/RUN_TMHMM.pl
new file mode 100644
index 0000000..6aaf9a2
--- /dev/null
+++ b/interpro/RUN_TMHMM.pl
@@ -0,0 +1,52 @@
+#!/usr/bin/perl
+#use strict;
+# create the variables
+# keys is $gene_header, values is $seq
+my %seq_hash; 
+my $gene_header;
+my $saeq;
+$file = "/lemma/Rajani/iprscan/Toly_new.fa";   
+open(in_file,$file);
+   
+while(<in_file>) 
+{
+        my $line = $_;
+        chomp $line;
+
+
+        if($line =~ /^\>/)
+          {
+               if(defined($gene_header))
+             {
+                  $seq_hash{$gene_header} = $seq;
+             }
+                  $gene_header = $line;
+                  $seq = "";
+         }
+      else
+            {
+                $seq = "$seq"."$line";
+            }
+            $seq_hash{$gene_header} = $seq;
+
+       }
+   
+#foreach $key(%seq_hash)
+#{
+#print "Gene is $key  and the sequence is  $seq_hash{$gene_header} \n";
+#}
+
+while (($key, $value) = each(%seq_hash))
+{
+    # print $key."\n".$value."\n";
+
+              open(FILE1,">Toly.seq") || die("Cannot Open File");
+              print FILE1 "$key\n";
+              print FILE1 "$value";
+
+$status7 = system("/lemma/SignalP/TMHMM2.0c/bin/tmhmm  tmhmm Toly.seq >> Toly_tmhmmdata.txt");
+
+
+}
+
+
-- 
2.34.1