Discussion :

[PadawanInPerl]

Hello à tous,

Je ne dois pas être au bon endroit (encore...désolé) y a qq chose qui m'échappe avec la navigation...

Mon problème est le suivant :

j'ai 2 fichiers ayant une liste de nombre
je souhaiterais "printer" seulement les nombres différent /manquant

fichier 1 (1, 2, 5)
fichier 2 (1,2,3,4,5)

soluce : 3 4

?? voilà

je sais que c'est pas très compliqué, mais j'ai un petit cerveau
ps : G pas mal cherché !! pour agraver mon cas

[iblis]

S'agit-il d'un exercice juste pour apprendre ?

Ouvre le premier fichier. Pour chaque ligne lue, enregistre la en clé d'une table associative. Ferme le fichier. Ouvre le deuxième fichier. Pour chaque ligne lue, affiche là si elle ne figure pas dans la table associative. Ferme le fichier.

Tu dois avoir tout ça dans la FAQ.

[iblis]

Oups, tu aurais du poster dans Langage ; les modos vont déplacer ton message.

[PadawanInPerl]

Oups, tu aurais du poster dans Langage ; les modos vont déplacer ton message.

Merci !

je regarde ça...

ps : j'apprends tant bien que mal, seul à part le forum !! merci vous tous.

[PadawanInPerl]

S'agit-il d'un exercice juste pour apprendre ?

Ouvre le premier fichier. Pour chaque ligne lue, enregistre la en clé d'une table associative. Ferme le fichier. Ouvre le deuxième fichier. Pour chaque ligne lue, affiche là si elle ne figure pas dans la table associative. Ferme le fichier.

Tu dois avoir tout ça dans la FAQ.

J'ai essayé ça...Mais bon

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
 
#!/usr/local/bin/perl   -w
 
use strict;
use warnings;
 
open UN, "un.txt";
open DEUX,"<deux.txt";
 
my $line;
my $line2;
my %tab = ();
 
while ($line2 = <DEUX>)
        {
        chomp $line2;
        %tab = $line2;
        }
 
 
while ($line = <UN>)
        {
        chomp $line;
        unless (exists $line{@tab})
                {
                print $line2;
                }
                else
                {
                print 'fin';
                }
        }
close DEUX;
close UN;

[iblis]

C'est pas mal mais il y manque l'idée principale (les fautes de syntaxe se corrigent vite) : lire le premier fichier en entier dans une table associative ; le fermer ; puis ouvrir et lire le deuxième.

Je te montre un façon (à peu près) propre de procéder.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use strict;
 
my %lines;
 
open my $fh, '<', 'file1' or die "$!";
while (<$fh>) { $lines{$_} = 1 }
close $fh;
 
open $fh, '<', 'file2' or die "$!";
while (<$fh>) { print unless $lines{$_} }
close $fh;

A partir de Perl 5.8 (et peut-être même un peu avant), il est possible et conseillé de passer les filehandle dans des varialbes scalaires et d'utiliser la syntaxe à trois arguments pour open.

La syntaxe pour accéder aux valeurs d'une table associative est la suivante :

Code :

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

1
2
3
my %table;
$table{'clé'} = 'valeur';
my $val = $table{'clé'};

Dans le boucle while avec l'opérateur <FILEHANDLE>, la ligne lue est passé par défaut dans $_. Tu peux bien sûr écrire, plus lisiblement :

Code :

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

while (my $data = <$fh>) { $lines{$data} = 1 }

[PadawanInPerl]

Merci Beaucoup,

C vraiment cool.

je vais pouvoir bosser correctement.



Merci ++