#!/usr/bin/perl #-*-perl-*- # # Copyright (C) 2004 J�rg Tiedemann # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # use strict; use FindBin qw($Bin); my $time = localtime(); my $srclang='en'; my $trglang='nl'; while ($ARGV[0]=~/^\-/){ my $o=shift(@ARGV); if ($o=~/^\-s/){$srclang=shift @ARGV;} if ($o=~/^\-t/){$trglang=shift @ARGV;} } binmode(STDIN, ":utf8"); binmode(STDOUT, ":utf8"); &PrintTMXHeader(); while (<>){ chomp; my ($src,$trg)=split(/\t/); &txt2xml($src); &txt2xml($trg); print " \n"; print " "; print $src; print "\n"; print " "; print $trg; print "\n"; print " \n"; } &PrintTMXTail(); # simplistic conversion of text to xmlified text sub txt2xml{ # my $string=shift; $_[0]=~s/\&/\&\;/gs; $_[0]=~s/\/\>\;/gs; # $_[0]=~s/\"/\"\;/gs; # $_[0]=~s/\'/\&apos\;/gs; # return $string; } sub PrintTMXHeader{ print ''."\n"; print ''."\n"; print '

'."\n"; print ' '."\n"; } sub PrintTMXTail{ print ' '."\n"; print ''."\n"; }