Discussion :

[Ganondorf]

Bonsoir à tous,

Je récupere dans un ce fichier le text:

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
 
# Francais
 
# Syntaxe
auth=Syntaxe: auth <idnick> <mot de passe>
deauth=Syntaxe: deauth <idnick>
op=Syntaxe: op <#channel> <nick>
deop=Syntaxe: deop <#channel> <nick>
voice=Syntaxe: voice <#channel> <nick>
devoice=Syntaxe: devoice <#channel> <nick>
halfop=Syntaxe: halfop <#channel> <nick>
dehalfop=Syntaxe: dehalfop <#channel> <nick>
kick=Syntaxe: kick <#channel> <nick> [raison]
kickban=Syntaxe: kickban <#channel> <nick> [raison]
ban=Syntaxe: ban <#channel> <nick/host>
unban=Syntaxe: unban <#channel> <nick/host>
kill=Syntaxe: kill <nick> [raison]
 
# Erreur
noauth=Accés refusé
noaccess=Aucun accés trouvé pour cet IDnick
badnick=Votre pseudonyme doit correspondre à IDnick
badmask=Votre masque ne correspond pas.
suspend=Votre accés est suspendu
 
# divers
authentified=Vous êtes à présent identifié

de cette maniere:

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
 
sub load_lang
{
	my $lang = getconf("langage");
	my $path = "lang/$lang.lang";
	open FILE, $path or die "load_lang() erreur: $!";
	while (my $line = <FILE>)
	{
	chomp $line;
        next if $line =~ m/^\s*#|^\s*$/;
        my ($var,$value) = split /\s*=\s*/, $line;
	$lang{$var} = $value;
	}
	close FILE;
}

comme vous voyez je chomp le text, le probleme c'est que quand j'essai d'afficher ce text sur le socket il ne veut pas et la cause c'est qu'il faut je chop le text en plus de l'avoir chomp donc au final je ne ferai pas mieux d'utiliser juste chop ? mais si il n'y a pas de séparateurs ca va m'éffacer le dernier caractère du text non ? éclairez moi s'il vous plait

PS: J'ai éssayé avec juste chop et ca ne fonctionne pas, il faut que je chomp aprés ...

[Jedai]

Visiblement, tu as un mic-mac quelque part qui fait que tes lignes finissent par "\r\n" ou quelque chose comme ça, généralement ça peut arriver si tu as un fichier texte Windows sur de l'Unix, ou dans certains cas sur le réseau.

Elimine simplement ces caractères directement :

Code :

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

s/[\r\n]*\z//;

Utiliser chomp() deux fois marcherait probablement aussi.

Généralement utiliser chop() est une mauvaise idée sauf si ton intention est vraiment de "supprimer le dernier caractère d'une chaîne quel qu'il soit" point barre. L'utiliser à la place d'un chomp() n'est en particulier pas une chose à faire.

--
Jedaï

[Ganondorf]

Iop

en effet tout mes fichiers sont crées sous windows et ensuite sont exportés sur ma machine linux, j'avais entre temps trouvé comment corriger mon probleme mais j'avais oublié de vous dire comment, voici comment:

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
 
sub load_access
{
	my $path = "users/operator.list";
	open FILE, $path or die "load_access() erreur: $!";
	while (my $line = <FILE>)
	{
	    chomp $line;
	    $line =~s/\r$//; # retrait du retour chariot
	    my @fields = split /\s+/, $line;
	    if (@fields == 6)
	    {
		my $nick = lc($fields[0]);
		@{$access{$nick}}{ qw(epoch pass host level suspend) } = @fields[1..5];
		}
	}
	close FILE;
}

si je le fait a ta maniere, je n'aurai plus besoin d'utiliser chomp dans ce code ?

[Ganondorf]

quelqu'un pourrait me dire si j'utilise

Code :

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

1
2
 
s/[\r\n]*\z//;

dans mon code serai-je encore obliger de mettre un chomp avant ?

[Woufeil]

Bonjour,

Non, après cette manipulation, ça sera inutile. Par contre, je ne comprend pas pourquoi ne pas utiliser simplement :

Code :

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

s/\s*$//g

Qui enlèverais vraiment tout ce qu'il y a en fin de ligne...

[Jedai]

Bonjour,

Non, après cette manipulation, ça sera inutile. Par contre, je ne comprend pas pourquoi ne pas utiliser simplement :

Code :

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

s/\s*$//g

Qui enlèverais vraiment tout ce qu'il y a en fin de ligne...

Oui, y compris tout espace "blanc" final, dans la plupart des cas c'est souhaitable (probablement ici), mais pas toujours... Je me suis contenté de lui donner un truc qui élimine les caractères de fin de ligne.

--
Jedaï

[Ganondorf]

Yop,

Bonjour,

Non, après cette manipulation, ça sera inutile. Par contre, je ne comprend pas pourquoi ne pas utiliser simplement :

Code :

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

s/\s*$//g

Qui enlèverais vraiment tout ce qu'il y a en fin de ligne...

Tout simplement parceque je suis un débutant et que je ne savais pas, en tout cas merci bien.