Opened by Gast at 2009-01-14 01:45
User since
2009-01-14
23 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2009-01-14
23 Artikel
BenutzerIn
Hallo pktm,
also dein script funktioniert!
Allerdings ist die Ausgabe per dumper etwas kryptisch
aber ich werde versuchen den code soweit zu modifizieren, daß eine "übersichtliche Ausgabe" erscheint.
PS: Im Shebang soll der Interpreter angegeben werden, der das script ausführt (#!C:\Perl\bin\perl.exe -w) wobei ich nicht genau weiß wieso -w
Die scripte funtionieren jedoch auch mit (#!/usr/bin/perl -w)
Danke
Habe den Code jetzt ein wenig modifiziert:
Anhand dieses Beispiels kann ich bei ähnlichen Problemen nun hier nachsehen.
Nochmal Danke
also dein script funktioniert!
Allerdings ist die Ausgabe per dumper etwas kryptisch
aber ich werde versuchen den code soweit zu modifizieren, daß eine "übersichtliche Ausgabe" erscheint.
PS: Im Shebang soll der Interpreter angegeben werden, der das script ausführt (#!C:\Perl\bin\perl.exe -w) wobei ich nicht genau weiß wieso -w
Die scripte funtionieren jedoch auch mit (#!/usr/bin/perl -w)
Danke
Habe den Code jetzt ein wenig modifiziert:
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
#!C:\Perl\bin\perl.exe -w
# dbi3.pl vorhandene Datenquellen
use strict;
use warnings;
use DBI;
use CGI;
print "Content-type: text/html\n\n";
my $host = '127.0.0.1';
my $port = '3306';
my $user = 'root';
my $pass = '';
my @databases = DBI->data_sources("mysql",
{"host" => $host, "port" => $port, "user" => $user, password => $pass});
print "<b>vorhandene Datenquellen:</b>
<br>
<br>";
foreach (@databases){
print "$_<br>";
}
Anhand dieses Beispiels kann ich bei ähnlichen Problemen nun hier nachsehen.
Nochmal Danke