Discussion :

[cricri77200]

Bonjour, supposons que j'ai une fonction createTab() dans un fichier tableau.pl (Ce qui n'est pas très convenable c'est vrai).
Est il possible d'appeler cette fonction createTab() dans un fichier catch.pm car je ne peux pas utiliser de package tableau vu que c'est un module .pl.

Merci

[Jasmine80]

Bonjour, supposons que j'ai une fonction createTab() dans un fichier tableau.pl (Ce qui n'est pas très convenable c'est vrai).

Pourquoi ne serait-ce pas convenable? Tout dépend si tu as souvent besoin de cette fonction ou non dans d'autres scripts.

Est il possible d'appeler cette fonction createTab() dans un fichier catch.pm car je ne peux pas utiliser de package tableau vu que c'est un module .pl.

Merci

Le nom de ta fonction peut être différent du nom du package qui la contient.
Ce message devrait t'aider.

[cricri77200]

Voici un exemple de code :

pour le fichier tableau.pl :

Code :

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

1
2
3
4
5
6
7
8
9
 
#!/usr/bin/perl
 
sub createTab{
.....
.....
 
return 1;
}

pour le fichier catch.pm :
Je ne peux pas faire : use tableau; car je ne peux pas créer de package tableau dans un .pl .
Donc comment faudrait t'il faire pour faire quelque chose qui ferait ca en gros:
tableau :: createtab();

Merci

[Jasmine80]

A ta place, j'essaierai quelque chose comme ça:

Catch.pm

Code :

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

1
2
3
4
5
6
7
8
9
10
package Catch;
 
use base 'Exporter'; 
our @EXPORT = qw(createTab);
 
sub createTab() {
  print "création du tableau\n";
}
 
1;

tableau.pl

Code :

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
 
use strict; 
use warnings;
 
use Catch;
 
createTab();

[Jasmine80]

Pour simplement créer une fonction dans le programme principal tableau.pl utilise

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
#!/usr/bin/perl
 
 
use strict; 
use warnings; 
 
 
 
 
my  $ref_tableau = createTab(différents arguments à passer);
 
 
 
 
 
 
 
 
 
# à la fin du script
 
sub createTab{
 
	my @argurments = @_;
	.....
	.....
 
	return \$ref_tableau;
}

[cricri77200]

Oui ca cela la bonne solution sauf que le programme que l'on ma donné ne peut être modifié. La fonction createTab est dans le .pl =/

Y a til une solution ?

[Jasmine80]

Oui ca cela la bonne solution sauf que le programme que l'on ma donné ne peut être modifié. La fonction createTab est dans le .pl =/

Y a til une solution ?

cf mon 3ième message

[Philou67430]

Il est tout à fait possible de créer un package dans un .pl ,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
package tableau;
 
sub CreateTab {
...
}
...
 
1;
 
package main;
 
...

Cependant, tu ne pourras sans doute pas utiliser use, mais plus require, et tu ne pourras pas empêcher d'exécuter le package main de ton .pl, ce qui n'est sans doute pas ce que tu souhaites.

Je te conseille donc d'extraire du .pl la classe ou le module tableau, de le mettre dans un module tableau.pm, et d'y faire appel par use dans ton .pl ET dans ton nouveau module catch.pm.

Edit : oups... j'ai pas vu les réponses intermédiaires... si tu ne peux modifier le .pl, je dois dire que tu ne pas faire grand chose de "propre"