Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]208[/thread]

Formatierte Ausgabe

Leser: 5


<< |< 1 2 >| >> 14 Einträge, 2 Seiten
Gast Gast
 2004-03-22 15:32
#1655 #1655
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:
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-->
renee
 2004-03-22 15:51
#1656 #1656
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Die Absätze kommen durch das <p></p> in der Ausgabe (kommt vom englischen paragraph => Absatz). Mach dann lieber Zeilenumbrüche also statt
Code: (dl )
1
2
3
print "<p>$Formular{TELEFON}</p>";
print "<p>$Formular{FAX}</p>";
print "<p>$Formular{MOBIL}</p>";


das hier
Code: (dl )
1
2
3
print "$Formular{TELEFON}<br />";
print "$Formular{FAX}<br />";
print "$Formular{MOBIL}<br />";
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Taulmarill
 2004-03-22 16:00
#1657 #1657
User since
2004-02-19
1750 Artikel
BenutzerIn

user image
kannst du mir (html nichtkönner) erklären wo der unterschied zwischen <br /> und dem <br> so wie ich es kenne liegt?
$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
[E|B]
 2004-03-22 16:09
#1658 #1658
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
<br /> ist der neue XHTML Standard, während <br> altes HTML ist.
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]
piero
 2004-03-22 16:30
#1659 #1659
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
vielen Dank, hat super funktioniert.
Nur wie lese ich Checkboxes und Radiobuttons aus, auch über $Formular?

Beispiel:
HTML-CODE:
<TABLE cellSpacing=2 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="20%"><FONT
face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular>Klassifizierung</FONT></TD>
<TD width="15%"><SELECT size=1 name="Klasse ">
<OPTION value=Kunde selected>Kunde<OPTION
value=Lieferant>Lieferant<OPTION
value=Interessent>Interessent</OPTION></SELECT></TD>
<TD width="15%"><FONT
face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular>Mwst-Pflichtig
</FONT></TD>
<TD width="20%">
<DIV align=left><FONT face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular>Ja
<INPUT type=radio CHECKED value=JA name="MWST ">
&nbsp;Nein <INPUT type=radio value=NEIN
name="MWST"></FONT></DIV></TD>

[CODE]

Wie kann ich jetzt das Feld Klasse und MWST auslesen?

--
Gruß
Piero
renee
 2004-03-22 16:40
#1660 #1660
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Ja, das steht alles im Hash %Formular...

Die Radiobuttons müssen aber auch wirklich den gleichen Namen haben...

Du solltest aber überall auch die schließenden Tags verwenden (und vielleicht auch CSS einsetzen - so als Zugaben ;-) ): also <option ...></option>
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
<table cellspacing=2 cellpadding=0 width="100%" border="0">
  <tr>
    <font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular">Klassifizierung</font></td>
    <td width="15%">
      <select size="1" name="Klasse">
        <option value="Kunde" selected>Kunde</option>
        <option value="Lieferant">Lieferant</option>
        <option value="Interessent">Interessent</option>
      </select>
    </td>
    <td width="15%">
      <font face="Arial,Helvetica,Geneva,Swiss,SunSans-font>Mwst-Pflichtig</font>
    </td>
    <td width="20%">
      <div align="left">
        <font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular">
      Ja
      <input type="radio" checked value="JA" name="MWST">
      &nbsp;
      Nein 
      < type="radio" value="NEIN"
      name="MWST">
      </font>
    </div>
</td>


Code: (dl )
print "Mehrwertsteuer? ",$Formular{MWST},"<br />Klasse: ",$Formular{Klasse};
\n\n

<!--EDIT|renee|1079966639-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
piero
 2004-03-22 16:49
#1661 #1661
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
und das ist der Befehl, der in der Perl-Datei steht?

print "<p><b>Klassifizierung:</b> $Formular{Klasse}</p>\n";

oder muss da noch was anderes?
renee
 2004-03-22 18:47
#1662 #1662
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Nee, das reicht. Du musst nur darauf achten, dass der Name (Key des Hashs) stimmt. Du hattest ziemlich viel Leerzeichen nach "Klasse". Die habe ich bei mir weggemacht!
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
format_c
 2004-03-23 00:31
#1663 #1663
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Schon mal perldoc CGI gelesen?

HTML-Code Perlisch erzeugen.
Seit dem ich mich dran gewöhnt habe will ich keinen HTML-Code mehr tippen.

Gruß Alex
Effizente Linuxshell
esskar
 2004-03-23 04:28
#1664 #1664
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=format_c,22.03.2004, 23:31]Seit dem ich mich dran gewöhnt habe will ich keinen HTML-Code mehr tippen.[/quote]
ist aber nur dann sinnvoll, wenn man nicht so aufs design aus ist...

mein Favorit sind immer noch Templates!
<< |< 1 2 >| >> 14 Einträge, 2 Seiten



View all threads created 2004-03-22 15:32.