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 ...