Comment prendre l'entrée de fichier de ligne de commande dans Perl de l'utilisateur?

Question

Comment prendre l'entrée de fichier de ligne de commande en Perl de l'utilisateur?

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

Au lieu d'utiliser l'emplacement statique XMLfiles, puis-je obtenir un emplacement XML dynamique de l'utilisateur qui peut être dans un autre répertoire?

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

pour c'était:

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

Answer 1

Vous pouvez également l'utiliser pour prendre des entrées multiples de l'utilisateur

my @filename = <STDIN>; 

Dans le tableau de nom de fichier u ont tous les noms de fichiers que l'utilisateur a donné

Pour 2 fichiers fixes

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

Maintenant u ont tous deux les fichiers

Answer 2

Utilisez la collection $ ARGV pour lire les arguments de ligne de commande.

Answer 3

Utilisez ce module, Getopt::Long - Traitement étendu des options de ligne de commande. C'est le meilleur module pour les options de ligne de commande.

exemple comme

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

print Dumper(\%args); 

programme Exécuter comme:

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