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

View of /FigKernelScripts/SwissProtJSON_to_loadfile.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Wed Jun 22 14:00:44 2016 UTC (3 years, 4 months ago) by golsen
Branch: MAIN
CVS Tags: HEAD
Create wrapper program SwissProtXML_to_JSON for the XML to JSON; includes
ability to download the latest XML release from Swiss-Prot.
Create wrapper program SwissProtJSON_to_loadfile for the JSON to SEEDtk
loadfile.

#!/usr/bin/env perl
#
#  Map SEED assignments to Swiss-Prot
#
#      SwissProtJSON_to_loadfile  < uniprot_sprot.json > uniprot_sprot.loadfile
#
use strict;
use SwissProtUtils;

my $usage = <<'End_of_Usage';

Convert a Swiss-Prot XML distribution to JSON

    SwissProtJSON_to_loadfile  < uniprot_sprot.json  > uniprot_sprot.loadfile

The loadfile record format is:

    accession \t id \t md5 \t definition \t organism \t taxid \t JSON

End_of_Usage

while ( @ARGV && $ARGV[0] =~ s/^-// )
{
    local $_ = shift;
    if ( /./ )
    {
        print STDERR "Bad flag(s) '$_'.\n", $usage;
        exit;
    }
}

SwissProtUtils::JSON_to_loadfile( undef, undef );


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3