Discussion :

[intox18]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[2Eurocents]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

devraient faire l'affaire.

[intox18]

okay je te remercie ca va m'aider

[2Eurocents]

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 ...