Opened by Gast at 2005-05-23 19:18
hallo,
ich habe folgendes problem.
in der Tabelle sind folgende Server eingetragen:
Par05.gda.pr.com
Par02.gda.pr.com
Par03.gda.pr.com
Par01.dmzgda.pr.com
In dem code frage ich diese Server aus der datenbank ab und möchte diese mit einem Text ausgeben.
Lider muss er wohl probleme mit den 'Punkten' in der Variable haben.
Alles was hinter der Variable an den String geschrieben wird, gibt er damm am Ende vor der Variable aus. Ich hatte sogar schon den Fall, das er alles davor überschrieben hat.
Zusätzlich überschreibt er immer wieder die Servervariable und zeigt diese nicht hintereinander an. Was man dann am ende sieht ist nur die letze Ausgabe mit dem letzten host in der Liste:
</a></center></td><td><center><a href="#" class="sapLnkSml">Par01.dmzgda.pr.com
Wenn ich jetzt anstatt dem Servername $ref->[1] die Server_Id ($ref->[0] == 1-4) Ausgebe, funktioniert es!
Weiß einer wie ich das beheben kann ?
Danke und Gruß jonas
ich habe folgendes problem.
in der Tabelle sind folgende Server eingetragen:
Par05.gda.pr.com
Par02.gda.pr.com
Par03.gda.pr.com
Par01.dmzgda.pr.com
In dem code frage ich diese Server aus der datenbank ab und möchte diese mit einem Text ausgeben.
Lider muss er wohl probleme mit den 'Punkten' in der Variable haben.
Alles was hinter der Variable an den String geschrieben wird, gibt er damm am Ende vor der Variable aus. Ich hatte sogar schon den Fall, das er alles davor überschrieben hat.
Zusätzlich überschreibt er immer wieder die Servervariable und zeigt diese nicht hintereinander an. Was man dann am ende sieht ist nur die letze Ausgabe mit dem letzten host in der Liste:
</a></center></td><td><center><a href="#" class="sapLnkSml">Par01.dmzgda.pr.com
Wenn ich jetzt anstatt dem Servername $ref->[1] die Server_Id ($ref->[0] == 1-4) Ausgebe, funktioniert es!
Weiß einer wie ich das beheben kann ?
Danke und Gruß jonas
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
36
37
38
use DBI;
my $hostname="";
my $database="";
my $user="";
my $password="";
my $dbh;
#-------------------------------------------------------------
db_connection();
Ausgabe();
#-------------------------------------------------------------
sub Ausgabe
{
my $sth = $dbh->prepare("SELECT * FROM SCN_Main_Server")or die "Fehler: ", $dbh->errstr();
$sth->execute();
while($ref = $sth->fetchrow_arrayref)
{
print "<td><center><a href=\"#\" class=\"sapLnkSml\">$ref->[1]</a></center></td>";
}
$sth->finish();
$dbh->disconnect();
}
sub db_connection
{
$dbh = DBI->connect("DBI:mysql:database=$database;host=$hostname",$user, $password, {RaiseError => 1});
}