[Thread Prev][Thread Next]   >Date Index >Thread Index

Re[2]: Problem mit Formaten

Johannes Gamperl - Wed Feb 12 11:57:18 2003

Moin Harald und der Rest,

HJ> Da empfielt der Doktor perlfaq5:

das hatte ich schon gefunden .. aber irgendwie nicht verstanden ;o)

Kann mir jemand die Umsetzung für meine Anforderung erklären? Ich steh
grad arg auf dem Schlauch *g*.

Ich habe folgendes:

format.pl
------------------


format HEADER =
Menge Art.nr. Bezeichnung Preis(?) Gesamt(?)
_____________________________________________________________________
.

format INHALT =

@<<<< ^<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<< @>>>>>>>>> @>>>>>>>>>
$menge,$nr,$text,$preis,$summe,
~~ ^<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
$nr, $text
.

format FOOTER =
_____________________________________________________________________

Warenwert: @>>>>>>>>>
$gesamt
.


Dann include ich das Zeugs in mein Perlskript und rufe es wie folgt auf:
----------------------------------

$~ = "HEADER"; write;

$~ = "INHALT";
foreach (0..$#bestellung) {
($text, $nr, $preis, $menge) = split(/\|/, $bestellung[$_]);
$summe = sprintf("%.2f", $menge*$preis);
... irgendwas ...
write; 
}

$~ = "FOOTER"; write;




Ziel wäre es nun die Ausgabe in eine Variable umzulenken .. aber das
funzt bei mir irgendwie nicht so recht.

Bin für jede Hilfe Dankbar und wenn möglich bitte ne Antwort an CC:
gamperl@web.de da ich heute außer Haus programmieren muss ;)

Danke schon mal
Hannes




Next: