String lässt sich nicht ausgeben: Datenbankvariable in String - #55101 (Allgemeines zu Perl)

Strat

2005-05-23 20:21

User since
2003-08-04
5246 Artikel
ModeratorIn

das verstehe ich nicht; schreibe mal folgendes nach dem shebang:

Code: (dl )

1
2

use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

schreibe das sql-statement folgendermaszen:

Code: (dl )

1
2

my $sth = $dbh->prepare("SELECT Server_ID, Server_Hostname FROM SCN_Main_Server")
 or die "Fehler beim prepare: ", $dbh->errstr();

und schreibe die while-schleife folgendermaszen um:

Code: (dl )

print "----------------------\n";
while (my $row = $sth->fetchrow_hashref()) {
  print qq~<td style="text-align:center"><a href="\#">~;
  $row->{Server_Hostname} =~ s/\r//g; # CRs rauskicken
  print CGI::escapeHTML($row->{Server_Hostname}); # html-sonderzeichen escapen
  print qq~</a></td>\n";
} # while
print "------------------------\n";

was kommt nun als output?

fuehrst du das script in der shell oder ueber den webserver aus?

wenn es jetzt funktioniert hast, hast du es vermutlich in der shell ausgefuehrt, und hast am ende von Server_hostname ein CR drinnen\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/