草庐IT

xml - 如何在perl中验证

coder 2024-07-05 原文

我正在开发一个 perl 脚本，它作为 linux 目录的输入路径。 目录中有 xml 文件。 Perl 脚本遍历所有 xml 文件并将每个 xml 文件转换为 json 格式。

我的代码已编写并正常工作，但我卡在 perl 的验证条件下。

#!/usr/bin/perl
use JSON;
use XML::Simple;
use File::Spec;

$num_args = $#ARGV + 1;
if ($num_args != 1) {
    print "\nUsage: $0 <input directory>\n";
exit;
}

my $dirPath = $ARGV[0];
if (not -e $dirPath)
{
    $dirPath = "/opt/poll/";
}        

opendir(DIR, $dirPath);
my @docs = grep(/\.xml$/,readdir(DIR));

foreach my $file (@docs) 
{
    my $abs_path = join("",$dir,$file);
    my $json_object = xml2json($abs_path);
    print_json($json_object);
}

sub print_json
{
   my $json_object = $_[0];
   print $json_object;
 }

 sub xml2json
{
   my $filename = $_[0];
   #print $filename;:q!
   #print "\n";
   # Create the object of XML Simple
   my $xmlSimple = new XML::Simple(KeepRoot   => 1);

   # Load the xml file in object
   my $dataXML = $xmlSimple->XMLin($filename);

   # use encode json function to convert xml object in json.
   my $jsonString = encode_json($dataXML);

   #print $jsonString;
   return $jsonString;
  }

很少验证我计划测试极端情况:

1> opendir(DIR, $dirPath); : opendir 打开目录失败怎么办？

2> 如何检查xml 文件是否存在并且可以先读取。否则 XMLSimple 构造函数可能会抛出未处理的异常。

3> 当输入xml 文件为空或输入xml 文件已损坏时如何处理。

4> 如果 $dataXML 是 undef 怎么办？

我是 perl 的新手，因此无法阅读其文档并获得解决方案。尽管我能够编写整个脚本。

如果有任何建议，请告诉我。 在上述情况下，我尝试在此处使用 eval 但不确定如何使用它。

提前致谢。

最佳答案

1) opendir(my $dir, $dirPath) or die “无法打开 $dirPath: $!”

2) die "$file not readable"unless -r $file

如果要区分“文件不存在”和“文件存在，但不可读”，也可以使用die "$file does not exist"unless -e $file，但是 -r 会捕捉到两者，因为不存在的文件也是不可读的。

3) 您的 XML 解析器应该已经处理了这些情况。实际上，除了解析 XML 之外，我不确定您如何确定 XML 是否已损坏。

4) unless (defined $dataXML) { ... 死掉或做任何你想做的事情，当它是 undef ... }

这些事情都没有给我留下明确的使用 eval 的案例 - eval 防止代码死亡，因此您可以尝试恢复，但是，在大多数情况下，任何错误都将无法恢复，除非您打算跳过坏文件。如果那是你想要的，那么只需将 die 替换为 next 或类似的东西

unless (-r $file) {
  warn "$file not readable";
  next;
}

除了跳过错误之外还提供错误报告。

关于xml - 如何在perl中验证，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/28523387/

何在perlcodejsonsectionxmllinuxvalidation

