Discussion :

[Ganondorf]

Salut à tous,

comme d'hab je vous c/c le code et explique ensuite

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
package Service;
use strict;
use Utils;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(sock_init);
 
my %socket;
my $CONNECT = 0;
 
sub sock_init
{
	my $sock = IO::Socket::INET->new(PeerHost => getconf("ip"),
	                                   PeerPort => getconf("port"),
	                                   Proto => 'TCP');
 
	die "Can't connect to server: $!" unless $sock;
	$sock->autoflush(1);
    $socket{"id"} = $sock;
 
    # link to server
    &send("SERVER ".getconf("service")." ".getconf("pass")." 0 :".getconf("desc")."");
    &send("BURST");
    $CONNECT = 1;
 
    # bot creation
    &init_bot if $CONNECT;
 
    # listen and parse
    &parse_line($sock);
}
 
sub init_bot
{
	&send(":".getconf("service")." NICK ".time." ".getconf("nick")." ".getconf("host")." ".getconf("host")." ".getconf("ident")." ".getconf("modes")." 0.0.0.0 :".getconf("name")."");
	&send(":".getconf("nick")." OPERTYPE Services");
	&send(":".getconf("service")." FJOIN ".getconf("chan")." ".time()." :@,".getconf("nick")."");
	&send("ENDOFBURST");
}
 
sub parse_line
{
	my $sock = shift;
 
	while (defined(my $line = <$sock>))
	{
		chomp $line;
		print "-> $line\n";
	}
}
 
sub send
{
	my $line = shift;
	my $send = "$line\r\n";
	syswrite($socket{"id"}, $send, length($send));
}
 
1;

Ce code est fonctionnel mais ca m'embete un peu de créer un hash %socket juste pour pouvoir reutiliser ce hash dans la fonction &send, voyez vous un autre moyen de procédé ?

[Jedai]

Passes $sock en paramètre à send() (et oui, les fonctions Perl peuvent avoir plus d'un paramètre... ). Par ailleurs, pourquoi utilises-tu & devant tous tes appels de fonctions ? C'est inutile et ça peut même te jouer de vilain tours (ça désactive la vérification de la signature, non que tu en ais souvent besoin mais bon...).

--
Jedaï

[Ganondorf]

iop

justement passer $sock dans send c'est ce que je ne veux surtout pas faire, la commande send va être utilisé dans plusieurs fichiers donc comment elle sera a quoi $sock correspond s'il n'est pas défini dans ce fichier, pour ce qui concernce les & je ne savais pas et je les ai donc tous retirés

merci

[Ganondorf]

encore moi

en enlevent les & de devant ma fonction send il ne plus reconnaitre correctement ma fonction, j'ai cette erreur sur tout mes appel de send()

Code :

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

1
2
 
Not enough arguments for send at source/Service.pm line 44, near """)"

[Jedai]

C'est parce que tu as mal choisi le nom de ta fonction : send() est une fonction standard en Perl, avec un prototype incompatible avec ta fonction...

--
Jedaï

[Ganondorf]

ok merci
sinon pour mon 1er probleme aurais-tu une autre idée ?

[Jedai]

iop

justement passer $sock dans send c'est ce que je ne veux surtout pas faire, la commande send va être utilisé dans plusieurs fichiers donc comment elle sera a quoi $sock correspond s'il n'est pas défini dans ce fichier, pour ce qui concernce les & je ne savais pas et je les ai donc tous retirés

merci

Il te suffit de faire retourner $sock à ton init(). Mais je crois que je vois ton intention, tu veux cacher le $sock pour éviter que d'autres personnes essaye de l'utiliser directement au lieu d'utiliser ton send() (ou quel que soit son nouveau nom) qui fait les choses proprement ?
Dans ce cas tu as plusieurs options :

• La classique : tu fais de $sock une variable lexicale du package, personne ne pourra y toucher de l'extérieur mais toutes les fonctions de ton package pourront la manipuler. L'inconvénient étant que tu ne peux avoir qu'une seule instance de $sock, tu ne peux pas utiliser ton module pour contacter plusieurs serveurs simultanément.
• L'objet. Sans doute l'idéal pour ton cas, bien qu'il te faille quelques connaissance en plus pour pouvoir créer ton module orienté objet, consulte la FAQ pour un début.

--
Jedaï

[Ganondorf]

hi

dans le cas d'une variable de package comment faire pour éviter une erreur du style

Code :

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

1
2
 
Global symbol "$sock" requires explicit package name at source/Service.pm line 34.

tout en gardant le pragma strict ?
en tout cas il va falloir que je mette a la poo j'en aurai besoin dans un futur trés proche.

[Jedai]

Il faut exporter la variable de package (créé avec our() ) en utilisant @EXPORT. Néanmoins si tu laisses vraiment $sock visible, je ne vois pas trop l'intérêt par rapport à une solution où init() renvoie un $sock que tu peux utiliser dans send_*() et compagnie.

--
Jedaï