#!/usr/bin/perl
#
#

my $bytes=0;
my $count=0;
my $filecount=0;
my $filenum=0;

my $filename = sprintf("uniprot%04d.rdf.gz", $filenum);
my $head = `cat ../head.xml`;
open F, "| gzip --best -c >> $filename";

while(<>) {
	$bytes += length( $_ );
	$count++;
	$filecount++;

	if( $filecount>10000000) {
		if($_=~/^<rdf:Description rdf:about/) {
			print STDERR "File: $filename Lines: $filecount Total Lines: $count Total bytes: $bytes\n";
			print F "</rdf:RDF>\n";
			close F;
			$filenum++;
			$filecount=0;
			$filename = sprintf("uniprot%04d.rdf.gz", $filenum);
			open F, "| gzip --best -c >> $filename";
			print F "$head\n";
		}
	}
	print F $_;
}
print F "</rdf:RDF>\n";
close F;