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

View of /FigKernelScripts/get_dlit_data.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Sat May 11 18:43:53 2013 UTC (6 years, 6 months ago) by overbeek
Branch: MAIN
CVS Tags: rast_rel_2014_0729, rast_rel_2014_0912, HEAD
exemplar code

use strict;
use Data::Dumper;
use FIG;
my $fig = new FIG;

my $dlits = $fig->all_dlits();
foreach my $dlit (@$dlits)
{
    my($status,$md5,$pubmed,$curator) = @$dlit;
    my @pegs = $fig->pegs_with_md5($md5);
    if ((@pegs > 0) && ($pubmed ne '1'))
    {
	print "literature_ref('$md5',$pubmed).\n";
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3