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.