Discussion :

[linou]

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 :

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

1
2
3
$var = A00010-001;
$var++;
print $var;  --> donne A00010-001

ou

Code :

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

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 :

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

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

[Hide]

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

Code :

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

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

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

encor à travailler.

[linou]

C'est deja ca, merci

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

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

[2Eurocents]

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

[Hide]

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

[linou]

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

[2Eurocents]

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

[linou]

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

Code :

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

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?

[2Eurocents]

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

Code :

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

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.