Discussion :

[remixxl]

bonjour a tous , voila j ai deux fichiers qui contiennent des noms d utilisateurs et je veux faire un seul fichier qui regroupe tous les utilisateurs mais en evitant d avoir un utilisateurs deux fois si il est dans les deux fichiers de depart.

j ai pense a ca mais evidement ca ne marche pas: surement a cause de la comparaison du scalaire et du tableau !!

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
 
open (FICH1,"<fich2");
@tab1 = <FICH1>;
close FICH1;
 
open (TOUS,">>tous");
foreach (@tab1)
{
	print TOUS;
}
 
open (FICH2,"<FICH2");
foreach $line (<FICH2>)
{
	if ($line != @tab1)
	{
		print TOUS "$line\n";
	}
}
close FICH2;
close TOUS;

merci

[fsapet]

salut

tu peux faire quelque chose du style :

lire le fichier 1 et stocker toutes les lignes dans le tableau 1

lire le fichier 2 et stocker toutes les lignes dans le tableau 2

creer une table de hachage dont les cles sont les valeurs de tes deux tableaux (comme les cles d'un hachage sont uniques, tu elimines la redondance)

et voila, ensuite tu peux parcourir ton hachage et creer un nouveau fichier

[remixxl]

ca passe !!

en remuant ma petite cervelle (jusque la j avais la fleme) j ai reussi a trouver une soluce en integrant une deuxieme boucle foreach. c est pas tres elegant mais ca a l avantage de marcher. si qqun a une meilleur soluce a proposer qu il hesite pas mais la mienne c est ca :

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
 
		unlink ("tous");
		open (FICH1,"<$fich1");
		@tab1 = <FICH1>;
		close FICH1;
 
		open (TOUS,">>tous");
		foreach (@tab1)
		{
			print TOUS;
		}
 
		open (FICH2,"<$fich2");
		foreach $line (<FICH2>)
		{
			$deja = "0";
			foreach $ligne (@tab1)
			{
				if ($line eq $ligne)
				{
					$deja = "1";
				}
			}
			if ($deja eq "0"){
			print TOUS "$line";}
		}
		close FICH2;
		close TOUS;

voila ctous ce que j ai a dire a propos de ca

[remixxl]

salut

tu peux faire quelque chose du style :

lire le fichier 1 et stocker toutes les lignes dans le tableau 1

lire le fichier 2 et stocker toutes les lignes dans le tableau 2

creer une table de hachage dont les cles sont les valeurs de tes deux tableaux (comme les cles d'un hachage sont uniques, tu elimines la redondance)

et voila, ensuite tu peux parcourir ton hachage et creer un nouveau fichier

j ai poste en meme temps que toi...

ca a l air pas mal ton truc mais j ai jamais touche aux tables de hachage c est quoi exactement. je suis encore un novice en perl

[fsapet]

http://www.lhullier.org/publications...hapitre07.html

voila

commence par lire ceci, c'est bien pour debuter

[remixxl]

ca me parait tres bien et tres pratique ces petites table de hachage, merci pour ton aide j ai pouvoir faire qqchose de mieux qu ce que j ai pondu.

[Choupi]

Fsapet a raison, le hachage c'est plus propre. Tu peux faire bourrin comme ca : (ca reste propre quand meme).

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
my %hachage;
unless(open IN_1,"f1"){ die "Impossible ouvrir f1"; }
unless(open IN_2,"f2"){ die "Impossible ouvrir f2"; }
while(<IN_1>){
	chomp $_;
	$hachage{$_}="0";
}
close IN_1;
while(<IN_2>){
	chomp $_;
	$hachage{$_}="0";
}
close IN_2;
my @tab =  keys%hachage;
print "@tab";

Tu peux aussi verifier la presence d'une clef avec exists.