[Bio] / FigKernelScripts / svr_compare_feature_tables.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/svr_compare_feature_tables.pl

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

revision 1.4, Sun Aug 29 23:00:24 2010 UTC revision 1.6, Mon Oct 4 22:00:56 2010 UTC
# Line 4  Line 4 
4  #       This is a SAS Component.  #       This is a SAS Component.
5  #  #
6    
7  #  ########################################################################
8  # Copyright (c) 2003-2006 University of Chicago and Fellowship  # Copyright (c) 2003-2006 University of Chicago and Fellowship
9  # for Interpretations of Genomes. All Rights Reserved.  # for Interpretations of Genomes. All Rights Reserved.
10  #  #
# Line 19  Line 19 
19  # at info@ci.uchicago.edu or the Fellowship for Interpretation of  # at info@ci.uchicago.edu or the Fellowship for Interpretation of
20  # Genomes at veronika@thefig.info or download a copy from  # Genomes at veronika@thefig.info or download a copy from
21  # http://www.theseed.org/LICENSE.TXT.  # http://www.theseed.org/LICENSE.TXT.
22  #  ########################################################################
23    
24  #  =head1 svr_compare_feature_tables
25  # Input files:  
26  #  usage: svr_compare_feature_tables  old_features.tab  new_fatures.tab  [summary.yaml] > comparison.tab  2> summary.txt
27  # ID seed-format-location function  
28  #  Input .tab-file format:
29    
30    ID field2 field3 ... seed-format-location function
31    
32    =cut
33    
 # usage:  svr_compare_feature_tables  old_features.tab  new_fatures.tab  [summary.yaml] > comparison.tab  2> summary.txt  
34    
35  use strict;  use strict;
36  use warnings;  use warnings;
# Line 40  Line 43 
43  $0 =~ m/([^\/]+)$/;  $0 =~ m/([^\/]+)$/;
44  my $self  = $1;  my $self  = $1;
45  my $usage = "$self  old_features.tab  new_fatures.tab [summary.yaml] \> comparison.tab  2\> summary.txt";  my $usage = "$self  old_features.tab  new_fatures.tab [summary.yaml] \> comparison.tab  2\> summary.txt";
46    if (@ARGV && ($ARGHV[0] =~ m/^-{1,2}help$/o)) {
47        print STDERR "   usage: $usage\n";
48        exit(0);
49    }
50    
51    
52  my $old_tab_file;  my $old_tab_file;
53  (($old_tab_file = shift) && (-f $old_tab_file))  (($old_tab_file = shift) && (-f $old_tab_file))
# Line 194  Line 202 
202          next if ($entry =~ m/^\#/);          next if ($entry =~ m/^\#/);
203    
204          chomp $entry;          chomp $entry;
205          my @fields = split /\t/, $entry;          my @fields = split /\t/, $entry, -1;
206          $id    = shift @fields;          $id    = shift @fields;
207          $func  = pop @fields;          $func  = pop @fields;
208          $locus = pop @fields;          $locus = pop @fields;

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3