WCM Forum

WCM Forum (http://www.wcm.at/forum/index.php)
-   Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)
-   -   Perl Formate: Frage zu zeilenweiser Ausgabe (http://www.wcm.at/forum/showthread.php?t=233935)

RaistlinMajere 20.03.2009 11:20

Perl Formate: Frage zu zeilenweiser Ausgabe
 
angenommen ich möchte die ergebnisse mathematischer berechnungen ausgeben lassen, so funktioniert das, wenn ichs in einer einzigen zeile ausgeben lasse, z.b. so:
Code:

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.
Code:

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ß:
Code:

my $zahl = 10;
write;

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

das klappt aber leider auch nicht. :(

gaelic 20.03.2009 13:27

Zitat:

Zitat von RaistlinMajere (Beitrag 2352621)
angenommen ich möchte die ergebnisse mathematischer berechnungen ausgeben lassen, so funktioniert das, wenn ichs in einer einzigen zeile ausgeben lasse, z.b. so:
Code:

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.
Code:

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ß:
Code:

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?

RaistlinMajere 20.03.2009 13:37

Zitat:

Zitat von gaelic (Beitrag 2352646)
wieso machst du das mit write und STDOUT und nicht mir print?

so wirds in einem skriptum gemacht, in dem ein entsprechendes bsp so drin steht.

wie gings mit print?


Alle Zeitangaben in WEZ +2. Es ist jetzt 07:26 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 2009 FSL Verlag