Bjr

JE voudrai poser une condition sur un elsif en perl.
En fait j´ai une serie de conditions comme suit:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
#ouverture d´une serie de fichiers entrée en ligne commande
 
open(FH,"<$file") || die "error";
 
while (FH) {
 
  if ($_ =~ /xxxxx/){
 
    traitement
  } 
  elsif ($_ =~ /yyyy/){
 
 
    traitement
  }
 
  elsif ($_=~ /caractere1/){
 
    B .=A+2;
 
  }elsif  ($_=~ /caractere12/) {
 
    A .=A+2+3;
   printf "A ."
  }else {
 
  printf "B.";
 }
 
 elsif (........){
..........
 
  }
Au niveau de caractere1 et caractere2 se trouve mon probleme, j voudrai qu´il n´imprime le traitement de caractere1 dans le cas ou caractere2 n´existe pas, mais a ce niveau la mon programme plante.

Comment donc poser une condition du genre else sur un elsif?

Merci