Formatierte Ausgabe / Platzhalter ... aber wie ? - #111542 (Allgemeines zu Perl)

Linuxer

2008-06-26 13:01

User since
2006-01-27
3870 Artikel
HausmeisterIn

user image

Hi,

nochmal als Denkansatz:

folgender Code:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;

my %data = (
    ID           => [ qw( 10_04 ) ],
    Vorgangsart  => [ qw( 27 korrekt) ],
    Landesdirekt => [ qw( 22367 korrekt) ],
    VNR          => [ qw( 29868 korrekt) ],
    Schadensjahr => [ qw( 123 korrekt) ],
);


for my $k ( keys %data ) {

    my $format = "%-15s %10s %10s\n";
    if ( $k eq 'ID' ) {
        $format = "%-15s %10s\n";
    }
    printf $format, "$k:", $data{$k}->[0], $data{$k}->[1];
}

liefert folgende Ausgabe:

Code: (dl )

ID:                  10_04
Vorgangsart:            27    korrekt
Landesdirekt:        22367    korrekt
Schadensjahr:          123    korrekt
VNR:                 29868    korrekt

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!