Discussion :

[lobiman]

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

[MarneusCalgarXP]

Ton problème c'est que tu as:

Code :

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

1
2
3
4
5
6
 
* if
* elsif
* elsif
* else
* elsif

le dernier elsif est injoignable, puisque dans le pire des cas le else est déclenché.


il faut que tu fasses

Code :

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

1
2
3
4
5
6
 
* if
* elsif
* elsif
* elsif
* else

ou alors

Code :

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

1
2
3
4
5
6
7
 
* if
* elsif
* elsif
* else {
*    if (...) {...}
* }

[lobiman]

malheureusement ca m´affiche un syntax error..

[pospos]

montre nous ton code (le vrai)

[lobiman]

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
 
open(FHI, "<$file") || die "error reading file $file";
 
  while(<FHI>){
 
    $_ =~ s/\x0d\x0a/\n/;
    if($_ =~ /hostname (.+)/){
      $hn_iter = $1;
    } elsif($_ =~ /^virtual-router (.+)/){
      $vr_iter = $1;
    } elsif($_ =~ /interface (.+)/){
      $int = $1;
    }elsif($_ =~ /router-id (.+)/){
 
      $router_id = $1;
 
     }     
 
      elsif($_ =~ /^\s+ip address ((?:\d+\.){3}\d+?)\s((?:\d+\.){3}\d+)/){  # A CE NIVEAU IL NE DOIT ASSIGNER UNE VALEUR A $IP QUE SI $_ =~ /^\s+\bip policy output\b/ N´EXISTE PAS DANS LE FICHIER LU, ET LA LIGNE ip policy SE TROUVE TOUJOURS APRES ip address
	$ipa_a=$1;
        $ipm_a=$2;
 
	$ip .= "<td id=\"ip\">" . $ipa_a . "<\/td>" . "<td>" . $ipm_a . "<\/td>" . "<td>" . "<b>Next Hop<\/b> &nbsp; $ipn_s " . "<br>" . "($network_notes$numhosts host$plural)" . "<\/td>" . "<td id=\"Router\">" . $hn_iter . ":" . $vr_iter . "<\/td>" . "<td >" . $int . "&nbsp;&nbsp;<\/td>" . "\n";
 
        } 
          elsif ($_ =~ /^\s+\bip policy output\b/) {
 
	      $ip .= "<td id=\"ip\">" . $ipa_a . "<\/td>" . "<td>" . $ipm_a . "<\/td>" . "<td>" . "<b>Next Hop<\/b> &nbsp; $ipn_s " . "<br>" . "($network_notes$numhosts host$plural)" . "<\/td>" . "<td id=\"Router\">" . $hn_iter . ":" . $vr_iter . "<\/td>" . "<td >" . $int . "&nbsp;<span style=\"color:blue;font-size:200%\"><strong> !!??</strong></span> &nbsp;<\/td>" . "\n";
 
 
           }
 
	elsif($_ =~ /ip route ([\d.]+)\s*([\d.]+)/){
 
	 $Wrp .= "<td bgcolor=\"#FFBFA8\" id=\"ip\">" . $1 . "<\/td>" "\n";
	  }
 
 
          elsif($_ =~ /network ([\d.]+)\s([\d.]+)/){
 
            print FAE "<td><a href=$file target=\"_new\" >$vr_iter</a></td><td>$area</td></tr> \n";
 
	  }elsif($_ =~ /address ([\d.]+)/){
 
            print FAE "<td><a href=$file target=\"_new\" >$vr_iter</a></td><td>$area</td></tr> \n";
    	  } 
 
 
      }
 
  close(FHI);

[lobiman]

Je vous envoie le vrai code , la ligne ou le test est fait sur ip address ne doit etre prise en compte que si apres elle il n´y a pas de ligne avec ip policy.
Au cas ou il y a ip policy sur la ligne apres ip address, on ne prend en compte que celle qui a ip policy. Jamais les deux a la fois......

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
 
open(FHI, "<$file") || die "error reading file $file";
 
  while(<FHI>){
 
    $_ =~ s/\x0d\x0a/\n/;
    if($_ =~ /hostname (.+)/){
      $hn_iter = $1;
    } elsif($_ =~ /^virtual-router (.+)/){
      $vr_iter = $1;
    } elsif($_ =~ /interface (.+)/){
      $int = $1;
    }elsif($_ =~ /router-id (.+)/){
 
      $router_id = $1;
 
     }     
 
      elsif($_ =~ /^\s+ip address ((?:\d+\.){3}\d+?)\s((?:\d+\.){3}\d+)/){  # A CE NIVEAU IL NE DOIT ASSIGNER UNE VALEUR A $IP QUE SI $_ =~ /^\s+\bip policy output\b/ N´EXISTE PAS DANS LE FICHIER LU, ET LA LIGNE ip policy SE TROUVE TOUJOURS APRES ip address
	$ipa_a=$1;
        $ipm_a=$2;
 
	$ip .= "<td id=\"ip\">" . $ipa_a . "<\/td>" . "<td>" . $ipm_a . "<\/td>" . "<td>" . "<b>Next Hop<\/b> &nbsp; $ipn_s " . "<br>" . "($network_notes$numhosts host$plural)" . "<\/td>" . "<td id=\"Router\">" . $hn_iter . ":" . $vr_iter . "<\/td>" . "<td >" . $int . "&nbsp;&nbsp;<\/td>" . "\n";
 
        } 
          elsif ($_ =~ /^\s+\bip policy output\b/) {
 
	      $ip .= "<td id=\"ip\">" . $ipa_a . "<\/td>" . "<td>" . $ipm_a . "<\/td>" . "<td>" . "<b>Next Hop<\/b> &nbsp; $ipn_s " . "<br>" . "($network_notes$numhosts host$plural)" . "<\/td>" . "<td id=\"Router\">" . $hn_iter . ":" . $vr_iter . "<\/td>" . "<td >" . $int . "&nbsp;<span style=\"color:blue;font-size:200%\"><strong> !!??</strong></span> &nbsp;<\/td>" . "\n";
 
 
           }
 
	elsif($_ =~ /ip route ([\d.]+)\s*([\d.]+)/){
 
	 $Wrp .= "<td bgcolor=\"#FFBFA8\" id=\"ip\">" . $1 . "<\/td>" "\n";
	  }
 
 
          elsif($_ =~ /network ([\d.]+)\s([\d.]+)/){
 
            print FAE "<td><a href=$file target=\"_new\" >$vr_iter</a></td><td>$area</td></tr> \n";
 
	  }elsif($_ =~ /address ([\d.]+)/){
 
            print FAE "<td><a href=$file target=\"_new\" >$vr_iter</a></td><td>$area</td></tr> \n";
    	  } 
 
 
      }
 
  close(FHI);