Schrift
[thread]3443[/thread]

Problem mit Abfrage von Zeilen (Seite 2)



<< |< 1 2 3 >| >> 23 Einträge, 3 Seiten
Tom
 2004-04-26 19:39
#32052 #32052
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
@format_c

Danke werde es mal testen

@Dieter

Nein, die Daten müssen nicht unbedingt in der Datenbank stehen, habe das halt bei einem anderen Script so gesehen und mir gar keine Gedanken über eine Textdatei gemacht. Werde mir das aber mal überlegen.

Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
Tom
 2004-04-26 20:37
#32053 #32053
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
@format_c

Hat leider nicht funktioniert, die Variablen sind immer leer.

Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
format_c
 2004-04-26 23:24
#32054 #32054
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Oh sorry. Dummer Anfängerfehler von mir.
Bin aus dem lexikalischen geltungsbereicht rausgeflogen.
Hier jetzt getesteter Code:
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
format_c@elvis ~
$ mysql -Dtest -utestuser -ppassword
Welcome to the MySQL monitor. Commands end with; or \g.
Your MySQL connection id is 6 to server version: 3.23.49-max-nt

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql> select * from config;
+-------------+--------------+
| config_name | config_value |
+-------------+--------------+
| schlüssel1 | wert1 |
| schlüssel2 | wert2 |
| schlüssel3 | wert3 |
| schlüssel4 | wert4 |
+-------------+--------------+
4 rows in set (0.00 sec)

mysql> \q
Bye

format_c@elvis ~
$ perl
use strict;
use DBI;
use Data::Dumper;
my %config = ();
my $dbh = DBI->connect('DBI:mysql:database=test','testuser','password')
or die DBI::errstr();
my $sth = $dbh->prepare('SELECT * FROM config') or die $dbh->errstr();
$sth->execute() or die $dbh->errstr();
while (my ($key,$value) = $sth->fetchrow_array()) {
$config{$key} = $value;
}
print Dumper(\%config);
_ _ END _ _
$VAR1 = {
'schlüssel3' => 'wert3',
'schlüssel1' => 'wert1',
'schlüssel2' => 'wert2',
'schlüssel4' => 'wert4'
};

format_c@elvis ~
$
Tom
 2004-04-27 19:56
#32055 #32055
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
Danke hat auf Anhieb bei mir zwar nicht funktioniert, habe es hingebracht.

Code: (dl )
 $config{$key} = $value;


lieferte mir irgendwie nichts, die Variable müsste doch $configschlüssel1 lauten oder???

Habs dann in

Code: (dl )
 ${$key} = $value;


geändert und jetzt heißt die Variable $schlüssel1

Danke nochmal!!!

Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
format_c
 2004-04-27 21:08
#32056 #32056
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Also das bezieht sich jetzt nur auf mein Beispiel:
Code: (dl )
print $config{'schlüssel1'}; #wird wert1 ausgeben


Gruß Alex\n\n

<!--EDIT|format_c|1083086875-->
Dubu
 2004-04-28 12:58
#32057 #32057
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image
[quote=Tom,27.04.2004, 17:56]Danke hat auf Anhieb bei mir zwar nicht funktioniert, habe es hingebracht.

Code: (dl )
 $config{$key} = $value;


lieferte mir irgendwie nichts, die Variable müsste doch $configschlüssel1 lauten oder???
[/quote]
Die Variable heisst dann %config, der betreffende Wert wird mit $config{schlüssel1} angesprochen.
Ist doch schoen, so braucht man nur eine Variable. ;)

Quote
Habs dann in

Code: (dl )
 ${$key} = $value;


geändert und jetzt heißt die Variable $schlüssel1

Iiih, eine symbolische Referenz!

Das ist keine gute Idee, Begruendung findet sich im Wiki:Wissensbasis.VariablenAlsVariablennamen.
Tom
 2004-04-28 19:58
#32058 #32058
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
@format_c, @Dubu

Ich wußte nicht wie der Wert angesprochen wird, und habe deshalb rumprobiert, da ich jetzt aber eines besseren belehrt worden bin werde ich das wieder ändern. :)

Danke

Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
Crian
 2004-06-02 14:29
#32059 #32059
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
[quote=Tom,25.04.2004, 13:44]http://www.weber-computerhilfe.de/bilder/sonstige/...
[/quote]

Was ist das denn für ein schickes Programm, das Du da benutzt?\n\n

<!--EDIT|Crian|1086172171-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
Heromaster
 2004-06-02 15:57
#32060 #32060
User since
2003-08-05
220 Artikel
BenutzerIn
[default_avatar]
Sieht aus wie MySQL-Controlcenter. Das kannst Du bei mysql.de herunterladen.
Derjenige, der zwei Hasen jagt, lässt einen zurück und verliert den anderen.
Crian
 2004-06-02 20:21
#32061 #32061
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
danke, da werd ich nachher mal nachschauen =)
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
<< |< 1 2 3 >| >> 23 Einträge, 3 Seiten



View all threads created 2004-04-24 19:05.