Discussion :

[baloo81]

Bonjour.

Je vais essayer de vous expliquez mon soucis, mais je sent que cela ne va pas être facile

Avant tout, mon soucis rentre dans le cadre des incompatibilitées Windows / Unix.

Le contructeur HP ( pour Unix ) nous a fourni une liste héxadécimal de caractère non imprimable.
Il y a en tout 31 code Héxa :

81
82
83
84
85
86
87
88
89
8a
8b
8c
8d
8e
8f
90
91
92
93
94
95
96
97
98
99
9a
9b
9c
9d
9e
9f

J'ai donc mis ces codes dans un fichier que je charge dans mon script avec un while classique.

Mon soucis est le suivant : je souhaite savoir si, dans un fichier de donnée externe ( certain font plus de 40000 lignes ) je rencontre un de ces codes non ASCII, sachant que :

• Le fichier externe est sur Windows et que je doit effectuer ce test avant un transfert sur Unix
• Le fichier externe est un fichier TXT classique

Une des solutions a été d'effectuer la comparaison caractère par caractère. Sur un fichier d'une dizaine de ligne, pas de soucis, mais avec un fichier de plus de 40000 lignes, cela dure bien trop longtemps.
J'ai donc tenté de faire un grep sur l'ensemble de la ligne, mais sans résultat.

Ma question est donc la suivante : est-il possible de tester si, sur une ligne de donnée, il y a un caractère non ASCII ?

[Jedai]

Code :

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

1
2
3
4
5
6
7
my @hexCodes = ... ;
my $str_rx = '[' . (join '', map { chr(hex($_)) } @hexCodes) . ']';
my $rx = qr/$str_rx/;
 
while( <$big_infile> ) {
  warn "Unprintable character on line $.\n" if m/$rx/;
}

--
Jedaï

[baloo81]

Tu es un Dieu JEDAI !!

Je ne comprend pas tout à ton code, mais je teste ça ce matin au boulot et je te dit le résultat.

Il faut vraiment que je me penche un peu plus sur certaine fonction tel que qr ou map.

Merci d'avance.

[baloo81]

Encore merci JEDAI.
Ton code fonctionne parfaitement. Du coup, cela me donne cela :

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
21
22
23
24
25
26
27
28
if ( !-f $Fliste )
   {
     print "\n<b><font color=red>- Le fichier $Fliste est absent. Impossible de faire le test des caracteres non imprimable</b></font>\n";
   }
else
   {
     # Mémorisation des caractères à rechercher dans un tableau
     print "- Memorisation dans un tableau des caracteres non imprimable sous UNIX\n";
     print "- Lecture du fichier $Fliste\n";
     open (FLISTE, "$Fliste") || die "Impossible de lire le fichier liste $Fliste !\n";
     while (<FLISTE>)
     {
       chomp;
       $listeCar[$i]=$_;
       $i++;
     }
    close (FLISTE);
 
     my $str_rx = '[' . (join '', map { chr(hex($_)) } @listeCar) . ']';
     my $rx = qr/$str_rx/;
 
     print "\n- Liste des caracteres a rechercher dans le fichier $fichier\n";
     open (FFICHIER, "$fichier") || die "Impossible de lire le fichier $fichier !\n";
     while (<FFICHIER>)
       {
         print "Ligne ".$.." , colonne ".$+[0]." : detection du caractere ".$&."\n" if m/$rx/ ;
     }
}

L'exploration d'un fichier de plus de 68000 lignes ne durent que quelques secondes. Encore merci.