[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:
(1108 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:
(1108 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:
(1108 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

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
05.02.2021 - 05.11.2021

Digicomp Academy AG, Limmatstrasse 50, 8005 Zürich
Freitag, 05. Feb. 2021, 13.00 Uhr - Freitag, 05. Nov. 2021, 17.00 Uhr

Lehrgang

Bilden Sie sich zum zertifizierten Publishing-Multimedia-Profi aus. Neben Fotografie und Video befassen Sie sich mit der Medienproduktion, digitalen Publikationen und dem Webdesign für Desktop- und mobile Endgeräte.

Preis: CHF 10'500.-
Dauer: 30 Tage (ca. 210 Lektionen) – Unterricht findet jeweils am Freitag von 13 - 19 Uhr und Samstag von 09 - 17 Uhr statt

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberatung AT digicomp DOT ch

digicomp.ch/d/9PM

Veranstaltungen
12.03.2021 - 16.07.2021

Digicomp Academy AG, Zürich oder virtuell
Freitag, 12. März 2021, 13.00 Uhr - Freitag, 16. Juli 2021, 17.00 Uhr

Lehrgang

Steigen Sie in die Welt des Publishings ein und erlangen Sie die Zertifizierung von publishingNETWORK. Lernen Sie in diesem Lehrgang Druckmedien professionell zu erarbeiten, druckfertige PDFs zu erstellen und CI/CD-Vorgaben umzusetzen.

Preis: CHF 6'300.-
Dauer: 18 Tage (ca. 126 Lektionen) – Unterricht findet jeweils am Freitag von 13 - 19 Uhr und Samstag von 09 - 17 Uhr statt.

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberatung AT digicomp DOT ch

digicomp.ch/d/9PBAS