Более одного ввода командной строки в perl с использованием argV

Question

Как использовать аргумент командной строки в Perl для ввода ввода файла от пользователя? Может быть: wxp.pl - file {file path}.
Я новичок в Perl, поэтому предлагаю мне что-нибудь полезное. И как я могу сделать это как более чем один аргумент, который нужно задать в командной строке. например:

exp.pl -file {file path} 
      -x {it's arg} 
      -y {y's arg} 

Answer 1

Если вы хотите просто передать аргументы, вы можете сделать так:

perl exp.pl arg1 agr2 

Если вы хотите что-то более, используйте Getopt::Long модуль.

Answer 2

Я бы предложил GetOpt :: Долго для достижения этого. Но если вы хотите сделать свой собственный посмотреть, если что-то подобное было бы удобно:

use strict; 
use warnings; 

# Usage check. For "perl xxx.pl -a arg1 -b arg2" args. should be even nos. 

if (scalar @ARGV == 0 or scalar @ARGV % 2 != 0) { 
    print "Usage:\n\t$0 -a arg1 -b arg2 requires all args\n"; 
    exit 0; 
} 

# This one convert cmd line args. to hash ex. (perl xxx.pl -a arg1 -b arg2) to {-a => arg1, -b => arg2} 
my %argHash = @ARGV;  

# Optional but see if all the args are present 
my $maxArgs = 2; 
if (scalar keys %argHash != $maxArgs) { 
    print "Usage:\n\t$0 -a arg1 -b arg2 requires exactly $maxArgs args\n"; 
    exit 0; 
} 

# Parse arguments. 
print "$0:\n"; 
for my $key (keys %argHash) { 
    print "\t $key: $argHash{$key}\n"; 
} 

1; 

Результат:

c:\swadhi\perl>perl cmdline.pl 
Usage: 
     cmdline.pl -a arg1 -b arg2 requires all args 

c:\swadhi\perl>perl cmdline.pl -a "user" -b 
Usage: 
     cmdline.pl -a arg1 -b arg2 requires all args 

c:\swadhi\perl>perl cmdline.pl -a "user" -b "Command" 
cmdline.pl: 
     -a: user 
     -b: Command 

c:\swadhi\perl>perl cmdline.pl -a "user" -b "Command" -c "mock" 
Usage: 
     cmdline.pl -a arg1 -b arg2 requires exactly 2 args 

c:\swadhi\perl>perl cmdline.pl -a "user" 
Usage: 
     cmdline.pl -a arg1 -b arg2 requires exactly 2 args 

Answer 3

Более простой Getopt :: Длинная версия

use strict; 
use warnings; 
use Getopt::Long qw(GetOptions); 

my $user_name; 

GetOptions('user=s' => \$user_name) or die "Usage: $0 --user NAME\n"; 

if ($user_name) { 
    print $user_name, "\n"; 
} 

Результат:

c:\swadhi\perl>perl cmdline.pl -user Swadhi 
Swadhi 

c:\swadhi\perl>perl cmdline.pl 

c:\swadhi\perl>perl cmdline.pl -p s 
Unknown option: p 
Usage: cmdline.pl --user NAME 

c:\swadhi\perl>perl cmdline.pl -u "This should also work" 
This should also work