[langage] code ascii en Perl

Bonjour, je voudrais savoir comment on fait pour acceder au codes ascii en Perl car ca na pas l'air d'etre comme en C :
g fais ca mais ca marche pas

Code:

---

1 2 3 4 5 6

if ($_[0][$i] < 44 || ($_[0][$i] > 44 && $_[0][$i] < 48) || $_[0][$i] > 57) { printf("cut: [-cf] list: illegal list value\n"); exit(1); }

---

ou $i est egal a zero

Merci pour vos reponses

Pour manipuler directement les codes ASCII de caractères, il faut les convertir en nombre stockés par Perl dans une nouvelle chaine. En effet, Perl gère principalement des chaines de caractères.

Les fonctions Pack/Unpack permettent les conversions binaire/chaines dans tous les sens ...

Un exemple :

Code:

---

perl -e '$a="A" ; $b = unpack ("cc", $a) ; print $a."-".$b."\n"'

---

Donc, dans ton cas, une petite écriture préalable :

Code:

---

$test = unpack ("cc", $_[0][$i]);

---

suivie d'une ré-écriture du test :

Code:

---

if ($test < 44 || ($_test > 44 && $_test < 48) || $_test > 57)

---

devraient faire l'affaire.

okay je te remercie ca va m'aider

J'ai fait une petite erreur de copier/coller.

Dans le "unpack", un seul c est nécessaire au premier paramètre.

Ceci dit, ce n'est pas primordial, ça marche aussi avec deux, mais bon, je n'aime pas laisser trainer une erreur ou une imprécision ...