Thread Can't locate bugs.pm?: Gesuchtes Modul ist Datenbank! (6 answers)
Opened by nikster at 2005-04-17 03:28

nikster
 2005-04-17 03:28
#33159 #33159
User since
2004-05-19
12 Artikel
BenutzerIn
[default_avatar]
Hallo Forum.
Ich habe folgendes Problem:
Ich benutze ein Skript (O'Reilly Mysql Kochbuch) um mir alle Tabellen in einer Datenbank anzeigen und als HTML-Seite ausgeben zu lassen. Brauche (spaeter mal) eine zusaetzliche Sicht auf meinen Bugzilla hab aber nicht so die Ahnung von Datenbanken (kommt hoffentlich noch...)...

Das Skript sieht so aus:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#! /usr/bin/perl -w
#show_tables.pl - SHOW TABLES Abfrage ausfuehren und Ergebnisse liefern indem HTML generiert wird.
#
use strict;
use lib qw(/usr/lib/perl5/5.8.5);
use bugs;
#
#Header, Leerzeile und Anfang der Seite ausgeben.
#
print <<EOF;
Content-Type: text/html

<html>
<head>
<title>Tables in bugs Database</title>
</head>
<body bgcolor="white">

<p>Tables in bugs Database</p>
EOF

#Datenbankverbindung herstellen, Tabellenliste ausgeben, Datenbankverbindung abbauen
my $dbh = bugs::connect ();
my $sth = $dbh->prepare ("SHOW TABLES");
$sth->execute ();
while (my @row = $sth->fetchrow_array ())
{
    print "$row[0]<br />\n";
}
$dbh->disconnect ();

print <<EOF;
</body>
</html>
EOF


Im Mysql steht statt use bugs; halt use Cookbook; die Datenbank die der Author benutzt. Bei mir heisst sie bugs.?!
Muss man das ueberhaupt unter use angeben?
Wie dem auch sei... das Skript liegt unter /cgi-bin (Linux) und wenn ich ein Hallo Welt Skript reinlege funktioniert es auch.
Also liegt es wahrscheinlich nicht an der Apache Konfiguration.
Ich bekomme folgende Fehlermeldung:

[Sun Apr 17 00:28:17 2005] [error] [client 192.168.1.1] Can't locate bugs.pm in @INC (@INC contains: /usr/lib/perl5/5.8.5/i686-linux /usr/lib/perl5/5.8.5 /etc/perl /usr/lib/perl5/site_perl/5.8.5/i686-linux /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i686-linux /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl /usr/local/lib/site_perl .) at /var/www/localhost/cgi-bin/show_tables_oo.pl line 9.
[Sun Apr 17 00:28:17 2005] [error] [client 192.168.1.1] BEGIN failed--compilation aborted at /var/www/localhost/cgi-bin/show_tables_oo.pl line 9.
[Sun Apr 17 00:28:17 2005] [error] [client 192.168.1.1] Premature end of script headers: show_tables_oo.pl
[Sun Apr 17 00:28:22 2005] [error] [client 192.168.1.1] Undefined subroutine &bugs::connect called at /var/www/localhost/cgi-bin/show_tables.pl line 23.

Aufgefallen ist mir vor allem, das er nach bugs.pm sucht...
obwohl ich in perl nicht so beschlagen bin nehme ich an, das sich das auf das use bugs; bezieht...
Was kann ich da machen?

Ich bin fuer jede Hilfe dankbar.

Gruss

Niels

edit pq: code-tags hinzugefügt\n\n

<!--EDIT|pq|1113724051-->

View full thread Can't locate bugs.pm?: Gesuchtes Modul ist Datenbank!