forked from 0ad/0ad
52 lines
968 B
Perl
Executable File
52 lines
968 B
Perl
Executable File
use strict;
|
|
use warnings;
|
|
|
|
package StringExtract::Utils;
|
|
|
|
use XML::Simple();
|
|
|
|
sub read_xml {
|
|
my ($filename) = $_;
|
|
|
|
my $xml = new XML::Simple(ForceArray=>1, KeepRoot=>1, KeyAttr=>[], ForceContent=>1);
|
|
|
|
my $data = $xml->XMLin($filename);
|
|
recursive_process($data);
|
|
|
|
my $root = (keys %$data)[0];
|
|
return [ $root, @{$data->{$root}} ];
|
|
}
|
|
|
|
sub recursive_process {
|
|
if (ref($_[0]) eq 'HASH') {
|
|
|
|
# Force keys to lowercase
|
|
my %temp;
|
|
@temp{map lc, keys %{$_[0]}} = values %{$_[0]};
|
|
%{$_[0]} = %temp;
|
|
|
|
# Trim whitespace in content
|
|
$_[0]{content} =~ s/^\s*(.*?)\s*$/$1/s if exists $_[0]{content};
|
|
|
|
# Recurse through sub-elements
|
|
recursive_process($_) for values %{$_[0]};
|
|
|
|
} elsif (ref($_[0]) eq 'ARRAY') {
|
|
|
|
# Recurse through sub-elements
|
|
recursive_process($_) for @{$_[0]};
|
|
}
|
|
}
|
|
|
|
|
|
sub read_text {
|
|
my ($filename) = $_;
|
|
|
|
open my $file, '<', $filename or die "Error opening $filename: $!";
|
|
my $data = do { local $/; <$file> };
|
|
|
|
return $data;
|
|
}
|
|
|
|
|
|
1; |