Discussion :

[kimikou]

Bonjour,

Mon programme m'affiche actuellement :

Code :

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

1
2
3
aaa   111
b   222
cccc   333

et j'aimerai avoir :

Code :

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

1
2
3
4
 
aaa   111
b     222
cccc  333

Cela est-il réalisable?

Merci d'avance.

[brice45]

Bonjour,

Pourquoi ne pas utiliser de tabulations ?

Je te propose de remplacer tes espaces par une tabulation :
$ligne =~ s/\s+/\t/g;

[kimikou]

Merci.
J'avais quand même déjà des tabulations.

Je remplace donc :

Code :

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

print FILE "$name \t $number\n"

par :

Code :

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

print FILE "$name s/\s+/\t/g $number\n"

?

[Lolo78]

Regarde les fonctions printf et sprintf.

Exemple d'utilisation:

Code :

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

1
2
3
4
my $a = "aaa";
my $b = "bbb";
printf "%10s%20s%10s", $a, $a, $b;
printf " %10s%20s%10s", 'a', 'b', 'c'

Cela imprime:

Code :

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

1
2
3
 
       aaa                 aaa       bbb
         a                   b         c

La chaîne de format "%10s%20s%10s" spécifie:
- %10s: le premier argument ($a) doit être imprimé comme une chaîne de caractère justifiée à droite dans une colonne de 10 caractères
- %20s: le deuxième argument ($a) doit être imprimé comme une chaîne de caractère cadrée à droite dans une colonne de 20 caractères
- %10s: le troisième argument ($b) doit être imprimé comme une chaîne de caractère cadrée à droite dans une colonne de 10 caractères.

Ce n'est qu'un exemple, il y a de très nombreuses autres possibilités.

EDIT: je n'avais pas vu les réponses précédentes. Les tabulations ne résoudront pas tous les cas (notamment si les différences entre les mots sont plus grandes que 5 caractères)

[lennelei]

oui

3 solutions (au moins) :

1) avec write/format :

Code :

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

1
2
3
4
5
6
7
8
9
format =
@<<<<@>>>
$str, int($num)
.
$t = {'aaa' => 111, 'b' => 222, 'ccc' => 333}; 
foreach $str (sort keys %$t) {
	$num=$t->{$str};
	write;
}

2) avec printf :

Code :

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

1
2
3
4
$t = {'aaa' => 111, 'b' => 222, 'ccc' => 333}; 
foreach $str (sort keys %$t) {
	printf "%-6s%3d\n", $str, $t->{$str};
}

3) avec print et length :

Code :

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

1
2
3
4
$t = {'aaa' => 111, 'b' => 222, 'ccc' => 333}; 
foreach $str (sort keys %$t) {
	print $str, " "x(6-length($str)), $t->{$str}, "\n";
}

à adapter en fonction du besoin naturellement !

[djibril]

Il n'y a même pas d'adaptation à faire, il faut utiliser la fonction printf .

[lennelei]

j'ai essayé de trouver des infos dessus sans trop de succès... mais tu déconseilles donc l'usage de write toi ?

(j'avoue, le print + lentgh est un peu tiré par les cheveux...)

ps.: l'adaptation, c'était pour les tailles des champs