Thread Datenbank->Array (14 answers)
Opened by hagmgoe at 2010-06-12 13:50

topeg
 2010-06-12 17:20
#138282 #138282
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
Wenn du den Code nicht verstehst, dann Frage nach es hilft nichts wenn du irgendwas machts!

ungetestet:
Code (perl): (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
#!/usr/bin/perl

# man braucht die Module nur einmal zu laden
use warnings;
use strict;
use DBI;
use Data::Dumper;

local $Data::Dumper::Useqq = 1;

my $USER = "xxx";
my $PASS = "";

my @dsn = ("DBI:mysql:database=vvvvvv;" .
           "host=localhost", $USER, $PASS);
           
           # Datenbank andocken
my $dbh = DBI->connect(@dsn,
    { PrintError => 0, AutoCommit => 1, }
    ) or die $DBI::errstr;


# Abfrage Präparieren
my $sth = $dbh->prepare("SELECT * FROM eib_tele where ID = '5'") or die $dbh->errstr();
# Abfrage ausführen
$sth->execute() or die $dbh->errstr;
# den fünften Eintrag der Ersten gelesenen Zeile holen
my $var = $sth->fetchrow_arrayref()->[4];
# Abfrage beenden
$sth->finish();

# Wert testweise Ausgeben
print Dumper($var);

# Wert Konvertieren
$var = unpack "H4", $var;
my $decimal = hex($var);

# Konvertierten Wert ausgeben
print "$var\n";

# Datanbankverbindung beenden
$dbh->disconnect();

View full thread Datenbank->Array