[Bio] / DeJonghStuff / load_kegg.pl Repository:
ViewVC logotype

Diff of /DeJonghStuff/load_kegg.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Fri Nov 4 16:22:36 2005 UTC revision 1.3, Wed Nov 16 16:43:20 2005 UTC
# Line 19  Line 19 
19  my $usage = "usage: load_kegg";  my $usage = "usage: load_kegg";
20    
21  use Tracer;  use Tracer;
22  #TSetup('3 *', 'WARN');  #TSetup('2 *', 'WARN');
23  &load_ec_and_map_data;  &load_ec_and_map_data;
24  &load_compounds;  &load_compounds;
25  &load_reactions;  &load_reactions;
# Line 42  Line 42 
42                          $ec = $1;                          $ec = $1;
43                          while ($_ =~ /PATH:\s+(map\d+)\s+(\S[^\n]+\S)/sg)                          while ($_ =~ /PATH:\s+(map\d+)\s+(\S[^\n]+\S)/sg)
44                          {                          {
45                                    print ECMAP "$ec\t$1\n";
46                                  $name{$1} = $2;                                  $name{$1} = $2;
47                          }                          }
48                  }                  }
# Line 82  Line 83 
83      $/ = "\n///\n";      $/ = "\n///\n";
84      while (defined($entry = <TMPIN>))      while (defined($entry = <TMPIN>))
85      {      {
86                  if ($entry =~ /ENTRY\s+(C\d+)\s*\nNAME\s+(\S[^\n]*)\n((\s+(\S[^\n]*\S)\n)*)/s)                  if ($entry =~ /ENTRY\s+(C\d+).*\nNAME\s+(\S[^\n]*)\n((\s+(\S[^\n]*\S)\n)*)/s)
87                  {                  {
88                          $cid = $1;                          $cid = $1;
89                          $names = $2;                          $names = $2;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3