print invisible dans le boucle while en Perl Résolu/Fermé

Question

Bonjour,

j'ai fait un script en Perl qui vas lance une boucle qui utilise un snmpwalk . Je ne comprends pas pourquoi les print à l'intérieur de la boucle while ( while ($j=0){) ne s'affichent pas, alors que quand je la supprime j'ai le résultats suivant:

   voip ~ # ./test_RTT1.pl
UCD-SNMP-MIB::ucdavis.52.101.1 = STRING: "17"

le RTT est de : "17"
 
la valeur 1500 est eliminee, on a un RTT de taille 1 
la moyenne du RTT est de :17 


Ci-dessous mon script:
#!/usr/bin/perl
#$i=0;                                                                                
$j = 0;                                                                               
                                                                                      
while ($j=0){                                                                         
 sleep 5;                                                                             
                                                                                      
 #system ("/usr/bin/snmpwalk -c public -v 1 192.168.0.13 .1.3.6.1.4.1.2021.52.101.1");
 $SNMP = `/usr/bin/snmpwalk -c public -v 1 192.168.0.13 .1.3.6.1.4.1.2021.52.101.1`;  
 print "$SNMP
";                                                                   
 @RTT1 = split (/ /, $SNMP);     
 $RTT = @RTT1 [3];               
 print "le RTT est de : $RTT 
";
 @cols = split (/"/, $RTT);            
 if (@cols[1] != 1500){                
    push (@RTTf, @cols[1]);            
 }                                     
                                       
 $sizef = scalar @RTTf;                
 print "On a $sizef valeurs de RTT 
";
 $moyenne=0;                                    }                                     
                                       
 $moyenne = $moyenne / $sizef;         
 print "la moyenne du RTT est de :$moyenne 
";
                                         
}


Quelqu'un comprend pourquoi les print ne s'affichent pas?
 for ($i = 0; $i < $sizef; $i++){              
    $moyenne = $moyenne + @RTTf[$i];

loupius · Answer

Normal !!!!!!
($j = 0) vaut ... zéro ... donc ... la boucle n'est jamais exécutée ... CQFD ... Perl a toujours raison !

lami20j · Answer

Salut,

@RTT1 = split (/ /, $SNMP); 
$RTT = @RTT1 [3]; 

Ce n'est pas plutôt ?@RTT1 = split (/ /, $SNMP); 
$RTT = $RTT1 [3]; 
Tu peux aussi écrire au lieu de
@RTT1 = split (/ /, $SNMP); 
$RTT = @RTT1 [3];  tout simplement$RTT = (split / /, $SNMP)[3]; Pareil

@cols = split (/"/, $RTT); 
  if ($cols[1] != 1500){ 
  push (@RTTf, $cols[1]); 
} 

Tu peux écrire while ($j==0)mais je ne vois pas la condition d'arrêt de la boucle

Print invisible dans le boucle while en Perl

2 réponses

Discussions similaires