#!/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");

##</code><code>##

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

use XML::Rules;

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

open(my $EXTR, ">meep.csv") or die $!;
$parser->parsefile( "meep.xlf", {FH => $EXTR});
close $EXTR;