Discussion :

[choubiroute]

Bonjour,

Je voudrais vérifier que les deux derniers caractères d'un fichiers soient bien \x0d\x0a (saut de ligne windows).

Je procéde de la façon suivante :

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
 
# Fichier à controler
my $file = 'test.txt';
 
# Ouverture du fichier
open (FILE, $file) or die "Impossible d'ouvrir le fichier : $!\n";
 
# On se place à la fin du fichier - 2 caractères
seek (FILE, -2, 2);
 
# Lecture des deux caractères
my $ligne = '';
read ( FILE, $ligne, 2 );
 
# Affichage du résultat
print "\nDEUX DERNIERS CARACTERES = '$ligne'\n";
print "\nDEUX DERNIERS CARACTERES CORRECTS\n" if ($ligne =~ m/^\x0d\x0a$/);
 
# Fermeture du fichier
close FILE;

Je ne comprend pas pourquoi ça ne marche pas... (bien sur quand je regarde le fichier dans un éditeur hexa, il se termine bien par les caractères voulu).

Si quelqu'un veut bien m'expliquer, merci

[Arioch]

Bonjour,

si tu recherches exactement la chaîne "\x0d\x0a", il faut je pense doubler tes 2 \ dans ton expression régulière. Le \ étant un caractère d'échappement...

Code :

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

print "\nDEUX DERNIERS CARACTERES CORRECTS\n" if ($ligne =~ m/^\\x0d\\x0a$/);

Mais peut être dis-je une bêtise ?

[choubiroute]

Non, pour rechercher à l'aide de caractères hexa dans une expression réguliére, il faut toujours passer simple \x , sinon, ils ne sont pas reconnus comme des caractères hexa. (car 0d et 0a correspondent au retour chariot et au saut de ligne en hexa).

Sinon, avec \r\n, ça ne marche pas non plus.

[Arioch]

Ok, désolé

Par contre, si les lignes de ton fichier se terminent par "\r\n", ça signifie quand même que le fichier texte est du windows, non ?

[choubiroute]

Oui, c'est ça, je veux vérifier que mon fichier se termine par un saut de ligne windows. Mais je ne sais pas comment faire

[Arioch]

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
# Fichier à controler
my $file = 'test.txt';
 
# Ouverture du fichier
open (FILE, $file) or die "Impossible d'ouvrir le fichier : $!\n";
 
# On ne teste qu'une ligne pour voir si elle contient la séquence "\r\n"
while(<FILE>)
{
    if ($_ =~ /\r\n$/)
    {
        print "j'ai trouvé la séquence !\n";
        close(FILE);
    }
}

Le close dans mon code est un peu brutal

Sinon, charger la totalité du fichier dans un tableau (ou liste) et vérifier sur un des éléments s'il se termine par "\r\n" ?