Zusätzliches bei SQL-Fehler ausgeben: Problem... (Datenbanken und Verzeichnisdienste)

[thread]3413[/thread]

Zusätzliches bei SQL-Fehler ausgeben: Problem...

pktm

2004-02-27 21:58

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Ich würde mir gerne bei einem SQL-Statement in einer Sub ausgeben lassen, aus welcher Zeile diese

aufgerufen wurde (bei einem Fehler).
Dazu habe ich den optionalen Parameter $line, aber der wird hier irgendwie nicht mit ausgegeben:

Code: (dl )

my $rv = $sth->execute        || die "Zeile: $line" . $dbh->errstr;

Wie kann ich das denn erreichen?

mfg pktm

http://www.intergastro-service.de (mein erstes CMS :) )

esskar

2004-02-27 22:39

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

versuch es mal mit $!

renee

2004-02-27 22:42

User since
2003-08-04
14371 Artikel
ModeratorIn

Wo kommt das $line her??

Wie meinst Du das "aus welcher Zeile es aufgerufen wird"??

Hast Du das $sth->execute() in einer Sub??
Wenn ja, dann übergeb der Sub doch beim Aufruf, welche Zeile das ist...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Strat

2004-02-27 23:21

User since
2003-08-04
5246 Artikel
ModeratorIn

gab es da nicht ?

Code: (dl )

my $rv = $sth->execute  or die("Zeile: ", , $dbh->errstr, "\n");

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

coax

2004-02-27 23:21

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

Hi die Zeile in der die Subroutine aufgerufen wurde bekommst du ueber caller im Listenkontext.

Code: (dl )

#!/usr/bin/perl

foo();

foo();

sub foo {

      my($package, $filename, $line) = caller();
      
      print "Aufgerufen in: $line\n";

}

edit: das LINE Token erzeugt 'n Parsefehler\n\n

,,Das perlt aber heute wieder...'' -- Dittsche

Strat

2004-02-27 23:22

User since
2003-08-04
5246 Artikel
ModeratorIn

wenn du den fehleroutput von einer subroutine erledigen lassen willst, finde ich zum debuggen das Rezept Backtracking auf meiner HP unter Perl -> Tips&Tricks -> Perl-Enhanced recht nuetzlich

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

pktm

2004-02-27 23:24

User since
2003-08-07
2921 Artikel
BenutzerIn

Oh, sry, etwas wenig Info:

Code: (dl )

sub get_cmd {
    # returns an array of sth->fetchrow_hashref
    my $cmd = shift;
    my $line = shift || 'keine Angabe';
    my $data = [];
    my $sth = $dbh->prepare($cmd) || die "Zeile: $line" . $dbh->errstr;
    my $rv = $sth->execute        || die "Zeile: $line" . $dbh->errstr;
    while( my $ref = $sth->fetchrow_hashref() ){
        push @{ $data }, $ref;
    }
    $sth->finish();
    return $data;
} # get_cmd

http://www.intergastro-service.de (mein erstes CMS :) )

Strat

2004-02-27 23:53

User since
2003-08-04
5246 Artikel
ModeratorIn

und verwendet $dbh als globale variable ....tststs... so eine verdeckte parameteruebergabe finde ich nicht schoen...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

pktm

2004-02-28 11:17

User since
2003-08-07
2921 Artikel
BenutzerIn

Gut, jetzt bekomme ich $line schonmal ohne übergabe von _ _LINE_ _, da kann ich dan $dbh übergeben :)
Aber beim Aufruf die "Zeile: $line" . $dbh->errstr; erhalte ich trotzdem nur die SQL-Fehlermeldung und nicht "Zeile: $line" davor.
Wie muss ich das denn schreiben?
mfg pktm

http://www.intergastro-service.de (mein erstes CMS :) )

Strat

2004-02-28 12:30

User since
2003-08-04
5246 Artikel
ModeratorIn

also wenn $dbh->errstr() ausgegeben wird, muss auch "Zeile: $line " ausgegeben werden. Kann es sein, dass da an einer anderen Stelle ein Fehler auftritt, wo kein die "Zeile: $line " . $dbh->errstr() steht?

Nebenbei: das || wird folgendermaszen ausgewertet:

Code: (dl )

my $sth = ( $dbh->prepare($cmd) || die "Zeile: $line" . $dbh->errstr );

Beim die bleibt es sich egal, aber wenn du da sonst was machen willst, wird da bei einem Fehler der rechte Teil des ||-Ausdruckes an $sth ueberwiesen. Wenn du da anstelle von die print schreibst, bekommst du einen schoenen Fehler... Mit or anstelle von || umgehst du dieses potentielle Problem.

ich verwende or die so gut wie nie, sondern lieber eine syntax wie die folgende:

Code: (dl )

my $sth = $dbh->prepare($cmd);
unless ($sth) {
  die "Zeile: $line" . $dbh->errstr();
}
else {
  # ...
}

weil ich dann einfach das die durch eine vernuenftige Fehlerausgabe ersetzen kann (z.B. &WriteHtmlError($r, $dbh, $errorMessage) oder so), was gerade bei CGI- und mod_perl-Scripten sehr wichtig sein kann, weil da ein 500er-Fehler selten einen guten Eindruck hinterlaesst.

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View all threads created 2004-02-27 21:58.