[perl] vérifier variable numérique Fermé

Question

Bonjour,

j'essaie en perl de vérifier si une variable en argument d'un script est numérique.

J'ai testé avec succès :
if ($ARGV[2] =~ m/^\d+$/){print "Argument '".$ARGV[2]."' numérique.
";}

En revanche, je ne parviens pas à utiliser le NOT (pour obtenir le contraire) :

if (!$ARGV[2] =~ m/^\d+$/){print "Argument '".$ARGV[2]."' non numérique.
";} 
=> marche po
if ($ARGV[2] !=~ m/^\d+$/){print "Argument '".$ARGV[2]."' non numérique.
";} 
=> marche po
if !($ARGV[2] =~ m/^\d+$/){print "Argument '".$ARGV[2]."' non numérique.
";} 
=> marche po

Merci :-)

b0rice · Answer

Salut,

la négation dans une regexp en perl, c'est: $chaine !~ m/$re/;

Dans ton cas:

print 'Argument '.$ARGV[2].' non numérique' if ($ARGV[2] !~ m/^\d+$/);

Tu pouvais aussi faire:

print "Argument ".$ARGV[2];
if ( $ARGV[2] =~ m/^\d+$/ ) {
  print " numérique
";
}
else {
  print " alphanumérique
";
}

tout simplement ;)

Char Snipeur · Answer

Salut.
Je ne comprend pas pourquoi if (!$ARGV[2] =~ m/^\d+$/){print "Argument '".$ARGV[2]."' non numérique.
";} ne fonctionne pas. A cause de la priorité des opérateurs ? est-ce qu'un if (!($ARGV[2] =~ m/^\d+$/)){print "Argument '".$ARGV[2]."' non numérique.
";} fonctionnerai. Sinon, j'y comprends plus rien, le not sur un booléen doit toujours fonctionner normalement.

lami20j · Answer

Salut,

voici quelques testsroot@debian:~# perl -e 'print "non numérique
" if ("aaa" !~ /^\d+$/)'
non numérique
root@debian:~# perl -e 'print "non numérique
" if (!("aaa" =~ /^\d+$/))'
non numérique
root@debian:~# perl -e 'print "non numérique
" unless ("aaa" =~ /^\d+$/)'
non numérique

lami20j · Answer

ou perl -e '"aaa"=~/^\d+$/?"":print "non numérique
"'

lami20j · Answer

une autre possibilité de tester le non numérique c'est avec la classe de caractères complémenté \D qui cherche les caractères non numérique
root@debian:~# perl -e 'print "non numérique
" if ("aaa" =~ /^\D+$/)'
non numériquecomme ça je n'ai pas besoin de nier
je cherche tout simplement une correspondance non-numérique

lami20j · Answer

Pour l'info

!~ ce n'est pas tout à fait une négation 

cet opérateur veut plutôt dire de trouver la non-correspondance et pas de ne pas trouver la correspondance

Char Snipeur · Answer

merci pour les précisions.

[perl] vérifier variable numérique

7 réponses

Discussions similaires