Discussion :

[flash21]

Bonjour,
je suis débutant en programmation Perl, et j'aurais quelques questions par rapport à un code que je suis entrain de faire. En résumé, il me faut un programme capable de trier des fichiers textes selon une clé. exemple basique:
Voilà un fichier :

1500 12102010 21
1500 12102005 18
1500 12102010 09

J'aimerais lire le contenu du fichier en prenant comme clé la date qui est le deuxième élément. Ensuite il me faudrait trier le fichier par rapport à la date avant d'additionner les 3ème éléments entre eux si jamais la date est la même.
Le fichier précédent donnerait alors :

1500 12102005 18
1500 12102010 30

Pour l'instant je n'arrive à faire que le tri des dates mais la réécriture du fichier ne marche pas. Est-ce que quelqu'un aurait une idée svp?

[djibril]

Bonjour et bienvenu sur ce forum.
La première des choses à faire est de nous montrer ce que tu as fait.

Bon courage

[Philou67430]

La taille de tes fichiers d'entrée était-elle compatible avec le chargement complet de la ceux-ci en mémoire ?

[flash21]

2005 2012 15000
2005 2020 23900
2005 2003 07500
2005 2012 86000

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
my $DirectoryIn = "/Desktop";
open ENTREE,"< $DirectoryIn/toto.txt" or die "$! : This file is missing\n";
open SORTIE,"> $DirectoryIn/titi.txt" or die "$! : you can't create this file\n";
while (<ENTREE>)
{
 
	my $value1 = substr($_,0,4);
	my $value2 = substr($_,19,4);
	my $value2 = substr($_,37,5);
	my $i;
	my @NOTSORTED;
	my @SORTED;
 
	if($value2 ne 0)
	{
		@NOTSORTED[$i] = $value2;
		$i++;
	}
	$SORTED = sort($NOTSORTED);
	#A partir de ce moment, value2 est trié
 
 
close ENTREE;
close SORTIE;

A partir de là j'aimerais bien réécrire mon fichier dans SORTIE en supprimant les occurrences.

[Philou67430]

En postant ton script, tu as répondu à ma question : ta solution est de charger en totalité ton fichier en mémoire pour le trier, ce qui est possible si sa taille ne dépasse pas certaines limites liées à ta configuration.

En revanche, ton script ne fait pas vraiment ce que tu attends.

Je te propose d'utiliser une table de hashage pour la clé, celle-ci à le mérite de permettre une recherche rapide d'une clé déjà existante.

Voici ce que je te propose (je ne l'ai pas testé):

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
 
my $DirectoryIn = "/Desktop";
open ENTREE,"< $DirectoryIn/toto.txt" or die "$! : This file is missing\n";
open SORTIE,"> $DirectoryIn/titi.txt" or die "$! : you can't create this file\n";
my %in_file;
while (<ENTREE>)
{
  my (undef, $key, $value) = split /\s+/; # je récupère la clé et la valeur
  if ($key) {
    if (exists $in_file{$key}) {
      # la clé existe déjà, on ajoute la valeur à la valeur déjà présente
      $in_file{$key} =~ s/(\d+)$/$1 + $value/e;
    }
    else {
      # la clé n'existe pas, on l'ajoute avec la ligne correspondante
      $in_file{$key} = $_;
    }
  }
}
close ENTREE;
foreach my $date (sort keys %in_file) {
  print SORTIE $in_file{$date};
}
close SORTIE;

[Philou67430]

Suite à un test, j'ai corrigé le script précédent qui comportait une erreur de syntaxe dans un if et une erreur dans l'expression régulière :

Code :

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

$in_file{$key} =~ s/(\d+)$/$1 + $value/e;

Cette expression régulière substitue le dernier "nombre" de la ligne avec la somme du nombre de la nouvelle ligne avec celui de la ligne déjà enregistrée pour cette clé. Il se trouve que précédemment, j'avais écrit dans le motif qui ne fallait sommer que le dernier "chiffre" (\d au lieu de \d+).

Désolé.

Pour le reste, merci de continuer à poster ici (voir ma signature).