Condition qui ne fonctionne pas

**Moymoy** · 04/09/2013, 12h05

Bonjour
Je ne suis pas du tout pro en Perl, mais j'ai des bases smile
J'ai codé ça :

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
 
#!/bin/perl -w
Xchat::hook_command("addwhite", cmd_adduser);
sub cmd_adduser{
	my $nick = $_[0][1];
	my $nickinfo = Xchat::user_info($nick);
	my $nickhost = $nickinfo->{host};
	my $whitelist = "";
	open(FICLIST, "<".$homedir."\\whitelist"); 
	@users = <FICLIST>;
	my $i = 0;
	while (defined( $users[$i] )) {
		chomp @users[$i];
		if($nickhost==@users[$i]){
			Xchat::print("***-\00305$nick-\00309".length(@users[$i])."-@users[$i]-\00302".length($nickhost)."-$nickhost-\017***", $netw, $serv);
			Xchat::print("*** \00309$nick est déjà dans la liste blanche ! \017***", $netw, $serv);
			$whitelist = "ok";
		}
		$i += 1
	}
	close(FICLIST);
        if(!$whitelist){
		# Xchat::print("*** \00305$whitelist \00309$nickhost !\017\n", $netw, $serv);
		if($nickhost){
			Xchat::print("*** \00305$nick \00309Ajouté(e) à la liste blanche !\017\n", $netw, $serv);
			open(FICLIST, ">>".$homedir."\\whitelist"); 
			print ( FICLIST "$nickhost\n" );
			close(FICLIST);
		} elsif(!$nickhost){
			Xchat::print("*** \00305Aucun host trouver pour $nick\017\n", $netw, $serv);
		}
	}
	$whitelist = "";
	return Xchat::EAT_NONE;
}

Et en sortie j'ai ça :

Code :

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

1
2
3
4
5
6
 
 ***-Diablotine-15-CroC@CroC.OdilE-38-Virginie@D0A4F1C8.CBA07B7E.88669293.IP-***
 *** Diablotine est déjà dans la liste blanche ! ***
 ***-Diablotine-17-Rygel@Bio.Dominar-38-Virginie@D0A4F1C8.CBA07B7E.88669293.IP-***
 *** Diablotine est déjà dans la liste blanche ! ***
* addwhite :Unknown command

Voila je comprend pas ce que j'ai mal fait

Merci

**Philou67430** · 04/09/2013, 13h46

Je suppose que tu as extrait une partie du code, puisqu'on ne voit pas le module Xchat ?! (ni son appel avec 'require' ou 'use')

**Moymoy** · 04/09/2013, 15h11

Ben j'ai jamais mis ça dans mes script Xchat ... mais tu crois que c'est pour ça que ça bug ? parce que tout fonctionne sauf le test 'if' qui ne fonctionne pas, du moins a l'envers !

**ours_en_pluche** · 04/09/2013, 15h46

re

comme tu fais appel a tes scripts perl depuis Xchat, effectivement, cela fonctionne sans faire d'appel à un quelconque module.

