[perl] vérifier variable numérique

tlep 591Messages postés 21 février 2002Date d'inscription - Dernière réponse le 1 avril 2008 à 13:48

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.\n";}
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.\n";}
=> marche po
if ($ARGV[2] !=~ m/^\d+$/){print "Argument '".$ARGV[2]."' non numérique.\n";}
=> marche po
if !($ARGV[2] =~ m/^\d+$/){print "Argument '".$ARGV[2]."' non numérique.\n";}
=> marche po
Merci :-)

[perl] vérifier variable numérique »

Suggestions

[perl] vérifier variable numérique
Canon FAX-L140 » Guide d'achat
Perl - Les fonctions » Articles
Javascript - Les variables » Articles
Les variables avec Perl » Articles
Shell - Tester une variable numérique » Fiches pratiques

Plus

Réponse

b0rice 9Messages postés 25 mars 2008Date d'inscription 1 avril 2008 à 00:44

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\n";
}
else {
print " alphanumérique\n";
}

tout simplement ;)

Ajouter un commentaire

Réponse

Char Snipeur 5034Messages postés 23 avril 2004Date d'inscription 25 mai 2012Dernière intervention 1 avril 2008 à 08:53

Salut.
Je ne comprend pas pourquoi

if (!$ARGV[2] =~ m/^\d+$/){print "Argument '".$ARGV[2]."' non numérique.\n";}

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.\n";}

fonctionnerai. Sinon, j'y comprends plus rien, le not sur un booléen doit toujours fonctionner normalement.

Ajouter un commentaire - Site web

Réponse

lami20j 20327Messages postés 4 novembre 2004Date d'inscription 20 mai 2012Dernière intervention 1 avril 2008 à 10:11

Salut,

voici quelques tests

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

Ajouter un commentaire - Site web

Réponse

lami20j 20327Messages postés 4 novembre 2004Date d'inscription 20 mai 2012Dernière intervention 1 avril 2008 à 10:14

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

Ajouter un commentaire - Site web

Réponse

lami20j 20327Messages postés 4 novembre 2004Date d'inscription 20 mai 2012Dernière intervention 1 avril 2008 à 10:26

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\n" if ("aaa" =~ /^\D+$/)'
non numérique

comme ça je n'ai pas besoin de nier
je cherche tout simplement une correspondance non-numérique

Ajouter un commentaire - Site web

Réponse

lami20j 20327Messages postés 4 novembre 2004Date d'inscription 20 mai 2012Dernière intervention 1 avril 2008 à 10:34

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

Ajouter un commentaire - Site web

Réponse

Char Snipeur 5034Messages postés 23 avril 2004Date d'inscription 25 mai 2012Dernière intervention 1 avril 2008 à 13:48

merci pour les précisions.

Ajouter un commentaire - Site web

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

[perl] vérifier variable numérique

[perl] vérifier variable numérique »

Passage au tout numérique : quel coût pour les particuliers ?