Ajout de variables dans un tableau

Ajout de variables dans un tableau - Perl - Programmation

Marsh Posté le 22-06-2015 à 17:55:02    

Bonjour à tous,  
Je reviens faire un tour sur le forum, car j'ai un souci sur un bout de code de Gilou d'il y a quelques mois voire années :)
 
Je souhaite mettre dans un tableau, des valeurs issues de sub. voila le code qui va bien :
 
 

Code :
  1. sub session ()
  2. {
  3.    my $logfile = 'D:/modlog.txt';
  4.    my @servers = make_servers_list('D:/PERL_SNMP/adresses_ip.txt');
  5.    my %params = make_params_list();
  6.    my @tableau;
  8.   foreach (@servers)
  9. {
  10.      my $connection = start_connection($_);
  11.       next unless ($connection);
  12.      
  13.   my %values = get_values($connection, %params);
  14.    
  15.      end_connection($connection);
  16.       print Dumper(%values),"n";
  17. push (@tableau, %values);
  18.        return @tableau;
  20.      undef $connection;
  21.    }
  23. }


 
Et quand je fais un print de mon tableau, je n'obtiens pas les valeurs retournées, mais l'ensemble valeurs+nom de variable...
 

Code :
  1. session();
  2. my @ref = session();
  3. my $size = scalar(@ref);
  4. print $size, "n";
  6. my $moyenne = sum(@ref) / @ref;
  7. print $moyenne;


 
 
Je pense qu'il ne s'agit que d'un truc à 1.52€ mais je cherche depuis pas mal de temps, et je sèche...
 
Si quelqu'un pouvait m'aiguiller et me dire ce qu'il ne va pas :)
 
 
Je vous remercie tous.


Message édité par clubber43 le 23-06-2015 à 10:50:15

---------------
Merci
Reply

Marsh Posté le 22-06-2015 à 17:55:02   

Reply

Marsh Posté le 22-06-2015 à 19:07:04    

> Et quand je fais un print de mon tableau, je n'obtiens pas les valeurs retournées, mais l'ensemble valeurs+nom de variable...  
C'est bien normal, puisque tu fais un push d'un hash dans une liste.
Si tu ne veux que les valeurs, faudra faire un  
push @tableau, (values %values);
Mais appeller une variable (%values) avec le nom d'un mot clé (values) du langage, c'est une très mauvaise idée (pour la relecture) même si ça marche.
 
A+,


Message édité par gilou le 22-06-2015 à 19:07:30

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 23-06-2015 à 08:44:59    

D'accord pour values, je vais y remédier.
 
Comment sa marche en fait? je comprends pas pourquoi on met values%values ?  
 
Merci Gilou
 


---------------
Merci
Reply

Marsh Posté le 23-06-2015 à 09:47:58    

%values est un tableau associatif. Quand tu fais  

Code :
  1. push (@tableau, %values);


%values est évalué en contexte de liste (la fonction push marche ainsi : push(Tableau, Liste) et renvoie l'ensemble des clés et des valeurs du hash.
 
values(%values) permet de ne renvoyer que les valeurs (donc sans les clés).  


---------------
BattleTag: Alci#2178 - C'est dans les vieux pots qu'on fait les meilleurs démos
Reply

Marsh Posté le 23-06-2015 à 10:09:08    

OK, merci beaucoup pour l'info.
Venant du c et c++, je ne voyais pas trop comment marchaient les tableaux et listes...
 
Il me manque encore des heures de prog je pense :)
 
Merci  
 @+


---------------
Merci
Reply

Marsh Posté le 23-06-2015 à 10:55:09    

Et dernière questions, lorsque j'ai une liste du type :
 
 

Code :
  1. # impression en console
  3. foreach (sort {$a <=> $b} (keys %result)) { 
  4.   print "<$_> : $result{$_};" 
  5. }


 
est-ce que je peux extraire les 3 premieres valeurs contenues et les multiplier avec les 3 autres valeurs ? En gros, j'ai 6 valeurs exportées et je souhaite multiplier les valeurs 1,2,3 aux valeurs 4,5,6.
 
Sachant que le script princuipal est celui-ci :
 
 

