'I am a monster NPC.''Ich bin ein Monster-NSC.'

1173668791078

'I am a monster NPC.''Ich bin ein Monster-NSC.'

1173668807656

'Turn into a monster.''In ein Monster verwandeln.'

1173668791093

'Turn into a monster.''In ein Monster verwandeln.'

1173668807671

and againund noch einer

1173668791109

and againund noch einer

1173668807687

You should get to know Sigmund before leaving to explore Stormreach.Ihr solltet Sigmund kennenlernen, bevor Ihr Euch aufmacht, um Stormreach zu erkunden.

1173668791328

You should get to know Sigmund before leaving to explore Stormreach.Ihr solltet Sigmund kennenlernen, bevor Ihr Euch aufmacht, um Stormreach zu erkunden.

1173668807906

##

#!/bin/perl
use strict;
use warnings;

use XML::Simple;

my $config = XMLin("meep.xlf", ForceArray => 1);

open(EXTR, ">meep.csv") or die $!;

foreach my $i ( 0 .. $#{ $config->{file} } ) {
    my $file = $config->{file}->[$i]->{original};
    $file =~ s/game\/stringtable\///i;
    for my $entry ( keys %{ $config->{file}->[$i]->{body}->[0]->{'trans-unit'} } ) {
        my $source = $config->{file}->[$i]->{body}->[0]->{'trans-unit'}->{$entry}->{source}->[0];
        my $target = $config->{file}->[$i]->{body}->[0]->{'trans-unit'}->{$entry}->{target}->[0]->{content};
        
        print EXTR '"'.$file.'","'.$entry.'","'.$source.'","'.$target.'"'."\n";
    }
}

close EXTR;

##

##

"Example.stt","Example_monsternpc_greeting","'I am a monster NPC.'","'Ich bin ein Monster-NSC.'"
"Example.stt","Example_private_testMe2","and again","und noch einer"
"Example.stt","Example_monsternpc_pc_transform","'Turn into a monster.'","'In ein Monster verwandeln.'"
"training_skeleton.stt","training_skeleton_ID_KillMe","You should get to know Sigmund before leaving to explore Stormreach.","Ihr solltet Sigmund kennenlernen, bevor Ihr Euch aufmacht, um Stormreach zu erkunden."