Opened by Gast at 2004-03-22 15:32
Hallo,
habe eine Frage. Habe es endlich, dank der vielen Helfer im Forum, geschafft, dass mein Script einwandfrei funktioniert. Nur hab ich da noch eine kleine Frage. Kann man in Perl die Ausgaben x-beliebig gestalten.
Also, mein Bespiel:
kahlfrankfurt
Franz Kahl GmbH
Händler
Baumaschinen
D
60486
Frankfurt am Main
Ich möchte aber, dass die Ausgabe folgendermaße aussieht:
kahlfrankfurt
Franz Kahl GmbH
Händler
Baumaschinen
D
60486
Frankfurt am Main
Also, ohne die Leerspalten.
Das ist mein Code:
Vielen vielen Dank im Voraus.
--
Gruß
Piero
edit renee: [code]-Tags eingefügt...\n\n
<!--EDIT|renee|1079963517-->
habe eine Frage. Habe es endlich, dank der vielen Helfer im Forum, geschafft, dass mein Script einwandfrei funktioniert. Nur hab ich da noch eine kleine Frage. Kann man in Perl die Ausgaben x-beliebig gestalten.
Also, mein Bespiel:
kahlfrankfurt
Franz Kahl GmbH
Händler
Baumaschinen
D
60486
Frankfurt am Main
Ich möchte aber, dass die Ausgabe folgendermaße aussieht:
kahlfrankfurt
Franz Kahl GmbH
Händler
Baumaschinen
D
60486
Frankfurt am Main
Also, ohne die Leerspalten.
Das ist mein Code:
Code: (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
!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my ($Feld, $Name, $Wert);
my %Formular;
my $cgi=CGI->new();
print $cgi->header(-type=>'text/html');
%Formular=$cgi->Vars();
#print "Nicht formatierte Ausgabe:\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>CGI-Feedback</title></head>\n";
print "<body><h1>Kundenerfassung</h1>\n";
print "<p><b>Kurzname:</b> $Formular{KURZNAME}</p>\n";
print "<p><b>Name1:</b> $Formular{NAME1}</p>\n";
print "<p><b>Name2:</b> $Formular{NAME2}</p>\n";
print "<p><b>Name3:</b> $Formular{NAME3}</p>\n";
#print "<p><b>Straße:</b> $Formular{STRASSE}</p>\n";
print "<p><b>Land:</b> $Formular{LAND}</p>\n";
print "<p><b>PLZ:</b> $Formular{PLZ}</p>\n";
print "<p><b>Ort:</b> $Formular{ORT}</p>\n";
print "<p><b>Postfach:</b> $Formular{POSTFACH}</p>\n";
#print "<p><b>Postfach-Plz:</b> $Formular{POSTFACH-PLZ}</p>\n";
print "<p><b>Telefon:</b> $Formular{TELEFON}</p>\n";
print "<p><b>Fax:</b> $Formular{FAX}</p>\n";
print "<p><b>Mobil:</b> $Formular{MOBIL}</p>\n\n\n\n";
print "-----------------------------------------------------------------------------\n\n";
#print "Formatierte Ausgabe:\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>CGI-Feedback</title></head>\n";
print "<body><h1>Kundenerfassung</h1>\n";
print "<p><b></b> $Formular{KURZNAME}</p>\n";
print "<p>$Formular{NAME1}</p>";
print "<p>$Formular{NAME2}</p>";
print "<p>$Formular{NAME3}</p>";
#print "<p><b>Straße:</b> $Formular{STRASSE}</p>\n";
print "<p>$Formular{LAND}</p>";
print "<p>$Formular{PLZ}</p>";
print "<p>$Formular{ORT}</p>";
print "<p>$Formular{POSTFACH}</p>";
#print "<p><b>Postfach-Plz:</b> $Formular{POSTFACH-PLZ}</p>\n";
print "<p>$Formular{TELEFON}</p>";
print "<p>$Formular{FAX}</p>";
print "<p>$Formular{MOBIL}</p>";
print "</body></html>";
Vielen vielen Dank im Voraus.
--
Gruß
Piero
edit renee: [code]-Tags eingefügt...\n\n
<!--EDIT|renee|1079963517-->