Perl : Formatierte Ausgabe

N

Nano

Foren As
Hi ich habe 5 Variablen ( x1 -x5 ) die ich gerne in der Form

Code:
x 1:
                              Text : x2
                              Text : x3
                              Text : x4
                              Text : x5

ausgeben möchte, leider finde ich kein geeignetes beispiel

mein versuch :

Code:
        for(my $ i = 0; $i < $size; $i++){
        my $test = 123;
        my $test1 = 123;
        my $test2 = 123;
        my $test3 = 123;


        write;

        format STDOUT =

        @<<<<<
                Text : @#######
                Text : @#######
                Text : @#######
                Text : @#######
{
        $test,
        $test1,
        $test1,
        $test2,
        $test3
}
.

teilweise werden die zahlen ausgegeben, teilweise durch 0en ersetzt und teilweise kommt ein Not enough format arguments, hat jemand eine idee?
 
soweit ich das jetzt verstanden hab kann man nur eine formatierungsanweisung "at a time" benutzen, für die dann sofort die verwendeten variablen angegeben werden müssen. also müsstest sowas in der art machen:
PHP:
#!/usr/bin/env perl

my $test1 = 123;
my $test2 = 234;
my $test3 = 345;
my $test4 = 456;


write;

format STDOUT =
@<<<<<
$test1
        Text : @#######
$test2
        Text : @#######
$test3
        Text : @#######
$test4
        Text : @#####.#
$test4 / $test3
.

[edit]:
hmpf, ungenau ausgedrückt: nicht eine formatierungsanweisung at a time, sondern eine formatierungszeile at a time, zu der dann gleich die übergebenen variablen in die nächste zeile müssen.
 
Zuletzt bearbeitet:
Warum nutzt du nicht einfach printf?
Das ist weit besser zu handhaben.
 

Ähnliche Themen

NagiosGrapher 1.7.1 funktioniert nicht

Perl : Formatiete Ausgabe einzelne Zeilen mehrfach

Squid nur zum maskieren der eigenen IP, nicht für Webserver auf port 80

CGI laesst sich nicht ausfuehren

Amavis & Benachrichtigungen

Zurück
Oben