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ï

[Ganondorf]

bon j'ai reussi

fichier principal:

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
 
use strict;
use IO::Socket;
use Getopt::Std;
 
# inspuworld modules directory
use lib 'source';
use Utils;
use Service;
 
# check options
my %options;
getopts('d',\%options) or help;
if (defined($options{"d"})) { print "Fork this shit\n"; }
undef %options;
 
# loading configuration & users access
load_config;
load_access;
 
# creating socket,connect it to irc & listen
our $socket = init_sock;
init_service;

package Service:

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
 
package Service;
use strict;
use Utils;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(init_sock init_service);
 
my $NOFORK = 1;
 
sub init_sock
{
	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);
	return $sock;
}
 
sub init_service
{
    # link to server & listen sock
    senddata("SERVER ".getconf("service")." ".getconf("pass")." 0 :".getconf("desc")."");
    senddata("BURST");
	senddata(":".getconf("service")." NICK ".time." ".getconf("nick")." ".getconf("host")." ".getconf("host")." ".getconf("ident")." ".getconf("modes")." 0.0.0.0 :".getconf("name")."");
	senddata(":".getconf("nick")." OPERTYPE Services");
	senddata(":".getconf("service")." FJOIN ".getconf("chan")." ".time()." :@,".getconf("nick")."");
	senddata("ENDOFBURST");
    parse_line();
}
 
sub parse_line
{
	while (defined(my $line = <$main::socket>))
	{
		chomp $line;
		print "Received: $line\n" if $NOFORK;
 
		# Ping reply
		if ($line =~ /^:(.+?)\sPING\s.+?$/)
		{
			senddata(":".getconf("service")." PONG $1");
		}
	}
}
 
sub senddata
{
	my $line = shift;
	my $send = "$line\r\n";
	syswrite($main::socket, $send, length($send));
	print "Sent: $line\n" if $NOFORK;
}
 
1;

si ma merde peut aider quelqu'un c'est toujours ca ...

[Jedai]

Code :

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

syswrite($main::socket, $send, length($send));

Non !! Ca c'est horrible...
Je préfère encore la solution avec une variable de package dans Services...
Est-ce que tu te rend compte que tu assumes là que l'utilisateur de la librairie va forcément mettre le résultat de init_sock() dans une variable de package $socket ? Et également que personne ne va essayer d'utiliser ce module à partir d'un autre module, mais uniquement à partir du package main ?
Autrement dit ta bibliothèque est pratiquement inutilisable dans un environnement modulaire, je plains le pauvre programmeur qui voudrait réutiliser ta bibliothèque... (pense au futur, même toi tu pourrais être ce pauvre programmeur si tu dois reprendre cette bibliothèque dans trois mois !!)

Soit tu fais ceci :

Code :

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

1
2
3
# creating socket,connect it to irc & listen
my $socket = init_sock();
init_service( $socket );

Avec les définitions qui vont bien, par exemple :

Code :

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

1
2
3
4
5
6
7
sub senddata
{
	my ($line, $sock) = @_;
	my $send = "$line\r\n";
	syswrite($sock, $send, length($send));
	print "Sent: $line\n" if $NOFORK;
}

Soit tu fais cela :

Code :

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

1
2
3
# creating socket,connect it to irc & listen
init_sock();
init_service();

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
package Service;
use strict;
use Utils;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(init_sock init_service);
 
my $NOFORK = 1;
my $sock;
 
sub init_sock
{
	$sock = IO::Socket::INET->new(PeerHost => getconf("ip"),
	                                   PeerPort => getconf("port"),
	                                   Proto => 'TCP');
 
	die "Can't connect to server: $!" unless $sock;
	$sock->autoflush(1);
}
 
sub init_service
{
    # link to server & listen sock
    senddata("SERVER ".getconf("service")." ".getconf("pass")." 0 :".getconf("desc")."");
    senddata("BURST");
	senddata(":".getconf("service")." NICK ".time." ".getconf("nick")." ".getconf("host")." ".getconf("host")." ".getconf("ident")." ".getconf("modes")." 0.0.0.0 :".getconf("name")."");
	senddata(":".getconf("nick")." OPERTYPE Services");
	senddata(":".getconf("service")." FJOIN ".getconf("chan")." ".time()." :@,".getconf("nick")."");
	senddata("ENDOFBURST");
    parse_line();
}
 
sub parse_line
{
	while (defined(my $line = <$sock>))
	{
		chomp $line;
		print "Received: $line\n" if $NOFORK;
 
		# Ping reply
		if ($line =~ /^:(.+?)\sPING\s.+?$/)
		{
			senddata(":".getconf("service")." PONG $1");
		}
	}
}
 
sub senddata
{
	my $line = shift;
	my $send = "$line\r\n";
	syswrite($sock, $send, length($send));
	print "Sent: $line\n" if $NOFORK;
}
 
1;

Ou éventuellement tu fais de l'objet. Mais surtout, surtout tu n'utilises pas ce que tu viens d'écrire !!

--
Jedaï

[Ganondorf]

Ok j'ai fait comme tu m'as dit (2eme solution), ca fonctionne bien merci