Thread zentrierte Darstellung mit printf möglich?
(20 answers)
Opened by Duff at 2007-09-19 13:41 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 = 6; print sprintf "%-7s| %s |%9s\n",'col1','col2','col3'; for my $ref ( @values ){ print_formatted( $length, @$ref ); } sub print_formatted{ my ($max,$t1,$zahl,$t2) = @_; my ($rand) = int( ($max - length $zahl) / 2 ); my $right = $max - $rand - length $zahl; my $format = "%-7s|%*s%s%*s|%9s\n"; print sprintf $format, $t1,$rand,' ',$zahl,$right,' ',$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/ |