如何从用户那里获取 Perl 中的命令行文件输入？

Question

如何从用户那里获取 Perl 中的命令行文件输入？

my $filename = 'devices.xml'; 
my $filename1= 'discoveryinstances.xml';

除了使用 XML 文件的静态位置之外，我可以从用户那里获得一个可能位于其他目录中的动态 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> );

Answer 1

您也可以使用它来获取用户的多个输入

my @filename = <STDIN>;

在文件名数组中，你有用户给的所有文件名

对于固定的2个文件

my $firstfile =<STDIN>;
my $secondfile =<STDIN>;

现在你有两个文件

Answer 2

使用这个模块，Getopt::Long - 命令行选项的扩展处理。 这是命令行选项的最佳模块。

例子

use strict;
use Getopt::Long;
use Data::Dumper;
my %args;
GetOptions( \%args, "filename1=s"
                  , "filename2=s"
           ) or die "Invalid Options \n";

print Dumper(\%args);

像这样运行程序：

abc.pl -filename1 "abc.xml" -filename2 "test.xml"

Answer 3

使用 $ARGV 集合读取命令行参数。