Я хочу интегрировать использование ARGV в свой сценарий. Поработав с примером простого использования, который я нашел в Stack Overflow, я смог заставить скрипт «принудительно» использовать аргументы одной команды. То, что я хочу сделать сейчас, это разрешить использование нескольких флагов вместо одного. Уловка заключается в том, что флаги должны применяться в определенном порядке, если их несколько.
Вот код, который я придумал для выполнения одиночных аргументов и их применения.
#!/usr/bin/perl
use strict;
use warnings;
system ("clear");
print "Solignis's Discovery Script v0.6 for ESX\\ESX(i) 4.0+\n\n";
my $numargs = $#ARGV + 1;
if ($#ARGV < 0) {
help_menu();
}
foreach my $argval (0 .. $#ARGV) {
if (($#ARGV == 0) && ($ARGV[0] eq '-b')) {
print "Backup\n";
} elsif (($#ARGV == 0) && ($ARGV[0] eq '-d')) {
print "Discovery\n";
} elsif ((($#ARGV == 0) && ($ARGV[0] eq '-h') || ($#ARGV == 0) && ($ARGV[0] eq '-?'))) {
help_menu();
} elsif (($#ARGV == 0) && ($ARGV[0] eq '-s')) {
print "Setup\n"
}
}
if ($#ARGV >= 1) {
print "Too many arguments, only one argument may be passed at a time!\n";
}
sub help_menu {
print "Options:\n\n";
print "\t-b\tRun Backup Backup\n";
print "\t-d\tRun Discovery Script\n";
print "\t-h\tShow Help Menu\n";
print "\t-s\tRun Setup Script\n\n";
}