Thread zentrierte Darstellung mit printf möglich? (20 answers)
Opened by Duff at 2007-09-19 13:41

renee
 2007-09-19 14:20
#99664 #99664
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Meinst Du so etwas:
Code (perl): (dl )
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
#!/usr/bin/perl

use strict;
use warnings;

my @values = (
    ['T',20,'H'],
    ['Hallo',3,'Welt'],
    ['Test',1035,'Eintrag'],
);

my $length = 30;

for my $ref ( @values ){
    print_formatted( $length, @$ref );
}

sub print_formatted{
    my ($max,$t1,$zahl,$t2) = @_;
    $zahl = sprintf '%06d', $zahl;
    
    my ($rand) = int( ($max - length $zahl) / 2 );
    my $left   = $rand - length $t1;
    
    my $format = "%s%*s%s%*s%s\n";
    print sprintf $format, $t1,$left,' ',$zahl,$left,' ',$t2;
}
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread zentrierte Darstellung mit printf möglich?