initial import of Rajani's repo

svn path=/; revision=181

diff --git a/rajar/orypf.pl b/rajar/orypf.pl
new file mode 100644 (file)
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;
+