Discussion :

[artiflo]

Bonjour,

J'ai un fichier qui contient plusieurs ligne ainsi :

MARSEILLE;45646;fzefze
MARSEILLE;456hrt;gergt
TOULOUSE;4g5er6;45g6er
PARIS;fez45f6ze;456fez456
PARIS;fez56f456;456fze56

Je voudrais n'afficher que les lignes qui se répète celon le nom de la ville. C'est a dire dans cet exemple Marseille et Paris mais pas toulouse.

Donc le début, j'ai pensé a déjà isoler le nom de la ville ainsi :

Code :

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

1
2
3
4
5
6
7
 
$fichier = "c:\\temp\\test.txt";
open (FIC, "<$fichier) or print "fichier introuvable";
while (<FIC>) {
chomp;
($ville, $truc, $machin) = split (/;/, $_);
}

Mais c'est aprés que je ne sais pas comment faire pour dire d'afficher la ligne uniquement si le nom de la ville apparait sur une autre ligne dans le fichier.

[djibril]

Il faut ruser . Tu peux lire le fichier 2 fois.
Une première fois pour compter tes villes et une deuxième fois pour l'affichage des lignes souhaitées du fichier.

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
#!/usr/bin/perl
use warnings;
use strict;
 
my $fichier = "test.txt";
open( FIC, '<', $fichier ) or die "Fichier introuvable : $fichier\n";
 
# Compteur ville
my %CompteurVilles;
while (<FIC>) {
  chomp;
  my ( $ville, undef, undef ) = split(/;/);
  $CompteurVilles{$ville}++;
}
close(FIC);
 
# Affichage
open( FIC, '<', $fichier ) or die "Fichier introuvable : $fichier\n";
while ( my $ligne = <FIC> ) {
  chomp $ligne;
  my ( $ville, undef, undef ) = split( /;/, $ligne );
  if ( $CompteurVilles{$ville} > 1 ) {
    print "$ligne\n";
  }
}
 
close(FIC);

[Philou67430]

Il n'est pas nécessaire de lire le fichier 2x.
Lorsqu'une ville apparait plusieurs fois (2x ou plus), laquelle souhaites-tu faire apparaitre, la première, la dernière, une autre ?

Si c'est, comme dans l'exemple de djibril, la première occurrence, voici un exemple d'algorithme :

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
#!/usr/bin/perl
use warnings;
use strict;
 
my $fichier = "test.txt";
open( my $FIC, '<', $fichier ) or die "Fichier introuvable : $fichier: $!\n";
 
# Compteur ville
my %Villes;
while (<$FIC>) {
  my ( $ville ) = split(/;/);
  if (exists $Villes{$ville}) {
    # La ville existe déjà
    if (defined $Villes{$ville}) {
      # La ville n'a pas encore été affichée
      print $Villes{$ville};
      # Indiquer que la ville a été affichée en indéfinissant cette ligne
      $Villes{$ville} = undef;
    }
  }
  else {
    # La ville n'existe pas, on l'ajoute à la liste des lignes de villes
    $Villes{$ville} = $_;
  }
}

[djibril]

Je pense qu'il voulait afficher toutes les lignes si nbr ville > 1.
J'ai lu le fichier 2 fois pour éviter le stockage en mémoire et de plus, je n'avais pas envie de réfléchir à l'algo

[artiflo]

Merci.

La solution de djibril marche à merveille !

Merci merci merci.