如何从用户那里获取 Perl 中的命令行文件输入?
my $filename = 'devices.xml';
my $filename1= 'discoveryinstances.xml';
除了使用 XMLfiles 的静态位置,我可以从用户那里获得一个可能在其他目录中的动态 XML 位置吗?
use XML::LibXML;
use XML::XPath;
use XML::XPath::XMLParser;
print "Enter the file location for devices.xml file"."\n";
my $firstfile =<STDIN>;
my $filename = chomp($firstfile);
print "Enter the file location for discoveryinstances.xml file"."\n";
my $secondfile =<STDIN>;
my $filename1=chomp($secondfile);
解决方案是:
print "Enter the location:\n";
chomp( my $filename = <STDIN> );