[DBIx::Class] Query mit mathematischen Operatoren? (Datenbanken und Verzeichnisdienste)

[thread]18761[/thread]

[DBIx::Class] Query mit mathematischen Operatoren?

Tags: perl5 MySQL DBIx::Class math Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+11 replies
martin.g

2013-11-22 14:36
User since
2013-09-20
40 Artikel
BenutzerIn
Hallo,
ich bin gerade echt am Verzweifeln mit DBIx::Class. Man kann bei den Abfragen ja fast alles irgendwie hinkonstruieren, aber ich komme einfach auf keinen grünen Zwei beim Rechnen mit Operatoren. Alles wofür es Funktionen gibt (Cosinus, Absolut Wert usw.) ist kein Problem, aber ich schaffe es nicht, zwei Werte zu addieren.
Code: (dl )

1 2 3 4 5 6 7 8

$schema->resultset('XY')->search( {}, { select => [ { ABS => -2, -as => 'a' }, { '-' => [ 12, 17 ], -as => 'b' }, { ABS => \'12 - 17', -as => 'c' } ] } } );
a funktioniert, b evaluiert zu -(12, 17) und schlägt mit MySQL Syntaxfehler fehl. c funktioniert wieder, eignet sich aber nicht für Mathematik zwischen komplexeren Konstrukten. So könnte ich mir DBIx gleich schenken und mein Statement komplett von Hand schreiben. Gäbe es eine MySQL Funktion ADD, SUBTRACT usw. würde das ja auch helfen, aber so bin ich mit meinem Latein am Ende. Habe diverse Formate ausprobiert und finde aber auch nirgends Doku dazu. Im Manual Cookbook steht auch nur so ein Beispiel wie mein c drinnen.

Effektiv wollte ich dieses Statement abbilden, aber schaffe es nicht.
Code: (dl )

1 2 3

SELECT (UNIX_TIMESTAMP(begin) - UNIX_TIMESTAMP("2013-11-22 05:50:12")) AS timediff_begin, ( UNIX_TIMESTAMP("2013-11-22 09:50:12") - UNIX_TIMESTAMP(end) ) AS timediff_end
Vorübergehend werde ich das als Skalarreferenz übergeben und so dem Beispiel folgen, aber befriedigend ist das nicht.

Hat von Euch jemand eine Idee? Ich kann doch da nur etwas übersehen habe, denke ich.

