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

use XML::Rules;

my $parser = XML::Rules->new(
    start_rules => [
        file => sub {
            my ($tag_name, $attrs, $context, $parent_data, $parser) = @_;
            $parser->{pad}{file} = $attrs->{original};
            $parser->{pad}{file} =~ s{game/stringtable/}{}i;
        },
    ],
    rules => [
        source => 'content',
        target => 'content',
        _default => '',
        'trans-unit' => sub {
            my ($tag_name, $attrs, $context, $parent_data, $parser) = @_;
            print EXTR qq{"$parser->{pad}{file}","$attrs->{id}","$attrs->{source}","$attrs->{target}"\n};
            return;
        },
    ],
);

open(EXTR, ">meep.csv") or die $!;
$parser->parsefile( "meep.xlf");