Introduire un espace entre 2 colonnes en Perl

Résolu
caro11 Messages postés 3 Statut Membre -  
caro11 Messages postés 3 Statut Membre -
Bonjour,
je suis débutante en Perl et j'aimerai bien savoir comment on peut introduire un espace entre deux colonnes dans un tableau à deux dimensions en Pel afin d'avoir un meilleur affichage du genre :

1 2 3 4 1234
1 2 3 4 et non 1234
1 2 3 4 1234
1 2 3 4 1234

Merci !
Configuration: Windows XP
Internet Explorer 6.0

3 réponses

  1. lami20j Messages postés 21506 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 571
     
    Salut,

    Affiche ton code, ça sera plus facile de comprendre ce que tu veux.
    0
    1. caro11 Messages postés 3 Statut Membre
       
      Salut lami20j,

      le code que j'ai écrit remplit un tableau 2D de taille par exemple 11x11 et puis l'affiche mais l'affichage entre les colonnes n'est pas assez lisible car je n'ai pas d'espace entre les colonnes :

      for $i (0..11){
      for $j (0..11){

      if ($i==0)
      {$t[$i][$j]=$j;}

      elsif ($j==0)
      {$t[$i][$j]=$i;}

      elsif (($i>0) and ($j>0)){
      t[$i][$j] = $j+ $i;}

      }
      }

      for $ligne(@t) {
      print"\n", @$ligne, "\n";
      }

      voici l'affichage que j'ai par exemple et donc je veux espacer mes colonnes pour que ça soit plus lisible :

      012345678910

      1234567891011

      23456789101112

      3 etc...

      4

      etc...

      Merci !
      0
  2. lami20j Messages postés 21506 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 571
     
    Re,

    Voici quelques exemples d'affichage
    lami20j@debian:~/trash$ cat ccm10_affichetableau.pl
    #!/usr/bin/perl
    use strict;use warnings;
    
    my @t=([0..10],[90..100]);
    
    print "*"x30,"\n";
    print @$_,"\n" for @t;
    print "*"x30,"\n";
    
    print "@$_\n" for @t;;
    print "*"x30,"\n";
    
    {
            local $"="\t";
            print "@$_\n" for @t;
    }
    
    print "*"x30,"\n";
    for (@t){
            print map { sprintf("%4d",$_) } @$_;
    print "\n";
    }
    __END__
    lami20j@debian:~/trash$ perl ccm10_affichetableau.pl
    ******************************
    012345678910
    90919293949596979899100
    ******************************
    0 1 2 3 4 5 6 7 8 9 10
    90 91 92 93 94 95 96 97 98 99 100
    ******************************
    0       1       2       3       4       5       6       7       8       9       10
    90      91      92      93      94      95      96      97      98      99      100
    ******************************
       0   1   2   3   4   5   6   7   8   9  10
      90  91  92  93  94  95  96  97  98  99 100
    
    0
  3. caro11 Messages postés 3 Statut Membre
     
    Salut lami20j,

    merci beaucoup ça marche très bien et en plus mon tableau est très lisible pour la lecture.

    Merci encore :))
    0