Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]190[/thread]

Ich kann einfach den Fehler nicht finden.... (Seite 5)

Leser: 3


<< |< 1 2 3 4 5 >| >> 50 Einträge, 5 Seiten
piero
 2004-03-04 14:53
#1483 #1483
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
und wie lautet dann der gesamtcode?
renee
 2004-03-04 15:10
#1484 #1484
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
wenn du auf http://search.cpan.org CGI eintippst, dann findest Du CGI.pm. Dort kannst Du auch den Code ansehen. Dann wirst Du auch sehen, dass Du diese Funktion nicht einfach 1:1 übernehmen kannst....

Oder welchen Gesamtcode meinst Du??\n\n

<!--EDIT|renee|1078405862-->
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-04 16:31
#1485 #1485
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
hallo,
ich meinte eigentlichen meinen code. werde morgen auch einen update machen.
renee
 2004-03-04 16:43
#1486 #1486
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
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
#!/usr/bin/perl

use strict;
use warnings;

use CGI;
use CGI::Carp qw(fatalsToBrowser);


my $cgi = CGI->new();
my @names = $cgi->param;
my %Formular = ();
$Formular{uc($_}} = $cgi->param($_} foreach (@names);

print $cgi->header('text/html'), 
       $cgi->start_html(-title => 'CGI-Feedback'), 
       $cgi->h1('Kundenerfassung comments.pl'),
       $cgi->p("<b>Kurzname</b> $Formular{KURZNAME}"),
       $cgi->p("<b>Name1</b> $Formular{NAME1}"),
       $cgi->p("<b>Name2</b> $Formular{NAME2}"),
       $cgi->p("<b>Name3</b> $Formular{NAME3}"),
       $cgi->p("<b>Stra\&szlig;e</b> $Formular{STRASSE}"),
       $cgi->p("<b>Land</b> $Formular{LAND}"),
       $cgi->p("<b>PLZ</b> $Formular{PLZ}"),
       $cgi->p("<b>Ort</b> $Formular{Ort}");
# usw.

print $cgi->end_html();
\n\n

<!--EDIT|renee|1078411955-->
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/
Relais
 2004-03-04 17:05
#1487 #1487
User since
2003-08-06
2261 Artikel
ModeratorIn
[Homepage] [default_avatar]
bzw. $cgi->p( $cgi->b('Kurzname'), " $Formular{KURZNAME}"),
Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming
Crian
 2004-03-04 17:17
#1488 #1488
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Schick :)

Produziert das Modul cgi.pm eigentlich valides XHTML?
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
Crian
 2004-03-04 17:20
#1489 #1489
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
[quote=renee,04.03.2004, 15:43]
Code: (dl )
       $cgi->p("<b>Stra\&szlig;e</b>
[/quote]
Werden die Sonderzeichen nicht automatisch umgesetzt? Das wär wohl eines der Dinge, für die ich zuerst eine Funktion schreiben würde...
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
ptk
 2004-03-04 17:23
#1490 #1490
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Ich mag das prozedurale Interface von CGI.pm. Damit ist es kurz und knackig:
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
#!/usr/bin/perl

use strict;
use warnings;

use CGI qw(:standard :html);
use CGI::Carp qw(fatalsToBrowser);


my @names = param;
my %Formular = ();
$Formular{uc($_)} = param($_) foreach (@names);

print header('text/html'),
      start_html(-title => 'CGI-Feedback'),
      h1('Kundenerfassung comments.pl'),
      p(b("Kurzname") . " $Formular{KURZNAME}"),
      p(b("Name1") . " $Formular{NAME1}"),
      p(b("Name2") . " $Formular{NAME2}"),
      p(b("Name3") . " $Formular{NAME3}"),
      p(b("Stra\&szlig;e") . " $Formular{STRASSE}"),
      p(b("Land") . " $Formular{LAND}"),
      p(b("PLZ") . " $Formular{PLZ}"),
      p(b("Ort") . " $Formular{Ort}"),
      end_html;
Maluku
 2004-03-04 17:30
#1491 #1491
User since
2003-10-02
27 Artikel
BenutzerIn
[Homepage] [default_avatar]
[quote=piero,04.03.2004, 10:37]Hallo,
cgis sind erlaubt und perl ist unter /user/bin/perl[/quote]
Also:
erstmal heißt das /usr/
und nicht /user/
und usr steht NICHT für user sondern für
Unix System Resources

Und :
Manche Webserver wollen das Skript auf 755 sehen, und bei manchen darf das Skript keine Fehlermeldungen auswerfen.

Code (perl): (dl )
close STDERR; #use this at your own risk
Code (perl): ()
1
2
3
4
5

&#36_='';
s%%`^.*`s;.*;uhtnmo;;a>lha~a>inu~a>fmk~a>rou~a>duM~a>btl~s;&&&&&&;!d1!l2!b3!i4!f5!r6q(?);e;Z`
`}a>&&&`sub# "1#{#"_=shift#;s^"2^"3#^;``;~`return #"_#}``^!&&`"1(#""2)#\.`Z%;
s~Z~print~g;s/#/\\/g;s/`(.)(.+?)`(.+?)`/s&#36{1}&#36{2}&#36{1}&#36{3}&#36{1}g\;/g;s;&;(.);g;y^"^&#36^;
print;
renee
 2004-03-04 18:19
#1492 #1492
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=Maluku,04.03.2004, 16:30]Also:
erstmal heißt das /usr/
und nicht /user/
und usr steht NICHT für user sondern für
Unix System Resources[/quote]
Naja, ganz so strikt kannst Du es ja nicht sagen, weil rein theoretisch kann man perl installieren wohin man will...
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/
<< |< 1 2 3 4 5 >| >> 50 Einträge, 5 Seiten



View all threads created 2004-03-04 09:24.