tyler.durden
/
centreon-plugins
mirror of https://github.com/centreon/centreon-plugins.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psqlcmd.pm : added fetchall_hashref function

This commit is contained in:
David Sabatié 2015-03-20 18:15:25 +01:00
parent bfa2a408ce
commit 05e17afab1
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
database/postgres/psqlcmd.pm
View File

@ -259,6 +259,27 @@ sub fetchall_arrayref {
return $array_ref; return $array_ref;
} }
sub fetchall_hashref {
my ($self, %options) = @_;
my $array_ref = [];
my $array_result = undef;
if (!defined($self->{columns})) {
$self->{stdout} =~ s/^(.*?)\Q$self->{record_separator}\E//ms;
@{$self->{columns}} = split(/\Q$self->{field_separator}\E/, $1);
}
foreach (split /\Q$self->{record_separator}\E/, $self->{stdout}) {
$array_result = {};
my @values = split(/\Q$self->{field_separator}\E/, $_);
for (my $i = 0; $i < scalar(@values); $i++) {
my $value = $values[$i];
$array_result->{$self->{columns}[$i]} = $value;
}
push @$array_ref, $array_result;
}
return $array_ref;
}
sub fetchrow_array { sub fetchrow_array {
my ($self, %options) = @_; my ($self, %options) = @_;
my @array_result = (); my @array_result = ();