incrémenter un code

Bonjour à tous,

J'ai un petit probleme concernant une incrémentation.

Suite à une requete, je récupère un code de la forme A00010-001.
Je voudrais obtenir la valeur A00010-002.
Je pensais m'en sortir en faisant une simple incrémentation, mais je n'y arrive pas...

Code:

---

1 2 3

$var = A00010-001; $var++; print $var; --> donne A00010-001

---

ou

Code:

---

1 2 3

$var = A00010-001; $var = $var++; print $var; --> donne A00010-001

---

Alors que j'ai trouvé cet exemple sur le net (certes avec des lettres mais le principe est le meme) :

Code:

---

1 2 3 4

my $c='zy'; print "\$c=$c<br>"; --> affiche zy my $d=++$c; print "\$c=$c \$d=$d<br>";--> affiche zz

---

Donc pour passer de A00010-001 à A00010-002, est ce que je suis obligée de découper le code, en récupérant la partie avt le tiret et apres, ajouter +1 à la partie finale et recomposer le code?...
C'est plutot lourd alors qu'il me semblait que tt pouvait se faire tout seul...

Merci

Bha j'ai quelque chose mais surement pas sufisant pour toi.

Code:

---

1 2	$var =~ s/(\d+)$/($1+1)/eg ;

---

sa donne :
A00010-2
A00010-3
A00010-4
A00010-5

encor à travailler.

C'est deja ca, merci

Mais je suis quasiment sure que ce peut se faire par auto incrementation...
Dans perldoc

Citation:

---

print ++($foo = '99'); # affiche '100'
print ++($foo = 'a0'); # affiche 'a1'
print ++($foo = 'Az'); # affiche 'Ba'
print ++($foo = 'zz'); # affiche 'aaa'

---

Citation:

---

Envoyé par linou

Mais je suis quasiment sure que ce peut se faire par auto incrementation...

---

Pas avec le - dedans :(

Tu peux cependant faire un split par le "-", une incrémentation automagique sur le champ [-1], et un join avec un "-" ...

L'incrémentation marcherais si le '-' n'apparaissait pas

Je reprned un vieux post...

J'ai bien été obligé d'isoler le 001 seul pr pouvoir incrementer.

Par contre, si j'ai $tmp = 001; et que je fais ++$tmp, j'obtiens 2 alors que je voudrais 002.

Comment fair epr q ca reste tjs sur 3 chiifres?

Idem si j'ai 009, je veux psaser à 010 et non pas a 10

Merci

Il n'y a aucun problème si $tmp vaut "001", et non 001.

Oui mais comment faire dans le cas ou j'ai la valeur de la variable qui est "deduite"?
Par exemple j'ai :

Code:

---

1 2 3 4 5 6 7

if ($gene =~ m/(.*)(-)([0-9]{3})([a-z]?)(-)([<->*\#])?(.*)/) { if ($3 > $max) { $max = $3; } }

---

Dans ce cas $3 est censé etre égal à quelque chose comme 001 ou 002 ou 003 ou... donc $max aussi.

Mais si j'ai un $3 = 001 et que $max = $3, comment je peux faire pour incrementer $max sur 3 chiffres? Et donc ne pas obetnir 2 au lieu de 002?

Tant qu'il s'agit de "chaines", Perl se débrouille, il me semble :

Code:

---

1 2 3 4 5 6 7 8 9

my $max;   my $gene="abcdef-002-#def"; if ($gene =~ m/(.*)(-)([0-9]{3})([a-z]?)(-)([<->*\#])?(.*)/) { $max = $3; } $max++; print "$max\n";

---

produit bien "003", chez moi.

Après, peut être que tu peux encore aider Perl avec un $max="$3"; si chez toi il a du mal à comprendre ce que tu veux faire.