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.
leider muss er wohl probleme mit den 'Punkten' in der Variable haben.
Den die Ausgabe sieht wie folgt aus:
</a></center></td><td><center><a href="#" class="sapLnkSml">Par01.dmzgda.pr.com
man sieht das er immer wieder die einzelnen Servernamen überschreibt und er dann als Ausgabe nur den letzten Server stehen lässt.
Weiß einer wie ich das beheben kann ?
Danke und Gruß jonas
#!c:\\Perl\\bin\\perl.exe -wuse DBI;
my $hostname="localhost";
my $database="bssfile3";
my $user="navadm";
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});
}
Datum: 23.05.2005-13:41
Punkteproblem in der Variable
