Discussion :

[Joccy]

Bonjour,

j'ai créé une classe (basée sur une autre classe existante). Lorsque je veux exporter une des fonctions (n'existant pas dans la classe mere) je me heurte à un pb: le premier parametre ($self normalement) est attendu alors que d'habitude (programme existant depuis longtemps et que je reprends en partie) il est pris en compte d'office. Je m'explique:

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
 
#dans un fichier .pm:
# utilisation courante:
$res = MyClass::MyFunctionAlreadyExist($my_value, $my_2value);
# ce que je veux faire:
$res = MyClass::MyNewFunction($my_newvalue, $my_2newvalue);
 
# dans le fichier de ma classe:
sub MyFunctionAlreadyExist
{
  my ($self, $value, $value2) = @_; # le 1er param en entrée se met bien dans $value
}
sub MyNewFunction
{
  my ($self, $value, $value2) = @_; # ici cela ne marche pas ...le premier param se retrouve dans $self et non dans $value ... 
}

Quel peut etre mon pb ?
Merci

[Jedai]

Probablement tu as mal lu la ligne originelle, parce que telle quelle elle ne marche pas :

Code :

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

MaClasse->MaFonction(...);

ou

Code :

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

$objet_de_MaClasse->MaFonction(...);

peuvent marcher, mais certainement pas :

Code :

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

MaClasse::MaFonction(...);

--
Jedaï

[Joccy]

Sisi je t'assure, ca marche !!

C'est du code objet (moi je dis pseudo objet et encore ! ... ) qui a ete implemente en Allemagne et que nous recuperons actuellement. Nous essayons de garder leur philosophie, mais ce n'est pas toujours compréhensible

Je me suis débrouillée autrement, mais pas facile à expliquer ici (je pense qu'ils utilisent une sorte de variable globale, mais c'est le bin's alors ...).

Mais... ce que tu me dis me conforte dans ce que j'avais compris des classes en Perl (très proche du C++ que je maitrise beaucoup plus !)

Merci