- 论坛徽章:
- 0
|
XML格式如下：
<tu tuid="72612" srclang="EN-US">
<tuv xml:lang="EN-US">
<seg>Business case</seg>
</tuv>
<tuv xml:lang="FR" creationdate="20050725T061657Z" creationid="XYZ" lastusagedate="20091017T222409Z" changedate="20100316T180526Z" changeid="tmsnas" usagecount="0">
<prop type="x-ALS:Context">TEXT</prop>
<prop type="x-ALS:Source File">Trados Import</prop>
<seg>Business Case.</seg>
</tuv>
</tu>
<tu tuid="72637" srclang="EN-US">
<tuv xml:lang="EN-US">
<seg>Statement</seg>
</tuv>
<tuv xml:lang="FR" creationdate="20110823T083601Z" creationid="tmsnas" lastusagedate="20110823T083601Z" changedate="20110823T083601Z" changeid="tmsnas" usagecount="0">
<prop type="x-ALS:Context">TEXT</prop>
<prop type="x-ALS:Source File">\\nashapp202.corp.emc.com\tms\website\TC\1994\SRC\EN-US\Control Standards - Full_5.html</prop>
<seg>Déclaration</seg>
</tuv>
<tuv xml:lang="FR" creationdate="20110823T083601Z" creationid="tmsnas" lastusagedate="20110823T083601Z" changedate="20110823T083601Z" changeid="tmsnas" usagecount="0">
<prop type="x-ALS:Context">TEXT</prop>
<prop type="x-ALS:Source File">\\nashapp202.corp.emc.com\tms\website\TC\1994\SRC\EN-US\Control Standards - Full_2.html</prop>
<seg>Déclaration</seg>
</tuv>
</tu>
要求：打印Tag是“seg里面字符串”，并且xml:lang="FR"打印为一行，xml:lang="EN-US"的打印为另外一行。
我使用XML:Twig来处理，代码如下：
my $twig = new XML::Twig(TwigRoots=>{'seg'=>\&print_n_purge},pretty_print=>'indented');
#read XML file
my $config=$twig->parsefile($filename);
sub print_n_purge
{
my ($t,$elt)=@_;
#print Dumper($elt->text);
my @kids = $elt->children;
for my $kid (@kids)
{
#print Dumper $kid->text;
my $text = $kid->text;
$text =~ s#<.*?>##g;
$text =~ s#\n##g;
print $FH $text;
}
print $FH "\n";
$t->purge;
}
现在问题是当一个无法合并每种语言的seg，比如<tu tuid="72637" srclang="EN-US">下面xml:lang="FR"有两个seg，现在代码是每个seg打印一行。
或者如果一个tuv下面有超过2个的seg，则知道打印前面2个。
求大虾帮忙，perl才用没几天 |
|
免费注册
发表于 2012-06-14 18:04
发表于 2012-06-14 21:13
