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

Class::DBI (Probleme)

Leser: 1


<< >> 3 Einträge, 1 Seite
redpantyhose
 2008-09-01 14:00
#114190 #114190
User since
2005-12-08
12 Artikel
BenutzerIn
[default_avatar]
Hallo zusammen !

Ich habe folgendes Problem mit Class::DBI:

Datenbank: PostgreSQL

Wenn ich folgendes versuche:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10

# t_domains inventory
my @domains = cast2db::Class_t_domains->inventory('10.10.1.50');

my $obj;
foreach (@domains) {

        $obj = cast2db::Class_t_domains->retrieve($_);
        print $obj->domain;

}


Erhalte ich immer folgende Fehlermeldung:

"Can't retrieve a reference at ./cast2.pl line 32"

Ich weiss nicht mehr weiter ;.(

Wenn ich $_ durch eine Zahl ersetze die dem id-Wert in der DB entspricht :

Code (perl): (dl )
1
2

        $obj = cast2db::Class_t_domains->retrieve(4);
        print $obj->domain;


'4' ist der id der domain "wgbs.ch" in der Postgres Datenbank.

Erhalte ich folgendes:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
DBD::Pg::st execute failed: ERROR:  syntax error at or near "primary" at character 27
 [for Statement "SELECT essential, domain, primary
FROM   t_domains
WHERE  id_t_domains=?
" with ParamValues: 1='4'] at /usr/lib/perl5/vendor_perl/5.8.8/DBIx/ContextualFetch.pm line 52.
DBD::Pg::st execute failed: ERROR:  syntax error at or near "primary" at character 27
 [for Statement "SELECT essential, domain, primary
FROM   t_domains
WHERE  id_t_domains=?
" with ParamValues: 1='4'] at /usr/lib/perl5/vendor_perl/5.8.8/DBIx/ContextualFetch.pm line 52.


Vielen Dank für Tipps ...


#########################################

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
44
45
46
47
48
49

package cast2db::Class_t_domains;

use strict;

# Class::DBI
use base qw(cast2db::Class_db_configure);

# table
cast2db::Class_t_domains->table('t_domains');

# tuples
cast2db::Class_t_domains->columns(
                All => qw/id_t_domains domain/,
                Primary => qw/id_t_domains/,
                Essential => qw/domain/,
                #Others => qw//,
);

sub inventory {
        my $self = shift;
        my $inet_addr = shift || $self;
        my $domain;
        my @domains;
        my $id_t_domains;
        my @id_t_domains;

        open (NSLOOKUP, "-|", "nslookup $inet_addr") or die;
        while(<NSLOOKUP>){
                if (/^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\.in-addr\.arpa\sname\s=\s\w+\.(.*)\.$/) {
                        push (@domains,$1);
                }
        }
        close(NSLOOKUP);

        # uniq
        @domains = keys %{{ map { $_ => 1 } @domains }};

        # ;.) Hardcore Perl
        @domains || push(@domains, 'unknown');

        # get @id_t_domains
        foreach $domain (@domains) {
                $id_t_domains = cast2db::Class_t_domains->find_or_create( domain => $domain );
                push(@id_t_domains,$id_t_domains);
        }

        # return id's
        return @id_t_domains;
}


# Data::Dumper Output

Code: (dl )
1
2
3
4
5
6
$VAR1 = bless( {
                 '__triggers' => {},
                 '_class_trigger_results' => [],
                 'id_t_domains' => '4'
               }, 'cast2db::Class_t_domains' );
Can't retrieve a reference at ./cast2.pl line 34
RalphFFM
 2008-09-01 23:52
#114197 #114197
User since
2006-11-16
258 Artikel
BenutzerIn
[Homepage] [default_avatar]
Wie sieht die Methode retrieve aus? (Wenn die Methode in cast2db::Class_t_domains offenbar nicht ist, dann vielleicht vererbt von cast2db::Class_db_configure, oder von "noch weiter oben".)

Ansonsten ist der Code momentan noch etwas zu arg Hardcore für mich. Z.B. sowas Herausforderndes wie
44: push(@id_t_domains,$id_t_domains);
habe ich bisher immer intuitiv versucht zu vermeiden, d.h. ein Array und ein Skalar gleich zu benennen. Musich mal testen..
murphy
 2008-09-02 18:08
#114212 #114212
User since
2004-07-19
1776 Artikel
HausmeisterIn
[Homepage]
user image
redpantyhose+2008-09-01 12:00:41--
[...]
Erhalte ich folgendes:

Code: (dl )
1
2
3
4
5
6
DBD::Pg::st execute failed: ERROR:  syntax error at or near "primary" at character 27
 [for Statement "SELECT essential, domain, primary
FROM   t_domains
WHERE  id_t_domains=?
" with ParamValues: 1='4'] at /usr/lib/perl5/vendor_perl/5.8.8/DBIx/ContextualFetch.pm line 52.
[...]

[...]


SQL unterscheidet nicht zwischen Groß- und Kleinschreibung und PRIMARY ist in SQL ein Schlüsselwort (wegen PRIMARY KEY...). Es ist generell keine gute Idee, Spalten in SQL-Tabellen mit Schlüsselworten zu benennen, ohne sie zu quoten (mit doppelten Anführungszeichen).

Es kann natürlich sein, dass Dein ORM das SQL-Statement so zusammenbaut, dann ist diese Bibliothek aber Mist ;-)
When C++ is your hammer, every problem looks like your thumb.
<< >> 3 Einträge, 1 Seite



View all threads created 2008-09-01 14:00.