[GastForen Archiv Perl und CGI Syntax error

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

Syntax error

frank_d
Beiträge gesamt: 1

24. Aug 2004, 21:02
Beitrag # 1 von 3
Bewertung:
(1454 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Halihalo,
ich wollte ein Skript schreiben, womit ich eine Datenbank erstellen und mit einer Suchfunktion in dieser nach Namen suchen kann,dabei bekam ich immer erst die Fehlermeldung
Global symbol requires explicit package name, diese konnte ich "weggooglen",dafür habe ich jetzt einen Syntaxerror in Zeile 65, die quasi "my @data" heißt.
Kann mir vielleicht jemand weiterhelfen?
Hier das Skript:

#!c:/Perl/bin/perl
use strict;
my @data;

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use CGI;
my $cgi = CGI->new;
print $cgi->header();


my $DBH;
my $STH;
my $CGI;
my $antwort;

$CGI = new CGI();

##Suche oder Eintrag##

if ($CGI->param("suchanfrage")){
suche($CGI,$DBH,$STH);
}

#Start Subroutine Suche

sub suche {
my $nachname = param("nachname");
my $abteilung = param("abt");

$DBH = DBI->connect("DBI:CSV:db_mitarbeiter=c:/apachefriends/xampp/htdocs/cgi-bin")
or die "Konnte keine Verbindung zur Datenbank herstellen:$!";

$STH = $DBH->prepare("SELECT * FROM db_mitarbeiter
WHERE Nachname = '$nachname' AND Abteilung = '$abteilung'")
or die "Konnte SQL-Statement nicht bereitstellen:$!";

$STH->execute()
or die "Ausfuehren nicht moeglich:$DBI::errstr";

#Treffer

if ($STH->rows != 0){
print "Content-type: text/html\n\n";
print qq~;

<html>
<head>
<title>Antwort</title>
</head>
<body>
<center>
<h1>Suchergebnis</h1>
<hr>
<table border>
<tr>
<td width="200"><b>Familienname:</b></td>
<td width="100"><b>Vorname:</b></td>
<td width="200"><b>Abteilung:</b></td>
<td width="100"><b>Telefon:</b></td>
</tr>
~

my @data;

while (@data = $STH->fetchrow_array()) {
my $familienname = $data[0];
my $vorname = $data[1];
my $abt = $data[2];
my $telefon = $data[3];

print qq§<tr>\n<td><b>$familienname</b></td>\n<td>$vorname</td>
\n<td>$abt</td>\n<td>$telefon</td>\n</tr>\n§;

}

print qq§</table>\n<p><a href="formular1.html">Neue Suche</a></p>
\n<hr>\n</center>\n</body>\n</html>§;

}

##Keine Treffer

else {
print qq~
print "Content-type:text/html\n\n";

<html>
<head>
<title>Antwort</title></head>
<body>
<p>Leider brachte die Suche keine Ergebnisse!</p>
<hr>
<p><a href="http://localhost/formular1.html">Neue Suche!</a></p></body></html>
~
}

$STH->finish();
$DBH->disconnect;}
##Ende Subroutine Suche

#Start Subroutine Eintragen

sub eintragen{

my ($nachname, $vorname, $abt, $telefon)=(param('nachname',
param('vorname', param('abt',param('telefon');

$DBH = DBI->connect("DBI:CSV:db_mitarbeiter=c:/apachefriends/xampp/cgi-bin")
or die "Konnte keine Verbindung zur Datenbank herstellen:$!";

$STH = $DBH->do("INSERT INTO db_mitarbeiter
VALUES ('$nachname','$vorname','$abt','$telefon'")
or die "Konnte SQL-Staement nicht bereitstellen:$!";

#Antwortseite

print qq~
print "Content-type:text/html\n\n";

print '<html>';
print '<head>';
print '<title>Antwort</title>';
print '</head>';
print '<body>';
print "<h4>Datenbankeintrag:</h4>";
print "<hr>";
print "<p><b>$nachname</b>,$vorname, $abt, $telefon</p>";
print "<hr>";
print "<p><a href="formular2.html">Neuer Eintrag!</a></p>";
print "<hr>";
print "</body>";
print "</html>";

Vielen dank schonmal in vorraus!!

Gruß
X

Syntax error

Ollli
Beiträge gesamt: 458

24. Aug 2004, 21:19
Beitrag # 2 von 3
Beitrag ID: #104918
Bewertung:
(1454 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi,

vielleicht fehlt hinter dem ~ ein ;
sprich in Zeile 63?

Ollli
-----------
ja, es stimmt - es sind wirklich 3 "l" im Namen und ich bestehe auf jedes einzelne ;-)


als Antwort auf: [#104914]
(Dieser Beitrag wurde von Ollli am 24. Aug 2004, 21:19 geändert)

Syntax error

oesi50
  
Beiträge gesamt: 2315

24. Aug 2004, 21:25
Beitrag # 3 von 3
Beitrag ID: #104920
Bewertung:
(1454 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Da fehlt noch mehr

1 }
einige \ <- ich glaube das Forum filtert auch einiges raus.
einige )

und dann sind einige Print an der falschen Stelle.

ich habe leider nicht die Zeit und Möglichkeit alles genau zu checken.

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

PS:

@miro

ich will jetzt
Code
 

haben!


als Antwort auf: [#104914]
(Dieser Beitrag wurde von oesi50 am 24. Aug 2004, 21:26 geändert)

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
04.09.2020 - 05.03.2021

Digicomp Academy AG, Limmatstrasse 50, 8005 Zürich
Freitag, 04. Sept. 2020, 13.00 Uhr - Freitag, 05. März 2021, 12.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. Mit dem Abschluss «Publisher Professional – Profil «Multimedia» verliehen durch die Digicomp Academy AG, bestätigen Sie Ihre Praxiserfahrungen und Qualifizierung in den genannten Themengebieten gegenüber Ihrem Arbeitgeber sowie Ihren Kunden.

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

Nein

Organisator: Digicomp Academy AG

Kontaktinformation: Isil Günalp, E-Mailisil.guenalp AT digicomp DOT ch

https://www.digicomp.ch/weiterbildung/software-anwendungs-trainings/adobe-trainings/publishing-lehrgaenge/lehrgang-publisher-professional-profil-multimedia

Veranstaltungen
22.09.2020 - 23.09.2020

Digicomp Academy AG, Basel, Bern oder virtuell
Dienstag, 22. Sept. 2020, 08.30 Uhr - Mittwoch, 23. Sept. 2020, 17.00 Uhr

Kurs

In diesem Basic-Kurs lernen Sie das Wichtigste über den Aufbau und die Funktionsweise von Photoshop. Zusammen mit den notwendigen Grundlagen von Farbenlehre bis Bildauflösung lernen Sie zudem die kreativen Möglichkeiten von Photoshop kennen.

Preis: CHF 1'400.-
Dauer: 2 Tage

Nein

Organisator: Digicomp Academy AG

Kontaktinformation: Isil Günalp, E-Mailisil.guenalp AT digicomp DOT ch

https://www.digicomp.ch/weiterbildung/software-anwendungs-trainings/adobe-trainings/desktop-publishing/adobe-photoshop-cc/kurs-adobe-photoshop-cc-basic

Neuste Foreneinträge


Lüftergeräusch nach Installation von Catalina update 10.15.6

Tastatur-Kürzel in Dialogen tun nicht mehr

safaribookmarkssyncagent wurde unerwartet beendet Fehlermeldung geht nicht mehr weg

wie langen Text auf viele Seiten einfügen - erledigt

wie langen Text auf viele Seiten einfügen

Formularfelder mit Mediävalziffern

Automatische Farbmengenberechnung

Wörter mit Bindestrichen werden nicht automatisch getrennt. Alternative?

Pfeil zurück geht nur im eingeloggten Zustand

Zeichen nach Absatzformat
medienjobs