Discussion :

[seekawa]

Bonjour,

Je souhaite récupérer des informations contenues dans un fichier généré sous Windows (encodage UTF-16LE), du format :

MaximumPasswordAge = 0
ClearTextPassword = 1

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
#!/usr/bin/perl
 
open my $PROCESS, "<", $ARGV[0] or die "Ouverture impossible de $ARGV[0] $!";
 
while (defined ($line = <$PROCESS>)) {
	if($line =~ m/$ARGV[1]/) {
		@items = split (/ = /,$line);
		$result = $items[1];
		if ($result eq $ARGV[2]) {
			print "OK";
		}
		else {
			print "KO";
		}	
	}
}
close ($PROCESS);

Ce code ne m'affiche rien. J'imagine que cela est dû à l'encodage du fichier, puisqu'il ne reconnaît pas le motif ARGV[1] qui pourtant est bien présent.
Est-ce que quelqu'un a déjà eu à faire à ce genre de problème ? Comment faire ?

Merci d'avance.

[Gardyen]

Effectivement l'encoding peut poser problème, précise-le si tu veux éviter les problèmes.

Il sera aussi probablement utile de supprimer les caractères de fin de ligne.
mais vu que l'encoding est différent, chomp ne suffira peut-être pas.

Code :

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

1
2
3
4
5
6
7
8
# be strict
use strict;
use warnings;
 
open my $PROCESS, "<:encoding(UTF-16LE)", $ARGV[0] or die "Ouverture impossible de $ARGV[0] $!";
while (defined (my $line = <$PROCESS>)) {
	$line = trim($line);
	...

[Lolo78]

Dans le cas présent montrer le code ne suffit pas à émettre une hypothèse. Peux-tu montrer la ligne de commande que tu utilises pour lancer ton script? Et mettre en pièce jointe un échantillon de ton fichier?