Revision 8f3e8a02
Von Moritz Bunkus vor etwa 9 Jahren hinzugefügt
| SL/DBUtils.pm | ||
|---|---|---|
| 222 | 222 |
my %hash; |
| 223 | 223 |
if ('' eq ref $value_col) {
|
| 224 | 224 |
while (my $ref = $sth->fetchrow_hashref()) {
|
| 225 |
$hash{$ref->{$key_col}} = $ref->{$value_col};
|
|
| 225 |
$hash{$ref->{$key_col} // ''} = $ref->{$value_col};
|
|
| 226 | 226 |
} |
| 227 | 227 |
} else {
|
| 228 | 228 |
while (my $ref = $sth->fetchrow_hashref()) {
|
| 229 |
$hash{$ref->{$key_col}} = { map { $_ => $ref->{$_} } @{ $value_col } };
|
|
| 229 |
$hash{$ref->{$key_col} // ''} = { map { $_ => $ref->{$_} } @{ $value_col } };
|
|
| 230 | 230 |
} |
| 231 | 231 |
} |
| 232 | 232 |
|
Auch abrufbar als: Unified diff
Benutzung undefinierter Werte vermeiden