SQL :: db. Perl-Schnittstelle zu SQL-Datenbanken
Jetzt downloaden

SQL :: db. Ranking & Zusammenfassung

SQL :: db. Stichworte

Datenbank SQL. Perl-Modul Perl SQL-Datenbank. Perl-Schnittstelle.

SQL :: db. Beschreibung

SQL :: dB ist ein Perl-Modul, das eine Schnittstelle mit niedrigem Niveau an SQL-Datenbanken bietet, wobei Perl-Objekte und Logikbetreiber verwendet werden. Es ist kein Objekt Relational Mapper wie Klasse :: DBI und auch nicht eine Abstraktion wie SQL :: Abstract. Es fällt irgendwo in dabetween.Nach mit define_tables (), um Ihr Schema anzugeben und ein SQL :: db-Objekt anzugeben, ist der typische Workflow wie folgt: * Connect () in die Datenbank * Bereitstellung () Das Schema (Erstellen von Tabellen usw.) * Ein oder mehrere "abstrakte Zeilen", die über AROW () erhalten werden () Sie können Abfragen () einfügen, aktualisieren oder löschen. * Verwenden eines oder mehrerer "Abstrakte Zeilen", die über AROW () erhalten, können Sie Daten abrufen () (auswählen) (und möglicherweise modifizieren). * Wiederholen Sie die oben genannten drei Schritte nach Bedarf. Weitere Abfragen (mit einem höheren Automatisierungsniveau) sind mit den von Abruf () zurückgegebenen Objekte möglich (). * Trennen () aus der Datenbank.SQL :: dB ist in der Lage, nur etwa jede Art von Abfrage zu generieren, einschließlich, aber nicht beschränkt auf , Joins, verschachtelte Selects, Gewerkschaften, Datenbankseiten-Operator-Invokationen, Funktionsaufrufe, Aggregatausdrücke usw. Das Paket ist jedoch noch ganz neu, und nirgends in der Nähe von COMPLETT. Feedback, Testen und (noch bessere) Patches sind alle willkommen.Synopsis verwenden SQL :: db qw (definieren_tables count max); define_tables (, Spalte => , Spalte => ,], , Spalte => , Spalte => , Spalte => , Spalte => , Index => Name ',]; mein $ db = sql :: db-> neu (); $ db-> Connect ('DBI: SQLite: /tmp/sqldbtest.db', 'Benutzer', 'Pass', {}); $ db-> bereitstellen; meine $ Personen = $ db-> arow ('personen'); Meine $ Adressen = $ db-> arow ('Adressen'); $ db-> do (Einfügen => , Werte => ,); $ db-> do (einfügen => , Werte => , # PG: , wobei => $ Personen-> Name == 'Homer',); My $ Ans = $ db-> fetch1 (Select => , von => $ Personen, wobei => $ Personen-> Alter> 40,); # Die folgenden Drucke "Head Count: 1 Max Alter: 43" Drucken 'Head Count:'. $ Ans-> count_name. 'Max Alter:'. $ ANS-> MAX_AGE. "\ n"; My @Items = $ db-> fetch (Select => , von => $ Personen, link_join => $ Adressen, auf => $ Adressen -> id == $ Personen-> Adresse, wobei => ($ Adressen-> City == 'Springfield') und ($ Personen-> Alter> 40), bestellt_by => $ Personen-> Alter-> DESC, Limit => 10,); # Gib mir "Homer (43) lebt in Springfield" FOREACH MEINE $ EINZELTEIL (@Items) {drucken $ item-> name, '(', $ item-> altern, ') lebt in', $ item-> city, "\n"; } Die Homepage des Produkts

SQL :: db. Zugehörige Software