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

Question

How to take command line file input in Perl from user ?

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

Instead of using the static location of XMLfiles, Can i get a dynamic XML location from the user which may be in some other directory ?

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);

solution for this was :

print "Enter the location:\n";
chomp( my $filename = <STDIN> );

Answer 1

You can also use this to take multiple input from the user

my @filename = <STDIN>;

In the array of filename u have all the files names that the user have given

For fixed 2 files

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

Now u have both the files

Answer 2

Use this module, Getopt::Long - Extended processing of command line options. This is best module for command line options.

example like

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

print Dumper(\%args);

Run program like :

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

Answer 3

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