草庐IT

perl-critic

全部标签

xml - Perl XML::Parser - 如何访问一个简单的解析树?

我想使用XML::Parser解析一个简单的字符串。这很好用。但我不知道如何访问结果。#!/usr/bin/perluseData::Dumper;useXML::Parser;my$parser=XML::Parser->new(Style=>'Tree');my$tree=$parser->parse('');printDumper($tree);给我看$VAR1=['xml',[{'Size'=>'12345','Id'=>'ca19cfd5','type'=>'test','elapsed'=>'9','result'=>'1test2test3'}]];所以它可以完美地解析我

xml - 库 :XML for perl parsing huge xml files through xpath causing core segmentation fault

我有一个巨大的格式为xml的文件....probably10000moreApplicationentries每个Application标签只有属性没有内容,但也包含可以有属性的嵌套标签,我需要解析和提取一些属性。我正在使用以下脚本,它在应用程序标签的一小部分上运行良好,但当记录变高时变得非常慢,不幸的是,当我在整个文件甚至一半的文件上运行它时,它会给我一个段错误核心转储文件。这是我的脚本非常感谢任何关于如何更好地做到这一点的建议。 最佳答案 我相信您可以通过XML::LibXML::Reader来执行此操作,但我对此并不熟悉。下面

xml - 如何在 Perl 中使用 XML::Twig 选择 xml 文件的特定子节点

这一定是个愚蠢的问题,但我有点卡住了:我有一个XML文件,您可以在此处查看示例:<seg>Sometext.</seg><seg>Othertext.</seg>ThetextI'minterested.Andit'stranslationinitalian.....followedbyother's因为它是一个巨大的文件,我使用XML::Twig来解析它并获取我感兴趣的部分。我对seg的节点内容以及tu的节点属性特别感兴趣。这是我目前得到的代码:use5.010;usestrict;usewarnings;useXML::Twig;my

xml - 如何使用 perl 将 ZUGFeRD-XML 附加到 PDF?

我需要创建一个附有XML的PDF/A3b文档,就像在ZUGFeRD中声明的那样。为此,我自己编写了一个perl脚本,它可以将XML文件创建为字符串并将其附加到PDF。我遵循了tutorialofthepdflib-cookbook,但我从来没有让我的XML100%附加到PDF。我在附加文件下看到它,我可以从那里将它保存到我的文件系统,但如果我用编辑器检查PDF,我只会看到XMP元数据,而不是我的XML。我想我需要将XML作为嵌入式文件流或类似的东西附加,但我不太确定我的代码中是否遗漏了某些东西,或者我只需要以其他方式添加它。这是我的XMP文件:BASICZUGFeRD-invoice.

xml - 如何使用 perl/LibXML 在 DOCTYPE 中创建 ENTITY 引用

我正在尝试创建以下包含实体声明的DTD:]>我可以在没有实体引用的情况下成功创建DOCTYPE:#!/usr/bin/perl-wusestrict;useXML::LibXML;my$doc=XML::LibXML::Document->new('1.0','UTF-8');my$dtd=$doc->createInternalSubset("LinkSet","-//NLM//DTDLinkOut1.0//EN","https://www.ncbi.nlm.nih.gov/projects/linkout/doc/LinkOut.dtd");my$ls=$doc->createEl

xml - 如何使用 Perl 编辑 XML 文件?

我有一个电影收藏目录,其中包含指向文件夹和文件的本地链接,以便于访问。最近我重新组织了我的整个硬盘空间,我需要更新链接,我试图用Perl自动完成。我可以导出XML文件中的数据并再次导入。我可以使用File::Find提取新文件路径但我遇到了两个问题。我不知道如何将新文件路径中的$title与XML文件中相应的$title连接起来。我是第一次处理此类文件,我不知道如何进行替换过程。这是我到目前为止所做的usestrict;usewarnings;useFile::Basename;useFile::Find;useFile::Spec;useXML::Simple;useData::Du

xml - 如何使用 Perl 的 XML::Twig 解析不完整的 XML 片段?

我正在尝试从XML格式的日志文件中提取数据。由于这些很大,我正在使用XML::Twig从缓冲区而不是整个文件中提取相关数据由于这些是来自STDIN的串联数据,因此XML的格式远非正确。解析器经常因错误而停止。我怎样才能让XML解析器忽略错误并只提取我感兴趣的标签?我是否必须退回到正则表达式解析(开始标记-结束标记)? 最佳答案 我实际上只会累积之间的数据标记然后解析该字符串,假设每条消息的内容很小:#!/usr/bin/perlusestrict;usewarnings;useXML::Simple;useData::Dumper;

Perl 中的 XML 解析问题

我正在尝试从XML文件中解析抽象部分。我正在使用力阵列。我写了代码,但它只在抽象在数组中时工作,而在数组不存在时不工作。这是因为当在数组中时我也使用{content}而当不在数组中时{content}丢失了。代码如下useLWP::Simple;useXML::Simple;useData::Dumper;open(FH,">:utf8","xmlparsed2.txt");my$db1="pubmed";my$query="9915366";my$q=16404398;my$xml=newXML::Simple;$urlxml="http://eutils.ncbi.nlm.nih.

xml - 使用 Perl 和 XML::Twig 解析 XML - 进一步提取嵌套子项

目前正在尝试弄清楚如何最好地处理以下示例XML数据:1SomeStuff我目前正在使用XML::Twig来操作其他一切,我想继续使用这个模块来实现我的目标,即:从C2A和C2B中提取数据,并将它们分配给变量。请注意,C2A和C2B可能有多个条目,例如需要将它们连接成一个@array。但是,我的问题是向下导航树,例如,如果我们按照我发现的另一个示例进行操作,那么对于这些​​数据来说这就足够了:NameoftheMovie28372382Thisisalongdescriptionshortdescriptiondirector1director2...解决方案是:@directors=$

xml - Perl 通过 HTTP 解析 XML 文件并增加几行

我正在尝试编写一个脚本,该脚本可以从远程服务器的XML文件中收集信息。远程服务器需要身份验证。我能够进行身份验证,因为它使用基本身份验证,但由于XML文件之前的所有行,我似乎无法解析数据。有没有办法避免获取所有这些行并正确解析XML文件?代码#!/usr/bin/perluseLWP::UserAgent;useHTTP::Request::Common;useXML::Simple;$ua=LWP::UserAgent->new;$req=HTTP::Request->new(GET=>'https://192.168.1.10/getxml?/home/');$ua->ssl_op