通过Perl脚本为Zendèu translate进行翻译

Posted 2021-02-26

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Cwd;
use List::MoreUtils qw/ uniq /;
 
use File::Find;
 
my $file_pattern  =$ARGV[2];
my $path = cwd."/".$ARGV[0];
my $trans_file = cwd."/".$ARGV[1];
my @out;
my @uniq;
my $tlumaczenia = 0;
my $xml;
 
find(&translate_check, $path);
 
sub translate_check
{
	my $file = $File::Find::name;
	return unless $file =~ /.svn/;
	open F, $file or print "couldn't open $file
" && return;
	while (<F>) 
	{
		if (/(.*)_('(.*)')(.*)/) 
		{
			    push(@out, $2);
		}
	}
	close F;
}
 
open T, $trans_file or print "couldn't open $trans_file
";
while (<T>)
{
	@uniq = uniq @out;
	if(/<tu tuid='(.*)'>/)
	{
		foreach ( @uniq ) 
		{
			$tlumaczenia = 0;
			if ($1 eq $_)
			{
				$tlumaczenia = 1;
				last;
			}
		}
		print "[.] ".$1;
		if($tlumaczenia eq '1') 
		{ 
			print "	[OK]"; 	
		}
		else
		{
			$xml .= "
			<tu tuid='".$1."'>
				<tuv xml:lang="en">
					<seg></seg>
				</tuv>
				<tuv xml:lang="de">
					<seg></seg>
				</tuv>
				<tuv xml:lang="pl">
					<seg></seg>
				</tuv>
			</tu>


"
		}
		print "
";
	}
}
print $xml;
close T;