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

Annotation of /FigKernelPackages/FIGUtilities.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : olson 1.1 #
2 :     # Package of simple fig utility fns. Names exported to calling namespace.
3 :     #
4 :    
5 :     package FIGUtilities;
6 :    
7 :     use base 'Exporter';
8 :    
9 :     @EXPORT = qw(
10 :     max
11 :     min
12 :     ftype
13 :     genome_of
14 :     );
15 :    
16 :    
17 :     sub max {
18 :     my(@x) = @_;
19 :     my($max,$i);
20 :    
21 :     (@x > 0) || return undef;
22 :     $max = $x[0];
23 :     for ($i=1; ($i < @x); $i++) {
24 :     $max = ($max < $x[$i]) ? $x[$i] : $max;
25 :     }
26 :     return $max;
27 :     }
28 :    
29 :     sub min {
30 :     my(@x) = @_;
31 :     my($min,$i);
32 :    
33 :     (@x > 0) || return undef;
34 :     $min = $x[0];
35 :     for ($i=1; ($i < @x); $i++) {
36 :     $min = ($min > $x[$i]) ? $x[$i] : $min;
37 :     }
38 :     return $min;
39 :     }
40 :     sub ftype {
41 :     my($feature_id) = @_;
42 :    
43 :     if ($feature_id =~ /^fig\|\d+\.\d+\.([^\.]+)/) {
44 :     return $1;
45 :     }
46 :     return undef;
47 :     }
48 :    
49 :     sub genome_of {
50 :     my $prot_id = (@_ == 1) ? $_[0] : $_[1];
51 :    
52 :     if ($prot_id =~ /^fig\|(\d+\.\d+)/) { return $1; }
53 :     return undef;
54 :     }
55 :    
56 :    
57 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3