Arguments : si un argument est sollicité, rendre un autre obligatoire !
1 réponse
berserker
Dans mon script que l'on trouve 2 posts en dessous j'utilise quelques
arguments pour changer certaines valeurs par default !
my $helpfound=0;
my $automatic = 0;
for (0..@ARGV-1) {
if ($ARGV[$_] =~ /^-*h/i) { $helpfound=1; last; }
if ($ARGV[$_] =~ /^-*time=(.*)/i) { $time_before = $1 * 86400; next; }
if ($ARGV[$_] =~ /^-*auto/i) { $automatic=1; last; }
if ($ARGV[$_] =~ /^-*domain=(.*)/i) { $domain="$1"; next; }
if ($ARGV[$_] =~ /^-*subdomain=(.*)/i) { $subdomain="$1"; next; }
}
Tout fonctionne par contre ce que je souhaiterai c'est que si l'argument
"subdomain" ou "domain" est utilisé alors l'autre est obligatoire ! Et que
si cette condition n'est pas valide alors ça retourne $helpfound=1
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rue des Prairies
berserker wrote:
Dans mon script que l'on trouve 2 posts en dessous j'utilise quelques arguments pour changer certaines valeurs par default !
my $helpfound=0; my $automatic = 0; for () { if ($ARGV[$_] =~ /^-*h/i) { $helpfound=1; last; } if ($ARGV[$_] =~ /^-*time=(.*)/i) { $time_before = $1 * 86400; next; } if ($ARGV[$_] =~ /^-*auto/i) { $automatic=1; last; } if ($ARGV[$_] =~ /^-*domain=(.*)/i) { $domain="$1"; next; } if ($ARGV[$_] =~ /^-*subdomain=(.*)/i) { $subdomain="$1"; next; } }
Tout fonctionne par contre ce que je souhaiterai c'est que si l'argument "subdomain" ou "domain" est utilisé alors l'autre est obligatoire ! Et que si cette condition n'est pas valide alors ça retourne $helpfound=1
Merci d'avance !
-- berserker
Bonsoir,
Tu devrais jeter un oeil sur le module Getopt::Long
Olivier.
berserker wrote:
Dans mon script que l'on trouve 2 posts en dessous j'utilise quelques
arguments pour changer certaines valeurs par default !
my $helpfound=0;
my $automatic = 0;
for (0..@ARGV-1) {
if ($ARGV[$_] =~ /^-*h/i) { $helpfound=1; last; }
if ($ARGV[$_] =~ /^-*time=(.*)/i) { $time_before = $1 * 86400; next; }
if ($ARGV[$_] =~ /^-*auto/i) { $automatic=1; last; }
if ($ARGV[$_] =~ /^-*domain=(.*)/i) { $domain="$1"; next; }
if ($ARGV[$_] =~ /^-*subdomain=(.*)/i) { $subdomain="$1"; next; }
}
Tout fonctionne par contre ce que je souhaiterai c'est que si l'argument
"subdomain" ou "domain" est utilisé alors l'autre est obligatoire ! Et que
si cette condition n'est pas valide alors ça retourne $helpfound=1
Merci d'avance !
--
berserker
Bonsoir,
Tu devrais jeter un oeil sur le module Getopt::Long
Dans mon script que l'on trouve 2 posts en dessous j'utilise quelques arguments pour changer certaines valeurs par default !
my $helpfound=0; my $automatic = 0; for () { if ($ARGV[$_] =~ /^-*h/i) { $helpfound=1; last; } if ($ARGV[$_] =~ /^-*time=(.*)/i) { $time_before = $1 * 86400; next; } if ($ARGV[$_] =~ /^-*auto/i) { $automatic=1; last; } if ($ARGV[$_] =~ /^-*domain=(.*)/i) { $domain="$1"; next; } if ($ARGV[$_] =~ /^-*subdomain=(.*)/i) { $subdomain="$1"; next; } }
Tout fonctionne par contre ce que je souhaiterai c'est que si l'argument "subdomain" ou "domain" est utilisé alors l'autre est obligatoire ! Et que si cette condition n'est pas valide alors ça retourne $helpfound=1
Merci d'avance !
-- berserker
Bonsoir,
Tu devrais jeter un oeil sur le module Getopt::Long
