Discussion :

[tony_mar]

est ce qu'il existe en perl un moyen de parcourir un fichier caractere par caractere ?

tony

[gerald2545]

directement, je ne sais pas,
mais ce que tu peux faire c'est :
lire le fichier ligne à ligne
{
mettre la ligne courante dans une variable
exploser la variable avec le caractère '' dans un tableau,
parcourir chaque cellule du tableau
}

ou alors
lire le fichier ligne à ligne
{
initialiser un compteur
mettre la ligne courante dans une variable
extraire la sous-chaine à l'index compteur, de longueur 1
}

si tu trouves un moyen de parcourir caractère par caractère directement à partir du fichier, tu nous en fais part, merci d'avance.

[tony_mar]

en fait il existe tout comme en C, la fonction "getc(FILEHANDLE)" qui parcours caractere par caractere..

[Jedai]

Tu peux aussi faire :

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
 
#! /usr/bin/perl
use strict; use warnings;
use English qw( -no_match_vars ) ;
 
local $RS = \1;
 
while( <DATA> ){
	print;
	print "...\n";
}
 
__DATA__
aabbcc
vvtt

Mais je pense que getc est plus efficace...
Le plus propre serais sans doute de faire quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#! /usr/bin/perl
use strict; use warnings;
use IO::Handle;
 
while( defined($_ = *DATA->getc) ){
	print;
	print "...\n";
}
 
__DATA__
aabbcc
vvtt

--
Jedaï

[gerald2545]

ouais, un tout autre niveau que le mien...