Discussion :

[Ganondorf]

Bonjour à tous,

comme c'est indiqué dans le sujet je suis débutant en perl, j'ai réalisé un petit script sans prétention et j'aimerai avoir votre avis quant a sont aspect (s'il est bien conçu et si je peux l'optimiser un peu, si oui comment ?) je compte réaliser un projet plus gros c'est pour cela que je voudrai savoir si ma pratique est bonne.

merci et à bientôt

[GnuVince]

Quel code?

[Ganondorf]

Erf, exusez moi j'ai oublié de le mettre (LOL)

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
 
our $curdir = $ENV{PWD};
our $cfgdir = "$curdir/config/";
our $usrdir = "$curdir/users/";
our $langdir = "$curdir/lang/";
our %var = ();
our %access = ();
 
sub load_config
{
	$cfgfile = "$cfgdir/uworld.conf";
	print "Lecture du fichier configuration ...\n";
	open(FILE, $cfgfile) or die "Impossible de lire la configuration $!";
	while(chomp($line=<FILE>))
	{
		if ($line =~/^uw_(.+?)=(.+?)$/)
		{
			$var{"$1"} = $2;
		}
	}
	close(FILE);
 
	$servip = $var{"ip"};
	$servport = $var{"port"};
	$servpass = $var{"pass"};
	$servname = $var{"service"};
	$servdesc = $var{"desc"};
	$servnick = $var{"nick"};
	$servident = $var{"ident"};
	$servhost = $var{"host"};
	$servrname = $var{"name"};
	$servmodes = $var{"modes"};
	$servchan = $var{"chan"};
}
 
sub load_access
{
	$usrfile = "$usrdir/users.list";
	print "Lecture fichier utilisateurs ...\n";
	open(FILE, $usrfile) or die "Impossible de lire la base de données utilisateurs $!";
	while(chomp($line=<FILE>))
	{
		if ($line =~/^(.+?)\s(.+?)\s(.+?)\s(.+?)\s(.+?)$/)
		{
			$access{lc($1)} = "$2 $3 $4 $5";
		}
	}
	close(FILE);
}
 
sub isbotuser
{
	my ($nick) = @_;
	foreach my $tmp (keys %access)
	{
		(defined($access{lc($nick)})) ? return 1 : return 0;
	}
}

tchuss

[Jedai]

Pourquoi our() plutôt que my() ?
Tu utilises des variables sans les déclarer (tu n'utilises donc pas le pragma 'strict' ?).
Cette ligne est dangereuse :

Code :

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

while(chomp($line=<FILE>))

si tu tombes sur une ligne vide ou ne contenant que "0\n", on sortira de la boucle, il est préférable d'écrire :

Code :

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

1
2
while(my $line=<FILE>) {
  chomp $line;

Code :

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

1
2
3
4
5
6
7
8
sub isbotuser
{
	my ($nick) = @_;
	foreach my $tmp (keys %access)
	{
		(defined($access{lc($nick)})) ? return 1 : return 0;
	}
}

A quoi sert ce foreach exactement ? On n'y utilise pas $tmp et on sort de la fonction à la première itération.

Il y a sans doute d'autres choses à dire, lis la FAQ, et en particulier la section sur le style.

--
Jedaï

[Ganondorf]

Salut jedai,

J'utilise le our() pour pouvoir réutiliser mes variables dans un autre fichier, ensuite pour la fonction isbotuser c'est vrai que j'ai trés mal réflechi en effet ca ne me sert a rien d'effectuer un foreach alors que j'ai juste a vérifier si $access{$nick} existe bien et oui je n'utilise pas stricts (je sais c'est mal) donc il faut que je déclare toute les variables servip etc ... nul avant de leur ajouter une valeur ? j'ai beaucoup a apprendre donc merci pour ton aide je vais de ce pas (aprés un bon café) lire la faq.

merci et à bientôt