[Bio] / FigKernelPackages / raelib.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/raelib.pm

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

revision 1.9, Sun Apr 3 19:25:21 2005 UTC revision 1.13, Wed May 4 03:07:23 2005 UTC
# Line 2  Line 2 
2    
3  =pod  =pod
4    
5  =head1  =head1 RAE Library
6    
7   Some routines and things that Rob uses. Please feel free to use at will and incorporate into   Some routines and things that Rob uses. Please feel free to use at will and incorporate into
8   your own code or move them into FIG.pm or elsewhere.   your own code or move them into FIG.pm or elsewhere.
# Line 86  Line 86 
86    
87  sub pirsfcorrespondence {  sub pirsfcorrespondence {
88   my ($self, $from, $to, $verbose)=@_;   my ($self, $from, $to, $verbose)=@_;
89   die "File $from does not exist as called in $0" unless (-e $from);   unless (-e $from) {
90      print STDERR "File $from does not exist as called in $0\n";
91      return 0;
92     }
93   open (IN, $from) || die "Can't open $from";   open (IN, $from) || die "Can't open $from";
94   open (OUT, ">$to") || die "Can't write to $to";   open (OUT, ">$to") || die "Can't write to $to";
95   my $linecount;   my $linecount;
# Line 100  Line 103 
103     print OUT $_, "\t", $peg, "\n";     print OUT $_, "\t", $peg, "\n";
104     $done=1;     $done=1;
105    }    }
106      unless ($done) {
107       foreach my $peg ($fig->by_alias("tr|$_")) {
108        print OUT $_, "\t", $peg, "\n";
109        $done=1;
110       }
111      }
112      unless ($done) {
113       foreach my $peg ($fig->by_alias("sp|$_")) {
114        print OUT $_, "\t", $peg, "\n";
115        $done=1;
116       }
117      }
118    unless ($done) {print OUT $_, "\t\n"}    unless ($done) {print OUT $_, "\t\n"}
119   }   }
120   close IN;   close IN;
# Line 184  Line 199 
199   my @return;   my @return;
200   my @attr=$fig->feature_attributes($peg);   my @attr=$fig->feature_attributes($peg);
201   foreach my $attr (@attr) {   foreach my $attr (@attr) {
202    my ($gottag, $val, $link)=@$attr;    my ($gotpeg, $gottag, $val, $link)=@$attr;
203    push @return, $val if ($gottag eq $tag);    push @return, $val if ($gottag eq $tag);
204   }   }
205   return wantarray ? @return : join "; ", @return;   return wantarray ? @return : join "; ", @return;

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.13

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3