Perl

Formater des données

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Formater des données

chandlerbing87

Bonjour,

je débute en programmation perl et voila mon problème je possède un grand nombre de fichiers qui sont de cette forme :

4344222
2141221
4121221

Et pour chaque colonne je dois remplacer le chiffre majeur par 1 et par 2 le mineur ce qui donne ça à la fin :

1212112
2111111
1121111

Quand il y a égalité ou que le caractère est le même il suffit de mettre 1 par defaut.

Pourriez vous m'aider ?

Merci d'avance

Message cité 1 fois

Publicité

gilou

Modérateur
Modosaurus Rex

Bonjour,
Le nombre de lignes et de colonnes de tes fichiers est il toujours le même, ou bien est-ce variable, et en ce cas, les valeurs moyennes de ces nombres tournent autour de combien?
A+,

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

chandlerbing87

Bonjour,

C'est variable je peux par exemple avoir 8 lignes c'est rarement plus mais je peux avoir 200 colonnes.

Merci

gilou

Modérateur
Modosaurus Rex

OK, bon ben je vais regarder ça.
Il y a peut être moyen de faire ça via la librairie PDL de perl, mais comme je ne connais pas bien cette librairie, je vais regarder directement.
A+,

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

gilou

Modérateur
Modosaurus Rex

chandlerbing87 a écrit :

Bonjour,

je débute en programmation perl et voila mon problème je possède un grand nombre de fichiers qui sont de cette forme :

4344222
2141221
4121221

Et pour chaque colonne je dois remplacer le chiffre majeur par 1 et par 2 le mineur ce qui donne ça à la fin :

1212112
2111111
1121111

Quand il y a égalité ou que le caractère est le même il suffit de mettre 1 par defaut.

Pourriez vous m'aider ?

Merci d'avance

sauf que le tableau résultat que tu donnes est faux, rien que pour la 2e colonne, 3 etant le chiffre majeur, on devrait avoir 1 en tête de colonne et non 2. etc.
Un exemple qui devrait marcher:

Code :

#!/usr/bin/perl
use strict;
use warnings;
 
