Discussion :

[Wafa_o]

Bonjour,

Je souhaite faire un traitement sur un fichier. Je place chaque ligne de mon fichier dans un tableaux @tabl puis je place chaque caractères de chaque ligne dans un tableau @tabc.
Mon problème est le suivant :
quand le dernier caractère de la ligne (pointeur à la position 6) est a alors je passe à l'élément suivant du tableau celui qui se trouve à la ligne+1 (pointeur position 0) .

Est ce que quelqu'un sait comment je pourrais réaliser celà?
Merci d'avance.

[Jasmine80]

quand le dernier caractère de la ligne (pointeur à la position 6) est a alors je passe à l'élément suivant du tableau celui qui se trouve à la ligne+1 (pointeur position 0) .

Pourrais-tu donner un exemple car ce n'est pas clair.
Si la ligne se termine par la lettre 'a', tu passes à la ligne suivante et sinon?

As-tu un début de code à proposer?

[Wafa_o]

Par exemple le fichier suivant :

lapin
loup
chat

lorsque l'on affiche le tableau @tabl
( print "ligne $_ correspond à : $tabl[$_]\n", on a:
Ligne 1 correspond à : lapin
Ligne 2 correspond à : loup
Ligne 3 correspond à : chat


Lorsque l'on affiche le tableau @tabc,
(print "caractere $_ correspond à : $tabc[$_] on a
caractere 1 correspond à : l
caractere 2 correspond à : a
caractere 3 correspond à : p
caractere 4 correspond à : i
caractere 5 correspond à : n
caractere 1 correspond à : l
caractere 2 correspond à : o
caractere 3 correspond à : u
caractere 4 correspond à : p
caractere 1 correspond à : c
caractere 2 correspond à : h
caractere 3 correspond à : a
caractere 4 correspond à : t



Pour le traitement, ce que je souhaite c'est :
je suis à la ligne 1, je parcourt chaque caractère. Lorsque j'arrive au dernier caractère (ici n donc ligne 1 caractère 5), je passe à la ligne 2 caractère 1 (ici l )pour poursuivre le traitement.

Est ce que tu comprends mieux ce que je souhaite réaliser ?

[Jasmine80]

Voila une idée de traitement, adapte le à tes besoins :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use warnings;
 
open (FILE, $file) or die "impossible d'ouvrir le fichier $file\n";
my @tab1 = <FILE>;
close(FILE);
 
my @tabc;
foreach my $line (@tab1){
    my @caracteres = split (//, $line);
    push (@tabc, @caracteres);
}

[Wafa_o]

Merci jasmine80 mais j'ai deja le code pour placer les élèments dans les tableaux.
Là où j'ai un problème c'est lorsque je dois ecrire la condition :

je suis à la ligne 1, je parcourt chaque caractère. Lorsque j'arrive au dernier caractère (ici n donc ligne 1 caractère 5), je passe à la ligne 2 caractère 1 (ici l )pour poursuivre le traitement.

[Jasmine80]

je suis à la ligne 1, je parcourt chaque caractère. Lorsque j'arrive au dernier caractère (ici n donc ligne 1 caractère 5), je passe à la ligne 2 caractère 1 (ici l )pour poursuivre le traitement.

Je suis perdue. Si tu as réussi à obtenir le tableau final, pourquoi vouloir écrire les conditions du traitement?

Code :

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

1
2
3
4
5
6
7
8
9
10
my @tabc;
# on prend ligne par ligne
foreach my $line (@tab1){
    # je suis à la ligne x
    # on récupère tous les caractères
    my @caracteres = split (//, $line);
    push (@tabc, @caracteres);
    # quand on a récupéré tous les caractères
    # on passe à la ligne suivante 
}

Si ce n'est pas ce que tu veux, essaie d'expliquer autrement parce que je ne comprends pas