Per Schleife $Variablen$zaehler durchnummerieren? - #100654 (Allgemeines zu Perl)

Duff

2007-10-11 10:52

User since
2006-10-06
283 Artikel
BenutzerIn

user image

Hallo,

ich habe mal eine Frage zu einem Ablauf.

Und zwar habe ich eine Funktion, die in etwa so aussieht:

Code (perl): (dl )

sub print_formatted{
        my ($max,$t1,$t2,$t3,$t4,$t5,$t6) = @_;

        # berechne den linken Rand $lRand
        my ($lRand) = int( ($max - length $t4) / 2 );
        # berechne den rechten Rand $rRand
        my $rRand = $max - $lRand - length $t4;

        my $format = "%6d %-12s %-12s %*s%s%*s %-12s %10d\n";

        print sprintf $format, $t1,$t2,$t3,$lRand,' ',$t4,$rRand,' ',$t5,$t6;
}

Nun möchte ich aber die Funktion so anpassen, dass die Formatierung nicht nur für einen Wert gilt, sondern für mehrere.
Sprich, ich müsste in einer Schleife was bilden, was ungefähr so aussieht:

Code (perl): (dl )

for (my $i=1; $i<=$anzahl;$i++) {
        $lRand$i = int( ($may - length$t$i) / 2);
}
...

Nur wie bekomme ich diese Nummerierung $lRand1, $lRand2, ... und $t1, $t2, usw hin.

Danke.

D'OH
Daniel