Datenbankabfragen mittels untenstehender Sub-Routine funktionieren tadellos. Eines der Ergebnisfelder heißt "Email". Bei einer Abfrage soll der Inhalt dieses Feldes nun einen mailto-hyperlink enthalten.
# tabellarische Ausgabe der Ergebnismenge
sub tab_out {
use strict;
my $sth = $_[0];
my $align="left";
my (%hash, @keys, $key, $value);
print "<table width=96% border=0 cellpadding='2' cellspacing='2'>";
print "<tr bgcolor=#D0D0D0>";
my $href = $sth->fetchrow_hashref;
%hash = %$href;
# Tabellenkopf
@keys =sort (keys %hash); # Schlüssel sortieren
foreach $key (@keys) {
#Regex entfernt 1: 2: 3: aus $key
$key=~ tr/0-9://d;
print "<th bgcolor='#C0C0C0'><font size='3'><div align='center'>$key</font></div></th>";
}
print "</tr>";
# erste Tabellenzeile
print "<tr>";
@keys =sort (keys %hash); # Schlüssel sortieren
foreach $key (@keys) {
$value = $hash{$key};
print "<td bgcolor='#E8E8E8'><font size='-1'><div align='$align'>$value</font></div></td>";
}
print "</tr>";
# Tabellenbody Rest
print "<tr>";
while (my $href = $sth->fetchrow_hashref) {
%hash = %$href; # Schlüssel sortieren
@keys =sort (keys %hash);
foreach $key (@keys) {
$value = $hash{$key};
print "<td bgcolor='#E8E8E8'><font size='-1'><div align='$align'>$value</font></div></td>";
}
print "</tr>";
}
print "</table>";
return 1;
}
Wer kann mir hier weiterhelfen ?
# tabellarische Ausgabe der Ergebnismenge
sub tab_out {
use strict;
my $sth = $_[0];
my $align="left";
my (%hash, @keys, $key, $value);
print "<table width=96% border=0 cellpadding='2' cellspacing='2'>";
print "<tr bgcolor=#D0D0D0>";
my $href = $sth->fetchrow_hashref;
%hash = %$href;
# Tabellenkopf
@keys =sort (keys %hash); # Schlüssel sortieren
foreach $key (@keys) {
#Regex entfernt 1: 2: 3: aus $key
$key=~ tr/0-9://d;
print "<th bgcolor='#C0C0C0'><font size='3'><div align='center'>$key</font></div></th>";
}
print "</tr>";
# erste Tabellenzeile
print "<tr>";
@keys =sort (keys %hash); # Schlüssel sortieren
foreach $key (@keys) {
$value = $hash{$key};
print "<td bgcolor='#E8E8E8'><font size='-1'><div align='$align'>$value</font></div></td>";
}
print "</tr>";
# Tabellenbody Rest
print "<tr>";
while (my $href = $sth->fetchrow_hashref) {
%hash = %$href; # Schlüssel sortieren
@keys =sort (keys %hash);
foreach $key (@keys) {
$value = $hash{$key};
print "<td bgcolor='#E8E8E8'><font size='-1'><div align='$align'>$value</font></div></td>";
}
print "</tr>";
}
print "</table>";
return 1;
}
Wer kann mir hier weiterhelfen ?