Perl - Scripte und 1&1: Perl-Anfänger braucht Hilfe (Seite 6) (Perl/CGI)

[thread]904[/thread]

Perl - Scripte und 1&1: Perl-Anfänger braucht Hilfe (Seite 6)

Leser: 1

bloonix

2007-03-17 18:20

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=Cherim,17.03.2007, 16:17]if (!open (DB, $szDbPath)) {
print ("<H1><FONT COLOR=\"red\">Cannot open database \"$szDbPath\" for reading.</FONT></H1><BR>");
print ("</BODY></HTML>\n");
exit (0);
}[/quote]
das ist natürlich absolut schlecht! da wird zwar ein

"Cannot open database ..."

ausgegeben, aber leider nicht, warum!

wenn du eine Zeile darüber

open (DB, $szDbPath) or die "'$szDbPath' $!;

eingibst, sieht man, was in der Variable steht und warum das File
nicht geöffnet werden kann.

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

bloonix

2007-03-17 18:26

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=Cherim,17.03.2007, 16:17]Ich denke hier stoße ich nun an das problem, das ich keine eigenen CGI auf meinen Server laden kann. Oder ?[/quote]
Um diese Frage ein für alle Mal zu beantworten... lad doch mal folgenden
Code hoch und führe ihn aus:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);

print "Content-Type: text/html\n\n";
print "<html><body><h1>TEST</h1></body></html>\n";

gib dem Skript einen Namen, meinetwegen test.cgi, chmode es nach
755 und rufe dann das Skript im Browser auf... /cgi-bin/test.cgi\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

jan

2007-03-17 21:52

User since
2003-08-04
2536 Artikel
ModeratorIn

[quote=opi,17.03.2007, 17:26][quote=Cherim,17.03.2007, 16:17]Ich denke hier stoße ich nun an das problem, das ich keine eigenen CGI auf meinen Server laden kann. Oder ?[/quote]
Um diese Frage ein für alle Mal zu beantworten... lad doch mal folgenden
Code hoch und führe ihn aus:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);

print "Content-Type: text/html\n\n";
print "<html><body><h1>TEST</h1></body></html>\n";

gib dem Skript einen Namen, meinetwegen test.cgi, chmode es nach
755 und rufe dann das Skript im Browser auf... /cgi-bin/test.cgi[/quote]
diese frage ist schon lange EIN FÜR ALLE MAL beantwortet. we should move on ...

cherim, such bitte im code noch mal nach

Quote
Cannot open database index

. dann findest du die zeile, in der er versucht, die datenbank zu öffnen. da steht dann auch irgendwas wie

Code: (dl )

print ("<H1><FONT COLOR=\"red\">Cannot open database \"$szDbPath\" for reading.</FONT></H1><BR>");

da knallst du einfach $! mit rein, also quasi

Code: (dl )

print ("<H1><FONT COLOR=\"red\">Cannot open database \"$szDbPath\" for reading.</FONT></H1><BR>reason: " . $!);

wenn du das hast, dann sollte da mehr zur fehlermeldung stehen. das zeig uns dann.

Cherim

2007-03-18 20:32

User since
2007-03-15
21 Artikel
BenutzerIn

Hi Jan,

ich habe das mit dem "$" mal ergänzt. Die Fehlermeldung bleibt leider:

***
Cannot open database index "saluki.ixw" for reading.
****

Also keine weiteren Informationen dazu :-(.

VG CHerim

jan

2007-03-18 23:12

User since
2003-08-04
2536 Artikel
ModeratorIn

wichtig ist dabei nicht nur das $, sondern auch das !. $!.

Cherim

2007-03-19 08:38

User since
2007-03-15
21 Artikel
BenutzerIn

Hi,

das dachte ich mir bereits, deshalb hatte ich ja die ganze Zeile von Dir übernommen. Hat aber nüscht geändert.

VG Cherim

renee

2007-03-19 10:16

User since
2003-08-04
14371 Artikel
ModeratorIn

Zeig mal wie der Code jetzt aussieht...

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/

Cherim

2007-03-19 11:27

User since
2007-03-15
21 Artikel
BenutzerIn

Code: (dl )

if (!open (DB, $szDbPath)) {
        print ("<H1><FONT COLOR=\"red\">Cannot open database \"$szDbPath\" for reading.</FONT></H1><BR>reason: " . $!);
        print ("</BODY></HTML>\n");
        exit (0);
    }

VG Cherim\n\n

View all threads created 2007-03-15 19:25.