Code :
  1. my @adressesU = qw(25 26 27 31 32 33);  my %result;
  3.   foreach (@adressesU) { 
  4.   $opt_mb_ad = $_;     
  5. # Création de la requête 
  6.   my $tx_hd_tr_id   = int(rand 65535);
  7.   my $tx_hd_length  = 6;
  8.   my $tx_hd_pr_id   = 0;
  9.   my $tx_buffer = pack("nnnCCnn", $tx_hd_tr_id, $tx_hd_pr_id , $tx_hd_length, $opt_unit_id, $opt_mb_fc, $opt_mb_ad, $opt_mb_nb);
  10.  
  11. # Emission de la requête
  12.   send(SERVER, $tx_buffer, 0);
  13.  
  14. # Attente d'une réponse
  15.   unless (can_read('SERVER', $opt_timeout)) {
  16.     close SERVER;
  17.     print STDERR 'receive timeout'."n";
  18.     return 1;
  19.   }
  20.  
  21. # Réception de l'entête
  22.   my ($rx_frame, $rx_buffer);
  23.   recv(SERVER, $rx_buffer, 7, 0);
  24.   $rx_frame = $rx_buffer;
  25.  
  26. # Décodage de l'entête
  27.   my ($rx_hd_tr_id, $rx_hd_pr_id, $rx_hd_length, $rx_hd_unit_id) = unpack "nnnC", $rx_buffer;
  28.  
  29. # Vérifie la cohérence de l'entête
  30.   unless (($rx_hd_tr_id == $tx_hd_tr_id) &&
  31.       ($rx_hd_pr_id == 0) &&
  32.       ($rx_hd_length < 256) &&
  33.       ($rx_hd_unit_id == 1)) {
  34.     close SERVER;
  35.     print STDERR 'error in receive frame'."n";
  36.     return 1;
  37.   }
  38.  
  39. # Réception du corps du message
  40.   recv(SERVER, $rx_buffer, $rx_hd_length-1, 0);
  41.   $rx_frame .= $rx_buffer;
  42.  
  43.  
  44. # Décodage du corps du message
  45.   my ($rx_bd_fc, $rx_body) = unpack "Ca*", $rx_buffer;
  46.  
  48. # Vérification du statut d'exception
  49.   if ($rx_bd_fc > 0x80) {
  52. # Affichage du code exception
  53.     my ($rx_except_code) = unpack "C", $rx_body;
  54.     print 'exception (code '.$rx_except_code.')'."n";
  55.   } 
  57.   else {
  59. ## Lecture de mot
  60.     my ($rx_bd_bc, $rx_read_word_data) = unpack "Ca*", $rx_body;
  62. # Lecture d'entier de 16 bits
  63. # un seul registre a lire d'ou le 'n'
  64.     $result{$opt_mb_ad} = unpack 'n', $rx_read_word_data; ####
  65.     }
  66.     }
  67. close SERVER;
  68. # fin de la boucle foreach  ####
  69. # impression en console
  71. foreach (sort {$a <=> $b} (keys %result)) { 
  72.   print "<$_> : $result{$_};" 
  73. } 
  74. foreach (sort {$a <=> $b} (keys %result)) {
  75. my $sum =  $result{$_};
  76.   print "Tension= $sum;" 
  77. }
  78. print "n";
  82. ########################" attente $timeout###################################
  83.  
  84. sub can_read{
  85. my ($sock_handle, $timeout) = @_;
  86. my $hdl_select="";
  87. vec($hdl_select, fileno($sock_handle),1)=1;
  88. return (select($hdl_select, undef, undef, $timeout)==1);
  89. }
  91. ############################################################################
  92.  
  93. }


 
Merci beaucoup pour votre aide à tous les 2 :)
@+


---------------
Merci
Reply

Marsh Posté le 23-06-2015 à 11:02:57    

C'est bon, j'ai trouvé, j'avais un souci dans mon appel : voici mon code :  
my $U1 = "25";
my $U2 = "26";
my $U3 = "27";
 
my $i1 = "31";
my $i2 = "32";
my $i3 = "33";
 
 
print $result{$U1}*$result{$i1}/10;
print "\n";  
 
print $result{$U1}*$result{$i1}/10;
print "\n";  
 
print $result{$U1}*$result{$i1}/10;
print "\n";  
 
Et cela me renvoie bien les bonnes choses :)


---------------
Merci
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed