CGI.pm (Perl/CGI) - Perl-Community.de

esskar

2004-04-10 13:22

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Code: (dl )

my $ort = $frage->param("ort") || "Saarbrücken";

PS: Seit gestern benutz ich CGI::Simple; ist ein Stück schneller und wohl zu Empfehlen, wenn man CGI.pm nicht seinen HTML erzeugen lässt.

format_c

2004-04-10 13:49

User since
2003-08-04
1706 Artikel
HausmeisterIn

Also ich machen es eigentlich auch immer so wie esskar.

Gruß Alex

Effizente Linuxshell

format_c

2004-04-10 15:48

User since
2003-08-04
1706 Artikel
HausmeisterIn

Bei vielen Parametern ist das sicher praktisch schützt aber genauso wenig vor undefined Values.

Gruß Alex

Effizente Linuxshell

format_c

2004-04-10 22:17

User since
2003-08-04
1706 Artikel
HausmeisterIn

Ja ok. Aber dann musst du für jeden Parameter der dir wichtig ist eine solche extits Abfrage machen. Aber ist IMHO Geschmakssache.

Gruß Alex

Effizente Linuxshell

jan10001

2004-04-10 13:19

User since
2003-08-14
962 Artikel
BenutzerIn
[default_avatar]

Formulardaten hole ich mir mit CGI.pm

Code: (dl )

my $ort = $frage->param("ort");

Gibt es einen Weg das lästige Vordefinieren der Varablen zu automatisieren?\n\n

jan10001

2004-04-10 13:36

User since
2003-08-14
962 Artikel
BenutzerIn
[default_avatar]

CGI::Simple werde ich mal testen. :)

pktm

2004-04-10 15:45

User since
2003-08-07
2921 Artikel
BenutzerIn

Hm, vielleicht bringt dir das hier auch was:

Code: (dl )

1
2

my $cgi = CGI->new();
my $query = $cgi->Vars();

So spare ich mir das mit den $cgi->param() weil ich alles in einem Hash habe.
mfg pktm

http://www.intergastro-service.de (mein erstes CMS :) )

tomlong

2004-04-10 18:04

User since
2003-08-04
93 Artikel
BenutzerIn
[default_avatar]

[quote=format_c,10.04.2004, 13:48]Bei vielen Parametern ist das sicher praktisch schützt aber genauso wenig vor undefined Values.

Gruß Alex[/quote]
wieso? du kannst doch mit

if exists $params{irgendwas}

nachschaun ob der key vorhanden ist!?!?

Live long and prosper!
42;

Strat

2004-04-11 17:45

User since
2003-08-04
5246 Artikel
ModeratorIn

oder einfach eine eigene Subroutine mit defined-abfragen machen...

Code: (dl )

my $params = &CheckParams($cgi, a => 20, b => 40, c => 50);

sub CheckParams {
  my ($cgi, %standardParameters) = @_;

  my $params = $cgi->Vars();
  foreach (keys %standardParameters) {
    unless (defined $params->{$_}) {
      $params->{$_} = defined($standardParameters{$_}) ? $standardParameters{$_} : '';
    } # unless
  } # foreach
  return $params;
}

\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Crian

2004-04-13 14:00

User since
2003-08-04
5870 Artikel
ModeratorIn

Ins CGI-Forum schieb...

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