From: rajar Date: Wed, 2 Nov 2011 21:46:59 +0000 (+0000) Subject: removed one file X-Git-Url: http://gitweb.planteome.org/?a=commitdiff_plain;h=adff44e0961b56052da9023d585d24bbdb462ff6;p=old-jaiswallab-svn%2F.git removed one file svn path=/; revision=211 --- diff --git a/Personnel/rajar/.gitignore b/Personnel/rajar/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/Personnel/rajar/orypf.pl b/Personnel/rajar/orypf.pl deleted file mode 100644 index 04f1630..0000000 --- a/Personnel/rajar/orypf.pl +++ /dev/null @@ -1,55 +0,0 @@ -#!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 =; -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;