Introduire un espace entre 2 colonnes en Perl Résolu/Fermé

Question

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 !

lami20j · Answer

Salut,

Affiche ton code, ça sera plus facile de comprendre ce que tu veux.

lami20j · Answer

Re,

Voici quelques exemples d'affichagelami20j@debian:~/trash$ cat ccm10_affichetableau.pl
#!/usr/bin/perl
use strict;use warnings;

my @t=([0..10],[90..100]);

print "*"x30,"
";
print @$_,"
" for @t;
print "*"x30,"
";

print "@$_
" for @t;;
print "*"x30,"
";

{
        local $"="	";
        print "@$_
" for @t;
}

print "*"x30,"
";
for (@t){
        print map { sprintf("%4d",$_) } @$_;
print "
";
}
__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

caro11 · Answer

Salut lami20j,

merci beaucoup ça marche très bien et en plus mon tableau est très lisible pour la lecture.

Merci encore :))

Introduire un espace entre 2 colonnes en Perl

3 réponses

Discussions similaires