#a appeler avec: perl monscript.pl fichier-de-données
my $filename = shift;
open my $input, '+<', $filename or die "Impossible d'ouvrir le fichier $filename :$!";
my $line;
my @row;
my @min;
my @max;
my $cnt = 0;
while ($line = <$input> ) {
    chomp($line);
    next if $line =~ /^\s*$/;
    @row = split (//, $line);
    if ($cnt) {
        map { if ($row[$_] < $min[$_]) {$min[$_] = $row[$_]};
              if ($row[$_] > $max[$_]) {$max[$_] = $row[$_]}; } 0 .. $#row;
    }
    else {
        #first line
        @min = @row;
        @max = @row;
        $cnt++;
    }
}
seek($input, 0, 0);
while ($line = <$input> ) {
    chomp($line);
    next if $line =~ /^\s*$/;
    @row = split (//, $line);
    map { if ($row[$_] == $max[$_]) {$row[$_] = 1}
          else { if ($row[$_] == $min[$_]) {$row[$_] = 2}}
      } 0 .. $#row;
    print join("", @row),"\n";
 
}
close ($input);

On fait une première passe et on range le min et max de chaque colonne dans un tableau, puis on fait une seconde passe, et on substitue par 1 ou 2 si nécessaire.
A+,

Message édité par gilou le 11-06-2010 à 11:18:29

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

chandlerbing87

Merci beaucoup pour ton script c'est vraiment top. J'ai lu que tu me disais que mon résultat était faux en fait je me suis mal exprimé ce que j'entendais pas caractère majoritaire c'était juste le caractère qui était le plus présent dans une colonne, c'est à dire si 1 est présent 3 fois et 4 présent 1 fois le caractère majoritaire est 1 et le minoritaire est 4. En clair je parlais du nombre d'occurence et non de la valeur propre.

Merci vraiment beaucoup

gilou

Modérateur
Modosaurus Rex

OK! dans ce cas la, il faut changer complètement de qui est fait dans la première passe.
Je vais y jeter un œil.
A+,

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

gilou

Modérateur
Modosaurus Rex

Code :

#!/usr/bin/perl
use strict;
use warnings;
 
use List::Util qw(min max);
 
#a appeler avec: perl monscript.pl fichier-de-données
my $filename = shift;
open my $input, '+<', $filename or die "Impossible d'ouvrir le fichier $filename :$!";
my $line;
my @row;
my @aoh; #array of hashes
while ($line = <$input> ) {
    chomp($line);
    next if $line =~ /^\s*$/;
    @row = split (//, $line);
    map {$aoh[$_]{$row[$_]}++;} 0 .. $#row;
}
my @min = map {min values %{$aoh[$_]}} 0 .. $#aoh;
my @max = map {max values %{$aoh[$_]}} 0 .. $#aoh;
seek($input, 0, 0);
while ($line = <$input> ) {
    chomp($line);
    next if $line =~ /^\s*$/;
    @row = split (//, $line);
    map { if ($aoh[$_]{$row[$_]} == $max[$_]) {$row[$_] = 1}
          else { if ($aoh[$_]{$row[$_]} == $min[$_]) {$row[$_] = 2}}
      } 0 .. $#row;
    print join("", @row),"\n";
 
}
close ($input);

La en sortie sur ton exemple, ca donne la même chose que pour ton post initial.
C'était juste un peu plus complexe:
En phase 1, on a un tableau qui pour chaque colonne, a un hash qui a chaque chiffre associe son nombre d'occurrences.
Une fois cela fait, on calcule pour chaque colonne l'occurrence min et max et on en fait deux tableaux.
En phase 2, pour un chiffre, on compare son occurence avec l'occurence maximale dans la colonne, si c'est la même, on remplace par 1, etc.
A+,

Message édité par gilou le 11-06-2010 à 15:11:28

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

chandlerbing87

Merci vraiment beaucoup!!!

chandlerbing87

J'ai encore besoin de ton aide gilou.

En fait au lieu de mettre 1 par défaut quand il y a autant de max que de min, il faudrait mettre 1 pour le max et 2 pour le min même si il y a égalité.

En fait si on a :

4
3
4
3

avoir :

1 ou 2
2 1
1 2
2 1

Merci d'avance

Publicité

gilou

Modérateur
Modosaurus Rex

Mais tu fais quoi avec le cas suivant:
5
4
3
5
4
3
??
A+,

Message édité par gilou le 01-07-2010 à 13:46:39

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

chandlerbing87

En fait je peux pas avoir plus de 2 caractères différents.

gilou

Modérateur
Modosaurus Rex

A priori, ceci devrait coller

Code :

#!/usr/bin/perl
use strict;
use warnings;
 
use List::Util qw(min max);
 
#a appeler avec: perl monscript.pl fichier-de-données
my $filename = shift;
open my $input, '+<', $filename or die "Impossible d'ouvrir le fichier $filename :$!";
my $line;
my @row;
my @aoh; #array of hashes
while ($line = <$input> ) {
    chomp($line);
    next if $line =~ /^\s*$/;
    @row = split (//, $line);
    map {$aoh[$_]{$row[$_]}++;} 0 .. $#row;
}
my @max = map {max values %{$aoh[$_]}} 0 .. $#aoh;
my @min = map {min values %{$aoh[$_]}} 0 .. $#aoh;
 
#En entrée, un array de hashs chaque hash est une liste de (caractere, nb d'occurences dans la colonne)
#En sortie, un array de hashs chaque hash est une liste de (caractere, 2 ou 1)
#Noter que ca ne marche que parce qu'il y a seulement au plus deux caractères distincts par colonne
foreach (0 .. $#aoh) {
    my $firstkey = (keys %{$aoh[$_]})[0];
    my $firstval = ${$aoh[$_]}{$firstkey};
    my $maxi = $max[$_];
    if ($max[$_] == $min[$_]) {
        foreach my $key (keys %{$aoh[$_]}) {
            if ($key == $firstkey) {
                ${$aoh[$_]}{$key} = 1;
            }
            else {
                ${$aoh[$_]}{$key} = 2;
            }
        }
    }
    else {
        foreach my $key (keys %{$aoh[$_]}) {
            if (${$aoh[$_]}{$key} == $maxi) {
                ${$aoh[$_]}{$key} = 1;
            }
            else {
                ${$aoh[$_]}{$key} = 2;
            }
        }
    }
}
 
 seek($input, 0, 0);
 while ($line = <$input> ) {
      chomp($line);
      next if $line =~ /^\s*$/;
      @row = split (//, $line);
      map { $row[$_] = ${$aoh[$_]}{$row[$_]}
        } 0 .. $#row;
      print join("", @row),"\n";
 
 }
close ($input);

Il y a probablement plus simple, mais faut pas trop en demander par 32 degrés à l'ombre.

A+,

Message édité par gilou le 01-07-2010 à 16:40:10

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

chandlerbing87

Pardonne moi pour cette réponse tardive, mais merci beaucoup !!!!

FORUM HardWare.fr

Programmation

Perl

Formater des données

Sujets relatifs
[RESOLU] [SHELL] extraction et reformattage des données d'un fichier	Afficher données excel sous Vb
Copie données usf dans une certaine ligne tableau excel	VBA Trier date min max d'une serie de données
saut de ligne dans une base de données?	[JAVA]Sauveragrde donnees
Supprimer un élément XML en ayant son ID	Représentation de données et alogorithme de filtre de questionnaires
StringGrid formater une colonne	[PHP] comment formater une date sur base de données
Plus de sujets relatifs à : Formater des données

Page générée en 0.107 secondes