Viele Grüße
Martin
- +10 replies
- martin.g
  
  2013-11-29 14:47
  
  User since
  2013-09-20
  40 Artikel
  BenutzerIn
  
  Eine Woche später pushe ich diesen Thread mal. Mir erscheint mein Anliegen nicht als sehr außergewöhnlich - gibt es niemanden, der eine Idee hat?
  
  Viele Grüße
  Martin
  - +9 replies
  - Muffi
    
    2013-11-29 14:55
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Ich hab das Problem glaub ich noch nicht verstanden.
    Was spricht dagegen eine mathematische Formel als mathematische Formel zu schreiben?
    
    [edit] Und dann, aber vielleicht bin ich da zu altmodisch, habe ich den großen Sinn, die Sprache SQL durch eine andere Sprache, die nur ein Subset davon kann, nicht lesbarer ist und bei komplexeren Sachen in einem furchtbaren Verrenke endet, zu ersetzen.
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    SQL_fetch(q| SELECT (UNIX_TIMESTAMP(begin) - UNIX_TIMESTAMP(?)) AS timediff_begin, (UNIX_TIMESTAMP(?) - UNIX_TIMESTAMP(end)) AS timediff_end ...|, $a, $b);
    
    Ich kenn keine Syntax, die das lesbarer macht.
    
    [edit2] Das Beispiel ist jetzt vielleicht ein wenig übertrieben, aber der Sinn
    "SELECT abs(-2) AS a"
    durch
    select => [ { ABS => -2, -as => 'a' } ]
    zu ersetzen muss mir noch genauer erklärt werden.
    Last edited: 2013-11-29 15:18:05 +0100 (CET)
    1 + 1 = 10
    - +8 replies
    - jan
      
      2013-11-29 15:26
      
      User since
      2003-08-04
      2536 Artikel
      ModeratorIn
      
      Der Sinn dabei ist der Luxus des ORMs ;)
      
      Code (perl): (dl )
      
      1 2 3
      
      for my $book ($db->resultset("Book")->search({'read' => 0})->all()) { print $book->title() . "\n"; }
      
      finde ich sehr viel angenehmer und wartbarer als
      
      Code (perl): (dl )
      
      1 2 3 4
      
      my $get_books = $dbh->prepare("SELECT * FROM books WHERE `read` = 0"); while(my $book = $get_books->fetchrow_hashref()) { print $book->{'title'} . "\n"; }
      
      Ich habe für diesen Anwendungsfall allerdings auch keine Idee. Bei mir lief's gar nicht, weil er 12 und 17 immer als `12` und `17` umsetzte, sodass nur \12 und \17 funktionierte. Um's aber sauber in SQL::Abstract zu machen, habe ich nichts gefunden.
      Finde es an dieser Stelle aber auch nicht schlimm, das mit literal SQL zu machen.
      - +4 replies
      - Muffi
        
        2013-11-29 15:47
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Bei meinem ORM schreib ich:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        my $books = Books->find('read = ?', 0); while (my $book = <$books>) { ... }
        
        mit dem Vorteil, dass ich im where ein Stück freier bin.
        
        Aber in dem Fall wird ja eh ein select mehr oder weniger per Hand geschrieben. Nur umständlicher.
        [edit] Dann hätt ich die Spalten wenigstens als "kalkuliert" im Objekt angelegt, dann kommen die zumindest automatisch mit.
        Last edited: 2013-11-29 15:49:34 +0100 (CET)
        1 + 1 = 10
        
        +3 replies
        
        jan
        
        2013-11-29 15:50
        
        User since
        2003-08-04
        2536 Artikel
        ModeratorIn
        
        Du kannst bei DBIx::Class auch literal SQL schreiben, man tut's nur seltener.
        Ich finde das zum Beispiel wunderbar,
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        my $search = {}; if(...) { $search->{'myval'} = 1; } ... ->search( $search )
        
        zu nutzen.
        
        +2 replies
        
        Muffi
        
        2013-11-29 15:57
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        (falls ich richtig verstanden habe was es tut)
        
        Code (perl): (dl )
        
        1 2 3 4
        
        my $books = Books->find('read = ?', 0); if (...) { $books = $books->find('myval = ?', 1); }
        
        1 + 1 = 10
        
        jan
        
        2013-11-29 16:54
        
        User since
        2003-08-04
        2536 Artikel
        ModeratorIn
        
        Ja, ich meinte nur: Du hast eine Tabelle mit 10 Attributen, die Du selektiv durchsuchen willst.
        Du prüfst also bspw
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        for my $attr (@attributes) { if($CGI->param($attr)) { $search->{ $attr } = $attr; } }
        
        und kannst das einfach in's ->search werfen.
      - +3 replies
      - martin.g
        
        2013-11-29 15:57
        
        User since
        2013-09-20
        40 Artikel
        BenutzerIn
        
        Nun ja, das war schon ein recht kurzes Beispiel.
        Wenn man mehrere komplexere Berechnungen addieren will, dann muss man auf diesem Weg zwingend alle Unteranweisungen als Literal schreiben.
        Ich kann mir nicht vorstellen, dass dass nicht gehen soll. Muß evtl. mal im Source von SQL::Abstract stöbern, aber das ist halt doch ein recht umfangreiches Modul.
        
        Muffi, meine Beispiele waren nur Beispiele. Ich werde meinen SQL Server nicht damit beschäftigen, Absolutwerte fester negativer Zahlen zu berechnen :-)
        
        Wenn Du Dich mal an den Luxus von DBIx::Class gewöhnt hast, willst Du ihn nicht mehr missen. Ich habe Catalyst als Aufhänger genommen, mich dort einzuarbeiten und es ist eine tolle Sache.
        
        $schema->user(username => 'werner', email => 'a@b.de')->accounts(active => 0)->delete()
        
        Natürlich ist es Arbeit, sich in die Syntax einzuarbeiten. Aber es ist auch Arbeit, sich in Objektorientierung und vernünftige Ablaufsteuerung einzuarbeiten, wo man doch viele Sachen so schön auch Spaghetthi-mäßig machen könnte.
        Man macht es halt und erntet dafür irgendwann den Lohn, weil es das Leben einfacher macht.
        
        Glaube mir, ich habe DBIx::Class auch schon mehrfach verflucht :-)
        
        +2 replies
        
        Muffi
        
        2013-11-29 16:01
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Und das in meinem:
        
        Code (perl): (dl )
        
        User->find('username = ? and email = ? and self.Accounts.active = ?', 'werner', 'a@b.de', 0)->Delete;
        
        edit: obwohl ich sagen muss dass die Idee mit dem self recht experimentell ist, aber ich wollt mal sehn wie sich das anfühlt.
        
        edit2: Ah, halt, du löscht ja die Accounts, nicht die User.
        
        Code (perl): (dl )
        
        User->find('username = ? and email = ?', 'werner', 'a@b.de')->Accounts('active = ?', 0)->Delete;
        
        Last edited: 2013-11-29 16:09:09 +0100 (CET)
        1 + 1 = 10
        
        martin.g
        
        2013-11-29 16:59
        
        User since
        2013-09-20
        40 Artikel
        BenutzerIn
        
        Das ist ja auch gut, aber mir geht es gerade nicht darum, was besser ist. Ich suche nur verzweifelt eine Lösung...

View all threads created 2013-11-22 14:36.