这里是我想在Perl脚本做:如何从Perl中的XML文件中提取和保存值?
$data=""; sub loadXMLConfig() { $filename="somexml.xml" $data = $xml->XMLin($filename); } sub GetVariable() { ($FriendlyName) = @_; switch($FriendlyName) { case "My Friendly Name" {print $data->{my_xml_tag_name}} .... .... .... } }
是我使用的Perl只是因为我从一个XML文件中读取,但我需要一个shell脚本来获得这些变量的问题。所以,这里是我使用的是什么:
$ perl -e 'require "scrpt.pl"; loadConfigFile(); GetVariable("My Variable")'
这个工程完全按照预期,但我需要阅读每一次我得到一个变量中的XML文件。有没有一种方法可以跨越shell调用“保留”$data
?这个想法是我只读了一次XML文件。如果不是,是否有更简单的方法可以做到这一点?这些都是事我不能改变:
- 配置文件是一个XML
- 需要的变量在shell脚本
请注意,Switch.pm已弃用。 :) – 2010-04-26 18:56:52