From: rajar <rajar@localhost>
Date: Wed, 14 Sep 2011 21:11:03 +0000 (+0000)
Subject: initial import of Rajani's repo
X-Git-Url: http://gitweb.planteome.org/?a=commitdiff_plain;h=fb88b74e63824f673678b1cff831e835d2e3ab0e;p=old-jaiswallab-svn%2F.git

initial import of Rajani's repo

svn path=/; revision=181
---

diff --git a/rajar/orypf.pl b/rajar/orypf.pl
new file mode 100644
index 0000000..75aaa44
--- /dev/null
+++ b/rajar/orypf.pl
@@ -0,0 +1,56 @@
+#!usr/bin/perl
+#This program is written by Rajani Raja
+#This is a program to get .pf file used in strawberrycyc
+#===========================================================================
+# Enable Perl warnings
+#use strict;
+#use warnings;
+#use Array::Unique;
+
+#Load libraries
+
+
+
+$f2 = "ORY_PF.txt";
+open(FH2,$f2) || die ("could not open file!");
+@final =<FH2>;
+close FH2;
+$finalcnt =@final;
+print $finalcnt;
+print "\n";
+open(FH,">>orypf.txt");
+for($i=0;$i<$finalcnt;$i++)
+{
+
+if(@final[$i] =~ m/ID/)
+{
+#print FH "//";
+print FH @final[$i];
+#print FH "\t";
+}
+elsif(@final[$i] =~ m/FUNCTION/)
+{
+print FH @final[$i];
+#print FH "\t";
+}
+elsif(@final[$i] =~ m/EC/)
+{
+print FH @final[$i];
+#print FH "\t";
+
+}
+elsif(@final[$i] =~ m/SYNONYM/)
+{
+print FH @final[$i];
+#print FH "\t";
+}
+
+}
+
+close FH;
+
+$final2cnt =@final2;
+print $finalcnt;
+print "\n";
+#print $final2cnt;
+