Projekt: Querys zur Abfrage von verschachtelten Listen aus Arrays und Hashes (Projekte)

[thread]13680[/thread]

Projekt: Querys zur Abfrage von verschachtelten Listen aus Arrays und Hashes

Leser: 15

Articles: hide open all | hide show old branches

+4 replies
xubaso

2009-07-01 23:10
User since
2009-06-27
6 Artikel
BenutzerIn
Hallo,

da ich auf cpan.org nichts entsprechendes gefunden habe, habe ich mir selber ein Package mit dieser Funktionalität gebaut.

Ich würde gerne ein paar Rückmeldungen von euch haben, ob ihr denkt dass es dafür Bedarf gibt, oder ob ich auch nur zum X-ten Mal das Rad neu erfunden habe :-)

Falls nicht, würde mich natürlich auch interessieren, wie ihr die Syntax der Query-Sprache findet.

Hier ein Beispiel:
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

# Eine verschachtelte Beispielliste: my @a1=( { "table" => "table1", "primary key" => "pk1", "datafield" => [ { "name" => "data1", "type" => "text", "length" => 1024, }, { "name" => "data2", "type" => "blob", "length" => 512, }, { "name" => "pk1", "type" => "integer", "length" => 32, }, ], }, [ "irgend", "eine", "andere", "Liste" ], {"Hallo" => "Welt"}, );
Um die verschachtelten foreach-Schleifen, das Dereferenzieren und die If-Abfragen zu sparen, bietet das Package die Funktion query_list. Ein Query um z.B. den 'datafield' Eintrag mit dem 'name' 'data2' zu kriegen, sieht so aus:
Code: (dl )

my @result=query_list(\@a1, "[*]->{table eq table1 | datafield}->[*]->{name eq data2}");
Im Grunde ist es genauso aufgebaut wie ein normaler Listenzugriff, nur dass man mit Bedingungen arbeiten kann. Die Pipe in der Mitte vom Hash trennt die Bedingungen auf der linken Seite und die weiter zu verfolgenden Schlüssel auf der rechten.

Wer sich dafür interessiert oder es ausprobieren möchte, kann es sich den Quelltext hier runterladen: http://www.atdot.de/downloads/query_list.pl.tar.gz

Gruß - Xubaso
- +2 replies
- pktm
  
  2009-07-02 09:31
  
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  
  Hallo!
  
  Was findest du an SQL::Abstract, Class::DBI oder DBIx::Class nicht ausreichend für deine Bedürfnisse?
  
  Beste Grüße, Alex
  http://www.intergastro-service.de (mein erstes CMS :) )
  - renee
    
    2009-07-02 10:01
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Wenn ich das richtig verstanden habe, geht es nicht darum, in der Datenbanktabelle zu suchen, sondern in Perl Datenstrukturen.
    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/
- renee
  
  2009-07-02 10:05
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  2009-07-01T21:10:51 xubaso
  Ich würde gerne ein paar Rückmeldungen von euch haben, ob ihr denkt dass es dafür Bedarf gibt, oder ob ich auch nur zum X-ten Mal das Rad neu erfunden habe :-)
  Hast Du Dir mal Data::Path angeschaut? Das dürfte doch so ziemlich in Deine Richtung gehen.
  
  2009-07-01T21:10:51 xubaso
  Falls nicht, würde mich natürlich auch interessieren, wie ihr die Syntax der Query-Sprache findet.
  Nicht böse sein, aber die Syntax finde ich nicht gerade bequem. Sie ist nicht besonders gut lesbar und relativ umständlich.
  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/

View all threads created 2009-07-01 23:10.