[GastForen Archiv Perl und CGI Datenbankabfrage

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Archiv - Archivierte Foren
Themen
Beiträge
Moderatoren
Letzter Beitrag

Datenbankabfrage

Anonym
Beiträge gesamt: 22827

26. Jan 2005, 21:18
Beitrag # 1 von 3
Bewertung:
(1124 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
#!/usr/bin/perl -w
#
use CGI::Carp qw( fatalsToBrowser );
use strict;
use CGI;
use DBI;
my $eingabe;
my $schluessel;
my $wert;
my $paar;
my @paare;
my $cgi_obj = new CGI;
my $dbh = DBI->connect( 'dbi:mysql:...','root', '...') ||
die "Kann keine Verbindung zum MySQL-Server aufbauen: $DBI::errstr\n";
print $cgi_obj->header( -type=>'text/html',
-expires=>'+1h');
print $cgi_obj->start_html(-title=>'cds',
-author=>'Simon k',
-BGCOLOR=>'#FFFFFF',
-LINK=>'#0000AA',
-VLINK=>'#0000AA',
-ALINK=>'#CC0000',
-DTD=>'-//W3C//DTD HTML 3.2//EN'
);
print $cgi_obj->h1('CD Suche:');
print "<p></p>";
print $cgi_obj->h4('Suchbegriff:');
print $cgi_obj->start_form(-method=>'POST',
-action=>'cds1',
-enctype=>'application/x-www-form-urlencoded');
print $cgi_obj->textfield(-name=>'suche',
-default=>'',
-size=>30,
-maxlength=>30);
print "<p></p>";
print $cgi_obj->submit(-name=>'search',
-value=>'suchen');
print $cgi_obj->endform;
print $cgi_obj->end_html;
if($ENV{'REQUEST_METHOD'}eq'GET'){
$eingabe=$ENV{'QUERY_STRING'};
}else{
read(STDIN,$eingabe,$ENV{'CONTENT_LENGTH'});
}
@paare=split(/&/,$eingabe);
foreach $paar(@paare)
{
($schluessel,$wert)=split(/=/,$paar);
$wert=~tr/+/ /;
$wert=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
my $FORM{'$schluessel'}=$wert;
}
X

Datenbankabfrage

Anonym
Beiträge gesamt: 22827

26. Jan 2005, 21:20
Beitrag # 2 von 3
Beitrag ID: #139689
Bewertung:
(1124 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Ich bekomme diese Fehlermeldung
syntax error at C:/Programme/Apache Group/Apache2/htdocs/public_html/cgi-bin/cds1.pl line 51, near "$FORM{"

Ich weiß ich bin voll der noob
und das Script ist zusammengeflickt :-)


als Antwort auf: [#139688]

Datenbankabfrage

oesi50
  
Beiträge gesamt: 2315

26. Jan 2005, 21:44
Beitrag # 3 von 3
Beitrag ID: #139694
Bewertung:
(1124 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
hi anonym,

lass einfach ab Zeile 40 alles weg. die übergebenen Werte befinden sich

doch schon in $cgi_obj->param('...')


Grüße Oesi
Ich weiß, dass ich nichts weiß... (Sokrates)


als Antwort auf: [#139688]

Aktuell

InDesign / Illustrator
ScreenShot 274 Warum Templates in InDesign benutzen_ - Satzkiste in Stuttgart - Satz und technische Umsetzung - Google Chrome (300x300 HilfDirSelbst)

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
02.02.2023

Prozesse optimieren und effizient gestalten

Zürich
Donnerstag, 02. Feb. 2023, 08.00 - 10.00 Uhr

Digitalisierung, Webauftritt

Digitalisierung mitgestalten - Worauf kommt es an? Wie wichtig ist die Webseite? Webseite mit Word Press? Interne Prozesse optimieren

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: Birol Isik, E-Mailinfo AT bkcc DOT ch

https://digitalisierung-heute.ch/digitalisierung-informationstag-schweiz/

Veranstaltungen
01.03.2023 - 09.03.2023

Online
Mittwoch, 01. März 2023, 00.00 Uhr - Donnerstag, 09. März 2023, 00.00 Uhr

Online Webinar

Wie gehen wir mit diesen Veränderungen um? Was ist notwendig, damit wir die Digitalisierung im Unternehmen klappt? Veränderungsprozesse verstehen und entsprechend handeln Mitarbeiter als Botschafter Webseite mit WordPress erstellen SEA /SEO (Ads aufschalten)

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: B. Isik, E-Mailinfo AT snfa DOT ch

https://www.fernstudiumfitness.ch/digitalisierung-schweiz/