no
yes
<seg>O recinto do Pavilhão Atlântico, versátil por natureza, está vocacionado para receber os mais variados eventos.</seg>
<seg>A Sala Atlântico, com uma arena de 5 200 m2, abriga, com uma versatilidade única, todo o tipo de eventos.</seg>
Composto por três áreas integradas, todos os espaços são facilmente adaptados às características de cada evento.
È composto da tre aree fra di esse integrate, le quali sono tutte facilmente adattabili alle caratteristiche specifiche di ogni evento.
no
yes
<seg>Composto por três áreas integradas, todos os espaços são facilmente adaptados às características de cada evento.</seg>
O recinto do Pavilhão Atlântico, versátil por natureza, está vocacionado para receber os mais variados eventos.
Lo spazio di pertinenza del Pavilhão Atlântico, versatile per natura, è adatto a ricevere gli eventi più svariati.
no
yes
<seg>Composto por três áreas integradas, todos os espaços são facilmente adaptados às características de cada evento.</seg>
Composto por três áreas integradas, todos os espaços são facilmente adaptados às características de cada evento.
Lo spazio di pertinenza del Pavilhão Atlântico, versatile per natura, è adatto a ricevere gli eventi più svariati.
no
yes
<seg>Composto por três áreas integradas, todos os espaços são facilmente adaptados às características de cada evento.</seg>
Teste
Lo spazio di pertinenza del Pavilhão Atlântico, versatile per natura, è adatto a ricevere gli eventi più svariati.
no
yes
<seg>Composto por três áreas integradas, todos os espaços são facilmente adaptados às características de cada evento.</seg>
Teste
Lo spazio di pertinenza del Pavilhão Atlântico, versatile per natura, è adatto a ricevere gli eventi più svariati.
####
use 5.010;
use strict;
use warnings;
use XML::Twig;
#use Digest::MD5 qw(md5);
my $filename = 'pt_PT-it_IT-novo2.tmx';
my $out_filename = 'out.tmx';
open my $out, '>', $out_filename;
binmode $out, ':encoding(UTF-8)';
print "PASSAGEM 1...\n";
my $first_pass = new XML::Twig (twig_handlers => {tu => \&first_pass});
$first_pass->parsefile($filename);
$first_pass->purge();
print "FEITO\n";
print "\nPASSAGEM 2....\n";
my $second_pass = new XML::Twig (#twig_roots => { 'tu' => 1 },
#twig_print_outside_roots => 1,
pretty_print => 'indented',
twig_handlers => {tu => \&second_pass});
$second_pass->parsefile($filename);
close $out;
print "\nFEITO\n";
{my %hash;
sub first_pass {
my($twig, $tu) = @_;
my $seg = $tu->first_child('tuv')->first_child('seg')->text;
my $changedate = $tu->att('changedate');
#$changedate = substr $changedate, 0, 8;
#my $hash = md5($seg);
if (
(!(exists($hash{$seg})) )
|| (($hash{$seg}) lt $changedate)
) {
$hash{$seg} = $changedate;
}
$twig->purge();
}
sub second_pass {
my($twig, $tu) = @_;
#print $original_tu->text;
my $seg = $tu->first_child('tuv')->first_child('seg')->text;
my $changedate = $tu->att('changedate');
#$changedate = substr $changedate, 0, 8;
#my $hash = md5($seg);
if (!(($hash{$seg}) eq $changedate)) {
print "================================\n";
print "APAGADO\n";
print $seg;
print "\n POIS DATA DE ORIGINAL: ";
print $changedate;
print " E MAIS ANTIGA QUE ENCONTRADA: ";
print $hash{$seg};
print "\n=================================\n";
$tu->delete;
}
$twig->flush($out);
}
}
####
no
yes
<seg>Composto por três áreas integradas, todos os espaços são facilmente adaptados às características de cada evento.</seg>
O recinto do Pavilhão Atlântico, versátil por natureza, está vocacionado para receber os mais variados eventos.
Lo spazio di pertinenza del Pavilhão Atlântico, versatile per natura, è adatto a ricevere gli eventi più svariati.
no
yes
<seg>Composto por três áreas integradas, todos os espaços são facilmente adaptados às características de cada evento.</seg>
Composto por três áreas integradas, todos os espaços são facilmente adaptados às características de cada evento.
Lo spazio di pertinenza del Pavilhão Atlântico, versatile per natura, è adatto a ricevere gli eventi più svariati.
no
yes
<seg>Composto por três áreas integradas, todos os espaços são facilmente adaptados às características de cada evento.</seg>
Teste
Lo spazio di pertinenza del Pavilhão Atlântico, versatile per natura, è adatto a ricevere gli eventi più svariati.