Thread Formatierte Ausgabe / Platzhalter ... aber wie ?
(23 answers)
Opened by cherished at 2008-06-26 11:29
Zum Experimentieren wäre es gut, das Ergebnis erstmal auf der Konsole auszugeben. Das ginge so:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 #!/usr/bin/perl use warnings; use strict; my $youremail = "you\@email.de"; my $b_email = "me\@email.de"; my $day = 3; my @months = qw(Januar Februar März April Mai Juni Juli August September Oktober November Dezember); my $month = 9; my $year = 2021; my $hour = 14; my $min = 10; my $sec = 50; my $b_first = "Max"; my $b_last = "Mustermann"; my $b_addr = ""; my $b_addr2 = "Mustergasse 15"; my $b_zip = 54321; my $b_city = "München"; my $b_phone = "01234/5678"; my $b_fax = "01234/56710"; my $QUANTITY_1 = 10; my $QUANTITY_2 = 10; my $QUANTITY_3 = 10; my $QUANTITY_4 = 10; my $QUANTITY_5 = 10; my $QUANTITY_6 = 10; my $ID_1 = 12345; my $ID_2 = 12345; my $ID_3 = 12345; my $ID_4 = 12345; my $ID_5 = 12345; my $ID_6 = 12345; my $NAME_1 = "Mustermann"; my $NAME_2 = "Mustermann"; my $NAME_3 = "Mustermann"; my $NAME_4 = "Mustermann"; my $NAME_5 = "Mustermann"; my $NAME_6 = "Mustermann"; my $PRICE_1 = 25; my $PRICE_2 = 25; my $PRICE_3 = 25; my $PRICE_4 = 25; my $PRICE_5 = 25; my $PRICE_6 = 25; my $ADDTLINFO_1 = "Angebot"; my $ADDTLINFO_2 = "Angebot"; my $ADDTLINFO_3 = "Angebot"; my $ADDTLINFO_4 = "Angebot"; my $ADDTLINFO_5 = "Angebot"; my $ADDTLINFO_6 = "Angebot"; print "To: $youremail\n"; print "From: $b_email\n"; print "Subject: Online Bestellung\n"; print "\n\n"; print "Online Bestellung.\n"; print "\n"; print "Bestelldatum: $day. $months[$month] $year $hour:$min:$sec \n"; print " \n"; print "Rechnungsanschrift: \n"; print "-------- \n"; print " $b_first $b_last \n"; print " $b_addr \n"; print " $b_addr2 \n"; print " $b_zip $b_city \n"; print " $b_phone \n"; print " $b_fax \n"; print " $b_email \n"; print " \n"; print " \n"; print "Menge Produkt Name - Preis(Euro)\n"; print "===================================================================== \n"; print "$QUANTITY_1 $ID_1 - $NAME_1 Euro $PRICE_1 $ADDTLINFO_1 \n"; if( $NAME_2 ) { print "$QUANTITY_2 $ID_2 - $NAME_2 Euro $PRICE_2 $ADDTLINFO_2 \n"; } if( $NAME_3 ) { print "$QUANTITY_3 $ID_3 - $NAME_3 Euro $PRICE_3 $ADDTLINFO_3 \n"; } if( $NAME_4 ) { print "$QUANTITY_4 $ID_4 - $NAME_4 Euro $PRICE_4 $ADDTLINFO_4 \n"; } if( $NAME_5 ) { print "$QUANTITY_5 $ID_5 - $NAME_5 Euro $PRICE_5 $ADDTLINFO_5 \n"; } if( $NAME_6 ) { print "$QUANTITY_6 $ID_6 - $NAME_6 Euro $PRICE_6 $ADDTLINFO_6 \n"; } Sehr ungünstig ist dieses "$QUANTITY_1", "$QUANTITY_2", usw. Besser wäre, wenn das ein Array wäre, und man dann also "$QUANTITIES[0]", "$QUANTITIES[1]", "$QUANTITIES[2]" hätte. Aber ich schätze mal, die Variablen werden so in der ersten Variante aus Deinem Programm kommen. |