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" ?

[choubiroute]

Dans ton exemple, on detecte uniquement si une des lignes du fichier se termine par la séquence \r\n (saut de ligne windows), ce qui a de forte chance de survenir dés la première ligne du fichier.

Or moi, je veux detecter non pas qu'une des lignes se termine par \r\n mais que mon fichier se termine par \r\n.

De plus j'ai un soucis de performance, donc je ne peux pas procéder en parcourant l'intégralité du fichier pour aller lire ses 2 derniers caractères (si j'ai un fichier de 150mo, ce qui sera mon cas en moyenne, je ne peux pas me permettre de le lire en entier uniquement pour récupérer ses 2 derniers carcatères). D'ou l'utilisation de :

Code :

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

1
2
# On se place à la fin du fichier - 2 caractères
seek (FILE, -2, 2);

qui me permet de me positionner directement 2 caractères avant la fin du fichier.
Bien sur, je ne peux même pas espérer stocker mon fichier dans un tableau : imagine 150mo dans un tableau, et ce sur 40 instances de mon programme Ma machine va exploser ...

[Jeh]

tu as essayé ton expression régulière après avoir passé ton $ligne en hexa ?
Car pour moi, tu récupères dans $ligne seulement tes caratères au format texte, mais je me trompe peut être, je n'ai jamais fait ce genre de manip'...
Sinon, pour info, le 'm' dans ta regexp ne sert à rien quand tu as une regexp dans une condition.

[choubiroute]

tu as essayé ton expression régulière après avoir passé ton $ligne en hexa ?
Car pour moi, tu récupères dans $ligne seulement tes caratères au format texte, mais je me trompe peut être, je n'ai jamais fait ce genre de manip'...

Non, mais j'ai essayé avec \r\n, et de plus, j'ai souvent utilisé ce genre de syntaxe et je suis sur qu'elle fonctionne.

Sinon, pour info, le 'm' dans ta regexp ne sert à rien quand tu as une regexp dans une condition.

Je le met uniquement pour améliorer la lisibilité

[pospos]

si tu veux chooper juste les 2 derniers octets du fichier tu peux utiliser seek :

Code :

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

1
2
3
4
5
6
open(my $fh, "<", $file) || die $!;
binmode($fh); # tres important si tu ne veux pas qu'il fasse lui meme la conversion sans te le dire sous windows !
seek($fh, -2, 2);
my $chars = <$fh>;
close($fh);
print $chars eq "\015\012" ? "windows\n" : "non windows\n"

(non testé)


EDIT: en fait je vois que tu utilisais deja seek. Mais inutile d'utiliser une regepx ensuite puisque tu sais que tu a deux chars. Ton probleme venait peut etre de l'absence de binmode, si tu lancais ton script sous windows

[choubiroute]

Enfin, j'ai réussi (testé sous windows et aix) :

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
my $file = 'test.txt';
 
my $temp = $/;
$/ = "\0";
 
open (FILE, $file) or die "Impossible d'ouvrir le fichier : $!\n";
binmode FILE;
 
seek (FILE, -1, 2);
 
my $ligne = <FILE>;
 
print "\nDEUX DERNIERS CARACTERES = '$ligne'\n";
 
print "\nDEUX DERNIERS CARACTERES CORRECTS\n" if ($ligne eq "\015\012");
 
close FILE;
 
$/ = $temp;

Merci pour le binmode pospos

[pospos]

pour le $/ mieux vaut le redefinir avec un local dans un bloc:

Code :

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

1
2
3
4
5
 
{
  local $/ = undef;
  $buf = <FILE>;
}

(ou utiliser read() comme tu le faisais. Ca passe pas le <FILE> si tu redefini pas $/ ?)

et sinon je te conseil aussi d'utiliser une vraie variable à la place de FILE, et de faire un open a trois arguments (imagine ce qui se passe si un mec rentre ">text.txt" comme nom de fichier, ou pire un truc avec un pipe...)

et sinon je comprend pas pk tu fais -1 dans le seek?...