Opened by BumBum at 2009-02-13 10:10
User since
2009-02-13
9 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2009-02-13
9 Artikel
BenutzerIn
Guten Morgen Community,
ich habe da ein kleines Problem:
Ich habe eine Perl-Subroutine, in der ich auf eine DB zugreifen und mir Daten hole.
Dies funktioniert auch - nun möchte ich die Daten als Array aus der Subroutine an das Hauptprogramm übergeben.
Grund der Sache - ich arbeite mit SNMP:Multi hier werden die Daten für die HOSTS und VARS in Array gespeichert (sind hardcodiert) das habe (oder besser möchte ich ändern) das die Daten für HOSTS und VARS aus einer DB geholt werden.
So übergibt er mir nur die 1. Spalte als $_ an das Hauptprogramm.
Als Debugging Idee hatte ich noch folgendes ausprobiert:
So übergibt er mir die 1. und 2. Spalte als $_ an das Hauptprogramm.
Diesen Lösungsansatz habe ich zum Testen etwas aufgeblasen
Hier übergibt er mir dann aber nur noch die 1. , 2. und ein Teil der 3. Spalte als $_.
Nun meine Frage wie bekomme ich alle Spalten als Array aus der Subroutine raus.
Anmerkung die DB für die HOSTS und VARS hat jeweils nur eine Spalte.
Hier nun zum besseren Verständnis der komplette Code vielleicht kann er von anderen noch gebraucht werden
Gruß
BumBum
ich habe da ein kleines Problem:
Ich habe eine Perl-Subroutine, in der ich auf eine DB zugreifen und mir Daten hole.
Dies funktioniert auch - nun möchte ich die Daten als Array aus der Subroutine an das Hauptprogramm übergeben.
Grund der Sache - ich arbeite mit SNMP:Multi hier werden die Daten für die HOSTS und VARS in Array gespeichert (sind hardcodiert) das habe (oder besser möchte ich ändern) das die Daten für HOSTS und VARS aus einer DB geholt werden.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
sub db_connect_get_hosts {
my $dbh = DBI->connect("DBI:mysql:XXXXX")|| die "Database connection not made: $DBI::errstr";
print "DB connected nemo for Hostlist\n";;
my $sth1 = $dbh->prepare('SELECT * FROM `XXXXX`.`XXXXX`');
$sth1->execute();
@row = $sth1->fetchrow_array;
}So übergibt er mir nur die 1. Spalte als $_ an das Hauptprogramm.
Als Debugging Idee hatte ich noch folgendes ausprobiert:
Code: (dl
)
@row = $sth1->fetchrow_array, $sth1->fetchrow_array;
So übergibt er mir die 1. und 2. Spalte als $_ an das Hauptprogramm.
Diesen Lösungsansatz habe ich zum Testen etwas aufgeblasen
Code: (dl
)
@row = $sth1->fetchrow_array, $sth1->fetchrow_array, $sth1->fetchrow_array;
Hier übergibt er mir dann aber nur noch die 1. , 2. und ein Teil der 3. Spalte als $_.
Nun meine Frage wie bekomme ich alle Spalten als Array aus der Subroutine raus.
Anmerkung die DB für die HOSTS und VARS hat jeweils nur eine Spalte.
Hier nun zum besseren Verständnis der komplette Code vielleicht kann er von anderen noch gebraucht werden
Gruß
BumBum
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
#! /usr/bin/perl
###############################################################################
#
# PROGRAM NAME:
#
# DESCRIPTION:
#
# MODIFICATION HISTORY:
#
# DATE PROG.
# DD-MMM-YYYY INIT. SIR MODIFICATION DESCRIPTION
#------------------------------------------------------------------------------
#
#
###############################################################################
###############################################################################
#
# MODULE
#
###############################################################################
#use strict;
use Carp;
use SNMP::Multi;
use DBI;
my $sth1 = undef;
my @row = undef;
my $start_time = time();
###############################################################################
#
# SUB-ROUTINES
#
###############################################################################
# sub db_connect_get_hosts
###############################################################################
#Sub-Routine um auf die Datenbank zuzugreifen und eine Hostliste herauszu-
#holen um sie als ARRAY an die @hosts für den SNMP::Multi zu übergeben
#
#FUNKTIONIERT NOCH NICHT EINWANDFREI ES WIRD NUR DER LETZTE TEIL ÜBERGEBEN
#@hosts funktioniert aber
sub db_connect_get_hosts {
my $dbh = DBI->connect("DBI:mysql:nemo")|| die "Database connection not made: $DBI::errstr";
print "DB connected nemo for Hostlist\n";;
my $sth1 = $dbh->prepare('SELECT * FROM `nemo`.`hostlist`');
$sth1->execute();
@row = $sth1->fetchrow_array;
}
# sub snmp_multi
###############################################################################
sub snmp_multi {
my $comm = 'public';
my @hosts = &db_connect_get_hosts;
my @vars = &db_connect_get_parameter;
my $req = SNMP::Multi::VarReq->new (
nonrepeaters => 2,
maxrepetitions => 100,
hosts => [ @hosts ],
# vars => '@vars',
vars => [
['sysUpTime'],
['sysName'],
['ifDescr'],
['ifAdminStatus'],
['ifOperStatus'],
['1.3.6.1.4.1.9.2.1.3'], #hostName
['sysContact'],
['sysLocation'],
['1.3.6.1.4.1.9.9.13.1.2.1.7'], #ciscoEnvMonVoltageState
['1.3.6.1.4.1.9.9.13.1.3.1.6'], #ciscoEnvMonTemperatureState
['1.3.6.1.4.1.9.9.13.1.5.1.3'], #ciscoEnvMonSupplyState
['1.3.6.1.4.1.9.2.1.57'], #avgBusy1
['ifType'],
['ifInOctets'],
['ifOutOctets'],
['ifInErrors'],
], # Non-repeaters
) or croak "VarReq: $SNMP::Multi::VarReq::error\n";
my $sm = SNMP::Multi->new (
Method => 'bulkwalk',
Community => $comm,
Version => '2c',
Timeout => 5
) or croak "$SNMP::Multi::error\n";
$sm->request($req) or die $sm->error;
my $response = $sm->execute(15) or croak "$SNMP::Multi::error\n";
for my $host ($response->hosts()) {
for my $result ($host->results()) {
if ($result->error()) {
print "Error: ", $result->error(), "\n";
next;
}
for my $varlist ($result->varlists()) {
print "map { $_->fmt() } @$varlist";
}
######################## MAIN CODE BLOCK ####################
snmp_multi;
exit 0;