#!/usr/bin/perl

use strict;
use warnings;
use Symbol;
use XML::Writer;

my $filename = $ARGV[0];
my $fh = gensym();
open $fh, $filename or die $!;

my $writer = new XML::Writer(DATA_MODE => 1, DATA_INDENT => 0);

$writer->startTag("translate", filename => $filename);
my $this_para = undef;
while (my $line = <$fh>) {
	if ($line eq $/) {
		paragraph($this_para);
		$this_para = undef;
		next;
	} else {
		$this_para .= $line;
	}
}
if ($this_para) {
	paragraph($this_para);
}
$writer->endTag("translate");
$writer->end();

sub paragraph {
	my $p = shift;
	$writer->startTag("p");
	$writer->startTag("orig");
	print $/;
	$writer->characters($p);
	$writer->endTag("orig");
	$writer->startTag("trans");
	print $/;
	$writer->characters($p);
	$writer->endTag("trans");
	$writer->endTag("p");
}

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use Symbol;
use XML::Parser;

local %Traduzir::ThisP;
local %Traduzir::Data;
local $Traduzir::Original;
local $Traduzir::State;
my $parser = new XML::Parser(Style => 'Traduzir::Parser');
$parser->parsefile($ARGV[0]);

my $fh = gensym();
open $fh, $Traduzir::Original or die $!;
my $this_para = undef;
while (my $line = <$fh>) {
	if ($line eq $/) {
		paragraph($this_para);
		$this_para = undef;
		next;
	} else {
		$this_para .= $line;
	}
}
if ($this_para) {
	paragraph($this_para);
}

sub paragraph {
	my $p = shift;
	if (not defined $p) {
		print $/;
		return;
	}
	if (exists $Traduzir::Data{$p}) {
		print $Traduzir::Data{$p}.$/;
	} else {
		print $p.$/;
	}
}

package Traduzir::Parser;

sub Start {
	my ($expat, $elem, %attrs) = @_;
	$Traduzir::State = $elem;
	if ($elem eq 'translate') {
		$Traduzir::Original = $attrs{filename};
		%Traduzir::Data = ();
	} elsif ($elem eq 'p') {
		%Traduzir::ThisP = ();
	}
}

sub End {
	my ($expat, $elem) = @_;
	if ($elem eq 'p') {
		$Traduzir::Data{$Traduzir::ThisP{orig}} = $Traduzir::ThisP{trans};
		%Traduzir::ThisP = ();
	} elsif ($elem eq 'orig') {
		$Traduzir::ThisP{orig} =~ s/^\n//;
		$Traduzir::State = '';
	} elsif ($elem eq 'trans') {
		$Traduzir::ThisP{trans} =~ s/^\n//;
		$Traduzir::State = '';
	}
}

sub Char {
	my ($expat, $str) = @_;
	if ($Traduzir::State eq 'orig') {
		$Traduzir::ThisP{orig} .= $str;
	} elsif ($Traduzir::State eq 'trans') {
		$Traduzir::ThisP{trans} .= $str;
	}
}