Comment savoir si fichier corrompu?

[stoyak]

Question toute bete, voici un script basique.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
$file ="monfichier.txt";

if (-r $file){print "$file lisible\n";}
if (-x $file){print "$file executable\n";}
if (-f $file){print "$file : l'entree est un fichier\n";}
if (-b $file){print "$file : L'entrée est un fichier spécial bloc \n";}
if (-c $file){print "$file : L'entrée est un fichier spécial caractères (périphérique E/S)\n";}
if (-u $file){print "$file : est setuid\n";}
if (-g $file){print "$file : est setgid\n";}
if (-T $file){print "$file :fichier texte\n";}
if (-B $file){print "$file : binaire\n";}
if (-t $file){print "$file : Le handle de fichier est un TTY\n";}

	if ($file =~ /\.txt$/i) {
		print "$file\n"; 
		open (FILE, $file);
		while (my $ligne = <FILE>){
				print "$ligne\n";	
			}
		close(FILE);
	}

Ce script est incapable de me lire les lignes du/des fichiers txt que je veux. Il ne m'affiche pas de messages d'erreur, mais rame à mort, c'est à dire tourne dans le vide et n'affiche rien, et je suis obligé de l'arreter au bout de qq minutes. Pourtant les fichier font à peine 25Mo. Qd je le teste sur d'autres fichiers xml ou meme txt, pas de souci.
Je pense avoir fait une mauvaise manip avec ma clé usb et je me demande si mes fichiers txt que je teste ne seraient pas corrompus
: . Qu'en pensez vous?
Comment savoir avec perl si c'est le cas (car les tests faits sur le fichiers ne me disent rien de particulier à part lisible et fichier txt).

Merci

[stoyak]

Autre remarque, si j'ouvre ces fameux fichiers txt avec excel par exemple et que je les reenregistre sous le même nom, y a plus de soucis.

J'ai ce probleme sous windows et mac, j''ai essayé aussi sous knoppix (CD bootable) et y a pas de soucis . un more de ces fichiers sous knoppix, pas de soucis, un more sous winXP => ouvre pas, rame.
quelqu'un a une idée??

Merci

[djibril]

j'avais eu ce souci aussi, mais j'ai pas eu de solutions

[Jeh]

Il faut peut être regarder du côté des librairies perl Win32.
Y'a peut être des choses plus adaptées.

Bon courage.

[Jedai]

Envoyé par stoyak

Autre remarque, si j'ouvre ces fameux fichiers txt avec excel par exemple et que je les reenregistre sous le même nom, y a plus de soucis.

J'ai ce probleme sous windows et mac, j''ai essayé aussi sous knoppix (CD bootable) et y a pas de soucis . un more de ces fichiers sous knoppix, pas de soucis, un more sous winXP => ouvre pas, rame.
quelqu'un a une idée??

Merci

Si un more sous XP rame, ce n'est sans doute pas un souci directement lié à Perl. Essaie de poser la question sur le forum Windows des fois que...

--
Jedaï

[djibril]

JE le deplace dans le forum windows