nicht angemeldet
erstmal vorneweg nehmen möchte ich, das ich ab ca. 15. 08. 2000
auf meiner eigenen Maschine hosten werde, was auch anderen zugute kommen soll, in dem Ihr die Möglichkeit habt, dort MySQL, PERL und PHP in einer Linux mit Apache - Umgebung nutzen könnt(et).
Wer Interesse hat, möchte sich melden - aber dran denken, das essen wird langsam warm - zu schnell kochen verdirbt den Geschmack,
ergo Eile mit Weile ;)=
--- snip
Nun zu meinem kleinen Problem:
unter PHP gibts die Möglichkeit/Funktion:
$anzahl = mysql_num_fields{'datenbank');
um die Anzahl, und mit
for( $i=0; $i < $anzahl; $++ ) {
echo mysql_num_fields{'datenbank',$i);
}
kann ich die entsprechenden Feldnamen ausgeben...
Frage: Wie komme ich in PERL gescheit an diese Feldnamen ran ?
---
Nach entsprechendem Connect, Prepare und Execute, kann ich in PERL
die Daten in einem HASH zurückkriegen.
While( $record_hash = $sth->fetchrow_hashref() ) {
my $ausgabe;
$ausgabe.= "\tID: ".$record_hash->{ID};
$ausgabe.= "\tName: ".$record_hash->{Name};
$ausgabe.= "\tKontinent: ".$record_hash->{Kontinent};
$ausgabe.= "\tLand: ".$record_hash->{Land};
$ausgabe.= "\tStadt: ".$record_hash->{Stadt};
}
das funktioniert auf diese Weise auch ganz gut, aber kann mir bitte jemand sagen wieso ich mit:
foreach $Feld (keys %record_hash) {
$ausgabe .= "Feldname: ".$Feld."\tInhalt: ".$record_hash{$Feld}."\n";
}
print $ausgabe;
}
innerhalb der while schleife keine Daten erhalte ?
auch mit print $record_hash{'Name'} kriege ich keinen Output ('Name' ist auch einer der Feldnamen) ?
Ich fänds nicht schlecht, mit der Routine nicht nur die Daten aus der Datenzeile zu erhalten, sondern auch "per keys %hash" zugriff auf den Feldnamen zu kriegen.
In diesem Zusammenhang liesse sich eine "generierende" Seite erzeugen, in der man eben nur die Feldnamen "tagged" (z.B. <!Name!> <!Nachname!> ) und mit s/<!$suchtag!>/$record_hash{$suchtag}/g; die entsprechenden Werte "sucht und ersetzt" ....