[langage] Pb POO perl

J'ai un pb de programmation orienté objet.
Le voici:
J'ai crée une classe avec des methodes mais je n'arrive pas a passer un parametre dans une fonction.
Je m'expliqe:
voici quelque ligne de mon fichier pm:

Code:

---

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

#-------fichier Mesure.pm------------   package Mesure;   require 'chemins.pl'; require "fonctions_divers.pl";   sub new { my($class,$switch) = @_; my $self ={}; bless($self , $class); $self->{SWITCH} = $switch; return $self; } 1;   sub analyse_mesure { my ($oid_mesure,$fichier_mesure,$switch_a_mesurer,$snmpwalk)= @_; print("@_\n"); @tableau_mesure=(); #on vide le tableau avant de le remplir   system("$snmpwalk -v 1 -c public $switch_a_mesurer $oid_mesure > $fichier_mesure"); open (SNMP, "$fichier_mesure") || die "Impossible d'ouvrir $fichier_mesure"; while (<SNMP>) { @champ=split(/:/,$_); @champ2=split(/\n/,$champ[3]); push(@tableau_mesure,$champ2[0]); } close (SNMP); system("rm $fichier_mesure"); return @tableau_mesure; }

---

voici comment je fait appel de cette methode dans mon programme:

Code:

---

1 2 3 4

my $mesure = Mesure->new ($switch_selectionne);   @tabinterface = $mesure->analyse_mesure("1.3.6.1.2.1.31.1.1.1.1" , "snmpint.txt" , $switch_selectionne , $snmpwalk);

---

Et le pb est que le premier parametre qui arrive dans ma méthode est
Mesure=HASH(0x140679940) et puis apres arrive les autres parametres que j'ai mis.
Et du coup tout ce trouve décalé.
Es que quelqu'un pourrai m'aider ou me dire pk es que le premier parametre est Mesure=HASH(0x140679940) au lieu de 1.3.6.1.2.1.31.1.1.1.1.
Merci

C'est normal, dans ta méthode, le premier paramètre est l'objet sur lequel tu va appliquer cette méthode (comme pour le constructeur).
En l'occurrence, il te dit que ce premier paramètre est une référence sur tableau associatif.

c bon sa marche. C moi qui avait fait une faute de copier colle sans rajoute le $self.
Et il est vrai en plus que je vien de me mettre et la prog en perl que depuis 4 sem et a la programmation en POO en perl depuis hier alors je 'est pas encore les bons reflexes, mais avec le tps tout vien.
Merci.
@+
loothoof

Au passge es que tu pourrai m'expliquer le roel du destructeur. c'est a dire qu'une foi le destructeur appelé es que je peut redéclarer $mesure sans que mesure ne soit le même qu'avant.

Normalement oui. Sachant qu'au pire, ton nouvel écrasera le précedent.