From: elserj Date: Tue, 25 Oct 2011 22:14:52 +0000 (+0000) Subject: restructuring of the jaiswal lab svn repo X-Git-Url: http://gitweb.planteome.org/?a=commitdiff_plain;h=8f08cd3d64308205f52e2f48cffc667d9b946b27;p=old-jaiswallab-svn%2F.git restructuring of the jaiswal lab svn repo svn path=/; revision=196 --- diff --git a/Personnel/athreyab/.gitignore b/Personnel/athreyab/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/Personnel/elserj/.gitignore b/Personnel/elserj/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/Personnel/foxsa/.gitignore b/Personnel/foxsa/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/Personnel/preecej/.gitignore b/Personnel/preecej/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/Personnel/rajar/orypf.pl b/Personnel/rajar/orypf.pl new file mode 100644 index 0000000..04f1630 --- /dev/null +++ b/Personnel/rajar/orypf.pl @@ -0,0 +1,55 @@ +#!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; diff --git a/foxsa/test_file.txt b/foxsa/test_file.txt deleted file mode 100644 index 407a957..0000000 --- a/foxsa/test_file.txt +++ /dev/null @@ -1,3 +0,0 @@ -test 1 - -modified by sam fox - 13:23 - 10/25/11 \ No newline at end of file diff --git a/image_annotation/.gitignore b/image_annotation/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/interpro/.gitignore b/interpro/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/planteome/.gitignore b/planteome/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/rajar/orypf.pl b/rajar/orypf.pl deleted file mode 100644 index 75aaa44..0000000 --- a/rajar/orypf.pl +++ /dev/null @@ -1,56 +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; -