Perl Formate: Frage zu zeilenweiser Ausgabe

[gaelic]

Zitat von RaistlinMajere

angenommen ich möchte die ergebnisse mathematischer berechnungen ausgeben lassen, so funktioniert das, wenn ichs in einer einzigen zeile ausgeben lasse, z.b. so:

my $zahl = 10;
write;

format STDOUT =  
normal: @> hoch2: @>> hoch3: @>>>
{
$x,
$x*$x,
$x*$x*$x
}
.

das passt so weit.
wenn ich jedoch diese ergebnisse zeilenweise und nicht nebeneinander in einer zeile ausgeben lassen will, funzts nicht so, wie ich mir das gedacht habe.

my $zahl = 10;
write;

format STDOUT =  
normal: ^>
hoch2: ^>>
hoch3: ^>>>
{
$x,
$x*$x,
$x*$x*$x
}
.

kann mir jemand erklären, wie ich das hier machen müßte, damits klappt?
ich hab mir schon gedacht, daß es vllt. daran liegen könnte, daß bei einer zeilenweisen ausgabe die entsprechend eingesetzte variable sofort nach der formatdefinition angegeben werden muß:

my $zahl = 10;
write;

format STDOUT =  
normal: ^>
$x
hoch2: ^>>
{$x*$x}
hoch3: ^>>>
{$x*$x*$x}
.

das klappt aber leider auch nicht.

wieso machst du das mit write und STDOUT und nicht mir print?