有关xml - 如何在perl中验证的更多相关文章

  1. ruby - 如何在 Ruby 中顺序创建 PI - 2

    出于纯粹的兴趣，我很好奇如何按顺序创建PI，而不是在过程结果之后生成数字，而是让数字在过程本身生成时显示。如果是这种情况，那么数字可以自行产生，我可以对以前看到的数字实现垃圾收集，从而创建一个无限系列。结果只是在Pi系列之后每秒生成一个数字。这是我通过互联网筛选的结果:这是流行的计算机友好算法，类机器算法:defarccot(x,unity)xpow=unity/xn=1sign=1sum=0loopdoterm=xpow/nbreakifterm==0sum+=sign*(xpow/n)xpow/=x*xn+=2sign=-signendsumenddefcalc_pi(digits

  2. ruby-on-rails - 如何验证 update_all 是否实际在 Rails 中更新 - 2

    给定这段代码defcreate@upgrades=User.update_all(["role=?","upgraded"],:id=>params[:upgrade])redirect_toadmin_upgrades_path,:notice=>"Successfullyupgradeduser."end我如何在该操作中实际验证它们是否已保存或未重定向到适当的页面和消息？ 最佳答案 在Rails3中，update_all不返回任何有意义的信息，除了已更新的记录数(这可能取决于您的DBMS是否返回该信息)。http://ar.ru

  3. ruby - 具有身份验证的私有(private) Ruby Gem 服务器 - 2

    我想安装一个带有一些身份验证的私有(private)Rubygem服务器。我希望能够使用公共(public)Ubuntu服务器托管内部gem。我读到了http://docs.rubygems.org/read/chapter/18.但是那个没有身份验证-如我所见。然后我读到了https://github.com/cwninja/geminabox.但是当我使用基本身份验证(他们在他们的Wiki中有)时，它会提示从我的服务器获取源。所以。如何制作带有身份验证的私有(private)Rubygem服务器？这是不可能的吗？谢谢。编辑:Geminabox问题。我尝试“捆绑”以安装新的gem..

  4. ruby - 如何将脚本文件的末尾读取为数据文件(Perl 或任何其他语言) - 2

    我正在寻找执行以下操作的正确语法(在Perl、Shell或Ruby中):#variabletoaccessthedatalinesappendedasafileEND_OF_SCRIPT_MARKERrawdatastartshereanditcontinues. 最佳答案 Perl用__DATA__做这个:#!/usr/bin/perlusestrict;usewarnings;while(){print;}__DATA__Texttoprintgoeshere 关于ruby-如何将脚

  5. ruby - 如何在 buildr 项目中使用 Ruby 代码？ - 2

    如何在buildr项目中使用Ruby？我在很多不同的项目中使用过Ruby、JRuby、Java和Clojure。我目前正在使用我的标准Ruby开发一个模拟应用程序，我想尝试使用Clojure后端(我确实喜欢功能代码)以及JRubygui和测试套件。我还可以看到在未来的不同项目中使用Scala作为后端。我想我要为我的项目尝试一下buildr(http://buildr.apache.org/)，但我注意到buildr似乎没有设置为在项目中使用JRuby代码本身!这看起来有点傻，因为该工具旨在统一通用的JVM语言并且是在ruby中构建的。除了将输出的jar包含在一个独特的、仅限ruby​​

  6. ruby - 什么是填充的 Base64 编码字符串以及如何在 ruby​​ 中生成它们？ - 2

    我正在使用的第三方API的文档状态:"[O]urAPIonlyacceptspaddedBase64encodedstrings."什么是“填充的Base64编码字符串”以及如何在Ruby中生成它们。下面的代码是我第一次尝试创建转换为Base64的JSON格式数据。xa=Base64.encode64(a.to_json) 最佳答案 他们说的padding其实就是Base64本身的一部分。它是末尾的“=”和“==”。Base64将3个字节的数据包编码为4个编码字符。所以如果你的输入数据有长度n和n%3=1=>"=="末尾用于填充n%

  7. ruby-on-rails - 如何从 format.xml 中删除 <hash></hash> - 2

    我有一个对象has_many应呈现为xml的子对象。这不是问题。我的问题是我创建了一个Hash包含此数据，就像解析器需要它一样。但是rails自动将整个文件包含在.........我需要摆脱type="array"和我该如何处理？我没有在文档中找到任何内容。 最佳答案 我遇到了同样的问题；这是我的XML:我在用这个:entries.to_xml将散列数据转换为XML，但这会将条目的数据包装到中所以我修改了:entries.to_xml(root:"Contacts")但这仍然将转换后的XML包装在“联系人”中，将我的XML代码修改为

  8. ruby-on-rails - 如果为空或不验证数值，则使属性默认为 0 - 2

    我希望我的UserPrice模型的属性在它们为空或不验证数值时默认为0。这些属性是tax_rate、shipping_cost和price。classCreateUserPrices8,:scale=>2t.decimal:tax_rate,:precision=>8,:scale=>2t.decimal:shipping_cost,:precision=>8,:scale=>2endendend起初，我将所有3列的:default=>0放在表格中，但我不想要这样，因为它已经填充了字段，我想使用占位符。这是我的UserPrice模型:classUserPrice回答before_val

  9. ruby-on-rails - 如何在 ruby​​ 中使用两个参数异步运行 exe？ - 2

    exe应该在我打开页面时运行。异步进程需要运行。有什么方法可以在ruby​​中使用两个参数异步运行exe吗？我已经尝试过ruby​​命令-system()、exec()但它正在等待过程完成。我需要用参数启动exe，无需等待进程完成是否有任何ruby​​gems会支持我的问题？ 最佳答案 您可以使用Process.spawn和Process.wait2:pid=Process.spawn'your.exe','--option'#Later...pid,status=Process.wait2pid您的程序将作为解释器的子进程执行。除

  10. ruby - 如何在续集中重新加载表模式？ - 2

    鉴于我有以下迁移:Sequel.migrationdoupdoalter_table:usersdoadd_column:is_admin,:default=>falseend#SequelrunsaDESCRIBEtablestatement,whenthemodelisloaded.#Atthispoint,itdoesnotknowthatusershaveais_adminflag.#Soitfails.@user=User.find(:email=>"admin@fancy-startup.example")@user.is_admin=true@user.save!ende

随机推荐