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

Strat

2005-05-23 19:35

User since
2003-08-04
5246 Artikel
ModeratorIn

so ganz werde ich aus deinem Problem nicht schlau...
wenn deine spalten id und servername usw. heissen, dann teste mal

Code: (dl )

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

# beim execute tritt haeufiger ein fehler auf als beim prepare, gerade mysql
# schickt die abfrage erst beim execute an den server
$sth->execute()
  or die "Fehler beim execute: ", $dbh->errstr();

while (my $ref = $sth->fetchrow_arrayref() ){
  print qq~<td style="text-align:center"><a href="#" class="...">$ref->[1]</a></td>~;
} # while
$sth->finish();

sonst verwende einfach die namen der spalten anstelle von *, weil du dich sonst auf die reihenfolge von * nicht 100% verlassen kannst.

Nebenbei: wenn du mit RaiseError => 1 arbeitest, kannst du dir die Fehlerabfrage auch sparen, weil das script bei einem fehler sowieso stirbt; ich verwende RaiseError nie, sondern kuemmere mich lieber selbst um die fehlerbehandlung, weil ein die oft zu grausam ist\n\n

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