在Perl中读取和解析XBRL文件(或转换为普通的XML / JSON!)

cpan XML::LibXML

use XML::LibXML;

# 创建XML解析器对象
my $parser = XML::LibXML->new();

# 打开XBRL文件
my $xbrl_file = 'path/to/xbrl_file.xbrl';
my $doc = $parser->parse_file($xbrl_file);

# 解析XBRL文件
# 通过XPath表达式选择特定的元素
my $xpath_expression = '//namespace:element_name';
my @elements = $doc->findnodes($xpath_expression);

# 遍历选定的元素并处理
foreach my $element (@elements) {
    # 处理元素数据
    my $data = $element->textContent;
    # ...
}

use XML::LibXML;
use JSON;

# 创建XML解析器对象
my $parser = XML::LibXML->new();

# 打开XBRL文件
my $xbrl_file = 'path/to/xbrl_file.xbrl';
my $doc = $parser->parse_file($xbrl_file);

# 将XML文档序列化为字符串
my $xml_string = $doc->toString();

# 将XML字符串转换为JSON格式
my $json_string = XMLin($xml_string, ForceArray => 1, KeyAttr => []);

# 打印JSON字符串
print JSON->new->pretty->encode($json_string);