Discussion :

[Jasmine80]

J'aimerais pouvoir refaire un bloc de code est-ce possible? Comment faire?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
	BLOC ALIGN :
	{
 
 
              if (...){
 
                   REDO ALIGN
 
              }
        }

Merci,

[djibril]

c'est à dire ? J'ai pas bien saisi ce que tu veux faire.

[Jasmine80]

c'est à dire ? J'ai pas bien saisi ce que tu veux faire.

Je voudrais pouvoir refaire une portion de code qui n'est pas une boucle.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
	BLOC ALIGN :
	{
		my @sort_sequences;
 
		for my $l (0..$#sequences){
 
			if (defined $sequences[$l]){
				push (@sort_sequences, @{$sequences[$l]});
			}
		}
 
 
 
 
		for my $l (1..$#sort_sequences){
 
		}
 
                # if(...) {refaire le bloc avec @sequences qui a été modifié}
       }

[djibril]

avec goto.

Code :

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

1
2
3
4
5
6
7
8
my $toto = 0;
 
TUTU : {
  print "bloc\n";
  $toto++;
  goto TUTU while ($toto <= 5);
}
print "fin\n";

[Jasmine80]

Merci, je vais y regarder.

[Philou67430]

Comme il est interdit d'utiliser goto, il faut utiliser redo :

Code :

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

1
2
3
4
5
6
7
8
my $toto = 0;
 
TUTU : {
  print "bloc\n";
  $toto++;
  redo TUTU while ($toto <= 5);
}
print "fin\n";

S'il n'y a pas d'ambigüité sur la boucle, le label est optionnel.

Comme indiqué dans le manuel de "redo" :

Note that a block by itself is semantically identical to a loop
that executes once. Thus "redo" inside such a block will
effectively turn it into a looping construct.

See also "continue" for an illustration of how "last", "next",
and "redo" work.

[Jasmine80]

perldoc goto