par contre, une protection de mp ou d'ignore de ce type n'est pas réellement efficace.
car : decacher son host/avoir un masquage de l'host/changement d'ip/changement d'ident et hop, ta personne n'est plus dans ta true list ( de même pour les listes d'ignore/ban/akick/... ).

cordialement

ours

**Philou67430** · 04/09/2013, 16h00

Ahem... je n'avais pas compris que ce script était lancé depuis Xchat... je sors ^^

**Moymoy** · 04/09/2013, 16h03

Merci Ours, comment tu ferais toi ? (dans le principe hein ...)
peut être avec les nick et detection de changement de nick ... ?
et pourquoi ma mon test if ne fonctionne pas ?

J'ai essayer comme ça :

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
#!/bin/perl -w
#
use Xchat qw(:all);
register("Script perso", "1.0", "redefinition de /away + anti-kick");
#
hook_command("ADDWHITE", \&adduser);
my ($hmsg, $hnot, $homedir);
$homedir = get_info(xchatdir);
sub adduser{
	my $nick = $_[0][1];
	my $nickinfo = user_info($nick);
	my $nickhost = $nickinfo->{host};
	my $whitelist = "";
	open(FICLIST, "<".$homedir."\\whitelist"); 
	@users = <FICLIST>;
	my $i = 0;
	while (defined( $users[$i] )) {
		chomp @users[$i];
		if($nickhost==@users[$i]){
			print("***-\00305$nick-\00309".length(@users[$i])."-@users[$i]-\00302".length($nickhost)."-$nickhost-\017***", $netw, $serv);
			print("*** \00309$nick est déjà dans la liste blanche ! \017***", $netw, $serv);
			$whitelist = "ok";
		}
		$i += 1
	}
	close(FICLIST);
	if(!$whitelist){
		# print("*** \00305$whitelist \00309$nickhost !\017\n", $netw, $serv);
		if($nickhost){
			print("*** \00305$nick \00309Ajouté(e) à la liste blanche !\017\n", $netw, $serv);
			open(FICLIST, ">>".$homedir."\\whitelist"); 
			print ( FICLIST "$nickhost\n" );
			close(FICLIST);
		} elsif(!$nickhost){
			print("*** \00305Aucun host trouver pour $nick\017\n", $netw, $serv);
		}
	}
	$whitelist = "";
	return EAT_NONE;
}
# Au demarrage du script, on indique que le script est chagé.
print("Anti Kick / Pv chargé !");

et plus rien ne fonctionne

**Lolo78** · 04/09/2013, 19h09

EDIT: message posté deux fois suite à un problème de connexion. Voir ci-dessous.

**Lolo78** · 04/09/2013, 19h09

Je ne connais pas du tout Xchat, mais ceci:

Code :

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

1
2
sub cmd_adduser{
	my $nick = $_[0][1];

me paraît bizarre. A l'entre dans une fonction, le tableau @_ contient la liste des paramètres passés à la fonction, et cette liste est "aplatie", c'est-à-dire qu'elle ne peut pas contenir de tableau de tableaux. Donc, $_[0][1] ne doit pas pouvoir marcher. dans ce contexte.

Ou alors tu reçois une référence à un tableau de tableaux, mais, dans ce cas, la syntaxe n'est pas correcte.

**ours_en_pluche** · 05/09/2013, 07h55

re,

Envoyé par Lolo78

me paraît bizarre. A l'entre dans une fonction, le tableau @_ contient la liste des paramètres passés à la fonction, et cette liste est "aplatie", c'est-à-dire qu'elle ne peut pas contenir de tableau de tableaux. Donc, $_[0][1] ne doit pas pouvoir marcher. dans ce contexte.

Ou alors tu reçois une référence à un tableau de tableaux, mais, dans ce cas, la syntaxe n'est pas correcte.

en fait, quand on fait appel a une fonction d'un script perl dans Xchat, le $_[0][1] contient le 2eme mot.
par exemple, si les options passés dans la commande sont : "les sanglots longs des violons de l'automne"
$_[0][1] contiendra "sanglots"
$_[1][2] contiendra "longs des violons de l'automne"

Envoyé par Moymoy

Merci Ours, comment tu ferais toi ? (dans le principe hein ...)
peut être avec les nick et detection de changement de nick ... ?
et pourquoi ma mon test if ne fonctionne pas ?

j'avais un anti-pv fait ainsi :
( je travaillais directement le RAW du serveur et non pas les messages )

Xchat::hook_server( 'PRIVMSG',"raw_privmsg");

-ouverture du mp si pas dans truelist : add en ignore ( uniquement sur les mps ) + message dans le (log) du serveur avec le message envoyé + message dans la fenetre courante.
-si dans truelist, alors le mp était ouvert normalement.

par contre, ma truelist contenait ceci : <pseudo>=::=<ident>::=<serveur>
cela m'obligeait à ajouter chaque "variation" de pseudo en truelist, ainsi que sur chaque serveur.
le soucis de le mettre sur l'host, c'est les facilités avec lequel ca se change.

hesite pas si tu as des questions.

cordialement

ours

**Moymoy** · 05/09/2013, 10h10

Ouais Ours, c'est ce que je fait aussi pour les RAW, mais la je comprend pas pourquoi mon 'if' ne fonctionne pas, et la dans ce code c'est un appel de commande /addwhite nick. le truc c'est que le 'if' est TRUE alors qu'il ne devrais pas ...

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
#!/bin/perl -w
#
# use Xchat qw(:all);
Xchat::register("Script perso", "1.0", "Moya white list");
Xchat::hook_command("ADDWHITE", adduser);
my $homedir = Xchat::get_info(xchatdir);
sub adduser{
	my $nick = $_[0][1];
	my $info = Xchat::user_info($nick);
	my $uhost = $info->{host};
	my $whitelist = "";
	my $i = 0;
	open(FICLIST, "<".$homedir."\\whitelist"); 
	@users = <FICLIST>;
	while (defined( $users[$i] )) {
		chomp @users[$i];
		if($uhost==@users[$i]){
			Xchat::print("***-\00305$nick-\00309".length(@users[$i])."-@users[$i]-\00302".length($uhost)."-$uhost-\017***", $netw, $serv);
		#	Xchat::print("*** \00309$nick est déjà dans la liste blanche ! \017***", $netw, $serv);
		$whitelist = "ok";
		}
		Xchat::print("Whitelist = $whitelist -");
		$i += 1
	}
	close(FICLIST);
	if(!$whitelist){
		if($uhost){
			Xchat::print("*** \00305$nick \00309Ajouté(e) à la liste blanche !\017\n", $netw, $serv);
			open(FICLIST, ">>".$homedir."\\whitelist"); 
			print ( FICLIST "$uhost\n" );
			close(FICLIST);
		} elsif(!$uhost){
			Xchat::print("*** \00305Aucun host trouver pour $nick\017\n", $netw, $serv);
		}
	}
	$whitelist = "";
	return Xchat::EAT_NONE;
}
Xchat::print("Whitelist by Moya");

le if($uhost==@users[$i]) est toujours VRAI alors que c'est pas possible ... c'est ça que je comprend pas, en plus j'ai exactement le même problème avec un autre script.
et en retour j'ai un 'ADDWHITE commande inconnue' alors que la fonction marche ...j'veux dire elle est parcourue puisque j'ai les retours ...

**Philou67430** · 05/09/2013, 10h49

Envoyé par Lolo78

Je ne connais pas du tout Xchat, mais ceci:

Code :

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

1
2
sub cmd_adduser{
	my $nick = $_[0][1];

me paraît bizarre. A l'entre dans une fonction, le tableau @_ contient la liste des paramètres passés à la fonction, et cette liste est "aplatie", c'est-à-dire qu'elle ne peut pas contenir de tableau de tableaux. Donc, $_[0][1] ne doit pas pouvoir marcher. dans ce contexte.

Ou alors tu reçois une référence à un tableau de tableaux, mais, dans ce cas, la syntaxe n'est pas correcte.

Lolo, et c'est sans doute ce que j'aime le moins en perl, le déréférencement en perl ne nécessite pas l'usage de l'opérateur -> ou ${}, il est optionnel (j'aurais vraiment préféré qu'il soit obligatoire, afin que le code soit plus clair).
Ainsi, toutes ces écritures sont légales :

Code :

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

1
2
3
4
my @param = ([ "toto", "titi", "tutu"], "fifi", "riri", "loulou") ;
my $titi = $param[0][1]; # titi
my $titi2 = $param[0]->[1]; # titi aussi
my $tutu = ${$param[0]}[2]; # toto

**Moymoy** · 05/09/2013, 11h13

Envoyé par Philou67430

Code :

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

1
2
3
4
my @param = ([ "toto", "titi", "tutu"], "fifi", "riri", "loulou") ;
my $titi = $param[0][1]; # titi
my $titi2 = $param[0]->[1]; # titi aussi
my $tutu = ${$param[0]}[2]; # toto

heu my $tutu = ${$param[0]}[2]; # toto ... tutu pas toto !

**Philou67430** · 05/09/2013, 11h28

Oui

**Moymoy** · 05/09/2013, 12h46

Tout ça n'explique pas pourquoi mon 'if' ne fonctionne pas ...

**Philou67430** · 05/09/2013, 14h09

Cette expression

Code :

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

if($uhost==@users[$i])

est légale en perl, mais pourrait ne pas faire ce que l'on veut.
En effet, tu compares un scalaire ($uhost) et un tableau (@users[$i]).
Malheureusement, perl est permissif et accepte cette écriture en l'interprétant

Code :

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

if ($uhost == $users[$i])

Si tu avais ajouté "use warnings" en début de script, perl te l'aurais indiqué.
Je t'invite donc d'abord à ajouter ces deux lignes en début de script, histoire de voir si ça ne te sors pas des diagnostics d'erreur ou de warning :

Code :

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

1
2
3
 
use strict;
use warnings;

**Moymoy** · 05/09/2013, 19h07

merci Philou67430 ... je precise quant même que je suis sous Xchat ... et que quand je met ces deux lignes ... il me fait une erreur a chaque ligne, donc voila

**ours_en_pluche** · 05/09/2013, 19h31

re,

Envoyé par Moymoy

merci Philou67430 ... je precise quant même que je suis sous Xchat ... et que quand je met ces deux lignes ... il me fait une erreur a chaque ligne, donc voila

euh sur mes scripts, j'avais toujours les 2 uses sans erreurs, par contre, je devais mettre un

Code :

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

1;

à la fin de chaque script.

cordialement

ours

**Lolo78** · 05/09/2013, 19h54

Code :

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

if ($uhost == $users[$i])

Comme Philou te l'a dit, il faut $users[$i] et non @users[$i], mais il y a sans doute une seconde erreur: cette comparaison ne marche correctement que si tes valeurs comparées sont des nombres, ce qui n'est vraisemblablement le cas. Si ce sont des chaîne de caractères, il faut ceci:

Code :

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

if ($uhost eq $users[$i])

Petit exemple sous le debuger Perl:

Code :

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

1
2
3
4
5
  DB<7> print "true" if "mardi" == "mercredi"
true
  DB<8> print "true" if "mardi" eq "mercredi"
 
  DB<9>

**Lolo78** · 05/09/2013, 20h10

Envoyé par Philou67430

Lolo, et c'est sans doute ce que j'aime le moins en perl, le déréférencement en perl ne nécessite pas l'usage de l'opérateur -> ou ${}, il est optionnel (j'aurais vraiment préféré qu'il soit obligatoire, afin que le code soit plus clair).
Ainsi, toutes ces écritures sont légales :

Code :

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

1
2
3
4
my @param = ([ "toto", "titi", "tutu"], "fifi", "riri", "loulou") ;
my $titi = $param[0][1]; # titi
my $titi2 = $param[0]->[1]; # titi aussi
my $tutu = ${$param[0]}[2]; # toto

Exact. Mais ton @param est un tableau de tableaux, pas une référence vers un tableau de tableaux. Or il me semblait qu'un simple tableau de tableaux était aplati en une seule liste lors d'un passage de paramètre à une fonction. Ce n'est apparemment pas le cas. Au temps pour moi.

**Moymoy** · 05/09/2013, 21h09

... 'eq' et '==' c'est différent ?

Condition qui ne fonctionne pas

Langage Perl

Discussions similaires

Partager

Partager