仅提取 xml 的值删除 xml 标记

Question

例如，我有一个 xml 文件，

<title> hello <name> hi </name> <street> id </street> this is xml file </title>

这里的父节点是title。我将提取父节点内的文本，删除内部标签。

我已经尝试过使用正则表达式。但是除了使用正则表达式之外，还有什么方法可以使用一些基于 xml 的函数来删除标签。注意：标签名称事先不知道。

你好，我试过了，我用的是同一个xml

use XML::Simple; 
use Data::Dumper; 

my $simple = XML::Simple->new(); 
my $data = $simple->XMLin('XMLRemoval.xml'); 
my %oldHash = %$data; my %newHash = (); 

while ( my ($key, $innerRef) = each %oldHash ) 
{ 
    $newHash{$key} = @$innerRef[1]; 
} 

foreach $key ( keys %newHash ) 
{ 
    print $newHash{$key}; 
}

我得到了错误：不能使用字符串（“id”）作为 ARRAY ref 而“strict refs”

Answer 1

根据您的要求，您可以试试这个。 我在示例中使用了您提供的文件。

我们在这里定义 XML 中的根键内容（或重命名），您需要选择一个不在您的 XML 中的键（我选择了根内容）。

#!/usr/bin/perl
use strict;
use XML::Simple;
use Data::Dumper;
my $key;
my $simple = XML::Simple->new();
my $data = $simple->XMLin('XMLRemoval.xml', 'ContentKey' => 'root-contents');
print Dumper $data;
my $val = $data->{'root-contents'};
if(ref($val) =~ /Array/i)
{
    foreach (@$val)
    {
        print "$_\n";
    }
}
else
{
    print "$val\n";
}

请阅读 XML::Simple 文档，有很多选项可以根据您的要求进行调整。

我会把调试部分留给你，让你的代码检查错误是什么以及如何解决它（这本身就是解释性的）:)。

Answer 2

use strict;
use warnings;

use features qw/say/;
use Mojo::DOM;

my $dom = Mojo::DOM->new('<title> hello <name> hi </name> <street> id </street> this is xml file </title>');

say $dom->all_text;
# hello hi id this is xml file

say $dom->at('title')->all_text;
# hello

你懂的

Answer 3

你可以使用XML::XSH2:

open file.xml ;
echo (/title) ;       # hello  hi   id  this is xml file
echo /title/text() ;  # hello     this is xml file 

Answer 4

最残忍的方式是：

use strict;
use warnings;

use feature 'say';


my $text = '<title> hello <name> hi </name> <street> id </street> this is xml file </title>' ;

$text =~ s|<.+?>||g;
say "Text |$text|";

但是，您可能知道，is not ok to parse html with regex。