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

[Wafa_o]

en fait j'étudie la syntaxe.

Pour le fichier
lapin
loup
chat

si j'ai un n je dois obligatoirement avoir un l sinon erreur.
Je regarde chaque caractère de la première. Le dernier caractère est un n. je regarde le caractère suivant. n est le dernier caractère de la ligne. Je regarde donc le premier caractère de la ligne suivante.

est ce que c'est plus clair ?

[Jasmine80]

C'est en effet beaucoup plus clair ainsi.

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
29
30
31
32
33
34
35
36
37
38
#!/usr/local/bin/perl
 
use strict;
use warnings;
 
my @tabl = qw[
                    lapin
                    loup
                    chat
                ];
 
my %h_couples_lettres = (
                            'nl' => 1,
                            'pc' => 1,
                      );
 
my $derniere_lettre = "";
foreach my $ligne (@tabl){
   if ($ligne =~ /^([a-z])\w+([a-z])$/i){
        my $premiere_lettre = $1;
        # on passe la première ligne
        if ($derniere_lettre ne ""){
           # on crée la combinaison
           #    - dernière lettre de la ligne précédente
           #    - première lettre de la ligne actuelle
            my $couple = lc($derniere_lettre.$premiere_lettre);
 
            # on vérifie que cette jonction soit
            # dans la liste de celles acceptées
            if(exists $h_couples_lettres{$couple}){
                ... traitement
            }
        }
        # on garde en mémoire la dernière
        # lettre pour le tour suivant
        $derniere_lettre = $2;
   }
}