it pt_PT-it_IT

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);
}
}

##

##




  
     
     
     
     
     
    it
    pt_PT-it_IT
  
  




  
     
     
     
     
     
    it
    pt_PT-it_IT
  
  
    
       
       
       
       
      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.