Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Datenbanken und Verzeichnisdienste
[thread]13131[/thread]

DB in einer Subroutine auslesen ein Array erstellen und an das Hauptprogramm übergeben.



<< >> 9 Einträge, 1 Seite
BumBum
 2009-02-13 10:10
#118825 #118825
User since
2009-02-13
9 Artikel
BenutzerIn
[default_avatar]
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.

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;
Struppi
 2009-02-13 10:39
#118826 #118826
User since
2006-02-17
628 Artikel
BenutzerIn
[Homepage]
user image
An welcher Stelle übergibst du @row an das Hauptprogramm?
BumBum
 2009-02-13 11:15
#118829 #118829
User since
2009-02-13
9 Artikel
BenutzerIn
[default_avatar]
Hallo Struppi

ich habe es mit dem letzen Speicher => $_ gemacht.

da er bei
Code: (dl )
1
2
3
4
5
6
7
8
9
10
while (@row = $sth1->fetchrow_array ())

    {

    my @row1 = @row;

    }


return @row1;


das gleiche Phänomen hatte.

gruß

BumBum
pq
 2009-02-13 11:26
#118831 #118831
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
BumBum+2009-02-13 09:10:56--
Code: (dl )
#use strict;

ich sehe das häufiger, dass da ein auskommentiertes strict im code rumliegt.
auskommentiert tut es aber nichts ausser das programm eine zeile länger zu machen.
je früher man es wirklich benutzt, desto eher wird man auch fehler von vorneherein vermeiden
konnen und erst gar nicht im forum fragen müssen.
unbedingt lesen: Wiki:UseStrict
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
Struppi
 2009-02-13 11:40
#118833 #118833
User since
2006-02-17
628 Artikel
BenutzerIn
[Homepage]
user image
BumBum+2009-02-13 10:15:29--
Hallo Struppi

ich habe es mit dem letzen Speicher => $_ gemacht.

da er bei
Code: (dl )
1
2
3
4
5
6
7
8
9
10
while (@row = $sth1->fetchrow_array ())

    {

    my @row1 = @row;

    }


return @row1;
Das dürfte nicht gehen, da @row1 nur im inneren Block bekannt ist. aber selbst wenn es gehen würde, warum holst du alle Zeilen um dann nur die letzte zu benutzen?
BumBum
 2009-02-13 11:48
#118834 #118834
User since
2009-02-13
9 Artikel
BenutzerIn
[default_avatar]
Hallo pq,

vielen Dank für den Hinweis

das use strict ist nicht auskommentiert das stand nur ein größer erklärungstext den ich nicht mit veröffentlichen wollte und deshalb gelöscht habe.

Leider ist das auch nicht die Lösung meines Problems.

Gruß Gunnar
pq
 2009-02-13 12:09
#118836 #118836
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
BumBum+2009-02-13 10:48:17--
das use strict ist nicht auskommentiert das stand nur ein größer erklärungstext den ich nicht mit veröffentlichen wollte und deshalb gelöscht habe.

Leider ist das auch nicht die Lösung meines Problems.

naja, in dem artikel steht z.b. auch, dass man variablen erst da deklarieren sollte, wo man sie braucht.
dass du ganz oben im skript my @row definierst (und dann auch noch mit einem einzigen element,
nämlich undef), ist merkwürdig, du brauchst die variable doch nur in der sub.
also, lies den artikel ruhig noch einmal =)
da steht ausserdem drin, dass du warnings benutzen solltest.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
BumBum
 2009-02-13 16:49
#118850 #118850
User since
2009-02-13
9 Artikel
BenutzerIn
[default_avatar]
Hallo Struppi

wenn ich @row1 mir ausserhalb der Subroutine anschaue steht leider auch nur der letzte wert drin.

Gruß Gunnar

Struppi+2009-02-13 10:40:20--
BumBum+2009-02-13 10:15:29--
Hallo Struppi

ich habe es mit dem letzen Speicher => $_ gemacht.

da er bei
Code: (dl )
1
2
3
4
5
6
7
8
9
10
while (@row = $sth1->fetchrow_array ())

    {

    my @row1 = @row;

    }


return @row1;
Das dürfte nicht gehen, da @row1 nur im inneren Block bekannt ist. aber selbst wenn es gehen würde, warum holst du alle Zeilen um dann nur die letzte zu benutzen?
Struppi
 2009-02-13 16:52
#118851 #118851
User since
2006-02-17
628 Artikel
BenutzerIn
[Homepage]
user image
Woher weißt du das?
<< >> 9 Einträge, 1 Seite



View all threads created 2009-02-13 10:10.