Laboratoire ICAR » Plateforme TXM

use strict;

use warnings;

use utf8;

use open ':encoding(utf8)';

#############

my $file = "LGeRM-lexique";

open (IN,"$file.xml") || die "Cannot read from $file.tsv\n";

open (OUT, ">$file.$$") || die "Cannot write to $file.$$\n";

print "Processing $file.xml\n";

my @lines = <IN>; close IN;

my $counter_lines = 0;

my $counter_parts = 1;

for my $line (@lines) {

	if ($counter_lines == 0 and $counter_parts > 1) {

		print OUT "<LexicalResource>\n"

	}

	$counter_lines++;

	if ($counter_lines < 1000000) {

		print OUT $line;

	}

	elsif ($line =~ /<\/lexicalEntry>/) {

		print OUT $line;

		print OUT "</LexicalResource>";

		close OUT;

		rename "$file.$$","$file-$counter_parts.xml" || die "Cannot write to $file-$counter_parts.xml\n";

		$counter_parts++;

		$counter_lines = 0;

		open (OUT, ">$file.$$") || die "Cannot write to $file.$$\n";

	}

	else {

		print OUT $line;

	}

}

close OUT;

rename "$file.$$","$file-$counter_parts.xml" || die "Cannot write to $file-$counter_parts.xml\n";

print "Done\n";