Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Discussion: Modifier un format

  1. #1
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    janvier 2019
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : janvier 2019
    Messages : 51
    Points : 22
    Points
    22

    Par défaut Modifier un format

    Bonjour,

    J'ai le script suivant :

    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
     
    close $f;
     
    #open my $fichier, '>>', "/home/gcadars/matrice/matrice2/gcont_2301.dist";
     
    # mes 3 varables
    my ( @x, @y, @z );
     
    # parsing
    foreach my $i ( @data )
    {
        # echap les ligne qui commance par un chiffre
        next unless ( $i =~ /^[^0-9]/ );
     
        chomp( $i );
     
        # decoupage de la ligne
        my @t = split / /, $i;
     
        # ajoute au bon tableau
        push @x, shift @t;
        push @z, \@t;
    }
     
    # copie x -> y
    @y = @x;
     
    # affichage des données
    print '@x = ', join ' ', @x, "\n";
    print '@y = ', join ' ', @x, "\n";
    foreach my $i (0..5)
    {
        print '@z['.$i.'] = ', join ' ' , @{$z[$i]}, "\n";
    }
    qui travaille avec ce fichier :

    5
    ecj 0.0 3.598 3.275 3.675 3.585
    ebw 3.598 0.0 3.201 3.618 3.497
    ecok 3.275 3.201 0.0 3.232 3.157
    eco 3.675 3.618 3.232 0.0 3.535
    ecd 3.585 3.497 3.157 3.535 0.0


    Et qui me printe ceci :

    @x = ecj ebw ecok eco ecd
    @y = ecj ebw ecok eco ecd
    @z[0] = 0.0 3.598 3.275 3.675 3.585
    @z[1] = 3.598 0.0 3.201 3.618 3.497
    @z[2] = 3.275 3.201 0.0 3.232 3.157
    @z[3] = 3.675 3.618 3.232 0.0 3.535
    @z[4] = 3.585 3.497 3.157 3.535 0.0
    @z[5] =

    J'aimerai modifier mon script pour avoir mes résultats sous ce format :

    @x = ['ecj', 'ebw', 'ecok', 'eco', 'ecd']
    @y = ['ecj', 'ebw', 'ecok', 'eco', 'ecd']
    @z = [0.00, 3.598, 3.275, 3.675, 3.585], [3.598, 0.0, 3.201, 3.618, 3.497], [3.275, 3.201, 0.0, 3.232, 3.157], [3.675, 3.618, 3.232, 0.0, 3.535], [3.585, 3.497, 3.157, 3.535, 0.0]

    Merci par avance

  2. #2
    Membre régulier
    Homme Profil pro
    Master Data Manager
    Inscrit en
    février 2017
    Messages
    59
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Cher (Centre)

    Informations professionnelles :
    Activité : Master Data Manager
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : février 2017
    Messages : 59
    Points : 79
    Points
    79

    Par défaut

    Bonjour.

    Le morceau de code Perl fourni n'est pas fonctionnel.
    La qualité de la demande est un facteur qui influence la qualité des réponses.

    Pour modifier la sortie vous pouvez joué avec la section #affichage des données. Exemple:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    print "@x = ['", join "', '", @x, "']\n";

  3. #3
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : mai 2012
    Messages : 3 612
    Points : 12 469
    Points
    12 469
    Billets dans le blog
    1

    Par défaut

    Pour les lignes @x et @y, quelque chose de ce genre:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    my $str = join ', ', map {'"' . $_ . '"' } @x;
    print '@x = [', $str, ']';
    Ce qui affiche (avec mes données que j'imagine identiques aux tiennes):
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    @x = ["ecj", "ebw", "ecok", "eco", "ecd"]
    Pour les valeurs, une solution particulièrement concise, puisqu'elle tient en une seule ligne de code (et plutôt élégante à mon sens):
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    print '@z = ', join ', ', map { '[' . join (', ', @$_) . ']' } @z;
    Ce qui affiche (toujours avec mes données supposément identiques aux tiennes):
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    @z = [0, 3.598, 3.275, 3.675, 3.585], [3.598, 0, 3.201, 3.618, 3.497], [3.275, 3.201, 0, 3.232, 3.157], [3.675, 3.618, 3.232, 0, 3.535], [3.585, 3.497, 3.157, 3.535, 0]

    Mais il se peut que l'utilisation du module Data::Dumper (module standard toujours pré-installé avec Perl) ou Data::Dump (module CPAN à installer éventuellement) te donne directement à peu près ce que tu recherches.

Discussions similaires

  1. [Mysql 3.23] Modifier le format de la date
    Par griese dans le forum SQL Procédural
    Réponses: 6
    Dernier message: 26/01/2007, 14h04
  2. Réponses: 2
    Dernier message: 01/12/2006, 14h50
  3. modifier le format date
    Par vince9327 dans le forum SQL Procédural
    Réponses: 2
    Dernier message: 21/12/2005, 13h34
  4. [Question] modifier le format date
    Par budylove dans le forum SQL Procédural
    Réponses: 1
    Dernier message: 05/10/2005, 10h31
  5. modifier des formats d'import/export
    Par plaf dans le forum Access
    Réponses: 5
    Dernier message: 08/09/2005, 18h58

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo