SQL :: DB PERL-INTERFACE NAAR SQL-databases
Download nu

SQL :: DB Rangschikking & Samenvatting

SQL :: DB Tags

database SQL Perl-module perl SQL-database Perl-interface

SQL :: DB Beschrijving

SQL :: DB is een PERL-module die een low-level interface biedt op SQL-databases, met behulp van PERL-objecten en logische operators. Het is geen object Relational Mapper zoals Klasse: DBI en het is ook geen abstractie zoals SQL :: Abstract. Het valt ergens tussentussen. Na het gebruik van define_tables () om uw schema op te geven en een SQL :: DB-object te maken, is de typische workflow als volgt: * Verbinden () naar de database * implementeer () het schema (CREATE TAPOREN ENC) * Een of meerdere "abstracte rijen" verkregen via AROW () U kunt vragen invoegen, bijwerken of verwijderen of verwijderen. * met behulp van een of meer "abstracte rijen" verkregen via AROW () die u kunt halen () (selecteren) om mee te werken (en mogelijk modificeren). * Herhaal de bovenstaande drie stappen indien nodig. Verdere vragen (met een hoger niveau van automatisering) zijn mogelijk met de objecten die worden geretourneerd door fetch (). * Ontkoppeling () uit de database.SQL :: DB is in staat om zowat elke soort query te genereren, inclusief, maar niet beperkt tot , Joins, genesteld selects, vakbonden, database-side operator-aanroepingen, functie-oproepen, aggregate uitingen, enz. Dit pakket is echter nog steeds vrij nieuw, en nergens in de buurt van compleet. Feedback, testen en (nog beter) Patches zijn allemaal welkom.Synopsis Gebruik SQL :: DB QW (Definie_tables Count Max); Define_tables (, kolom => , Column => ,], , kolom => , kolom => , Column => , kolom => , index => 'Naam',]); mijn $ db = sql :: db-> nieuw (); $ DB-> Connect ('dbi: sqlite: /tmp/sqldbtest.db', 'gebruiker', 'pass', {}); $ db-> implementeren; mijn $ Personen = $ DB-> AOW ('Personen'); Mijn $ Adressen = $ DB-> AOW ('Adressen'); $ DB-> Do (Insert => , waarden => ,); $ DB-> DO (Invoegen => , Waarden => , # PG: , waar => $ personen-> naam == 'Homer',); Mijn $ ANS = $ DB-> FETCH1 (Select => => $ personen, waar => $ personen-> leeftijd> 40,); # De volgende prints "Head Count: 1 MAX LEEFTIJD: 43" Print 'Head Count:'. $ ANS-> Count_Name. 'Max Leeftijd:'. $ ANS-> MAX_AGE. "\ N"; My @items = $ db-> fetch (selecteer => , van => $ personen, links_join => $ Adressen, op => $ Adressen -> ID == $ Personen-> Adres, waar => ($ Adressen-> City == 'Springfield') en ($ Personen-> Leeftijd> 40), Order_by => $ Personen-> Age-> Desc, Limit => 10,); # Geef me "Homer (43) woont in Springfield" Foreachy My $ Item (@items) {Print $ Item-> Naam, '(', $ Item-> Leeftijd ') Woont in', $ Item-> City, "\N"; } Homepage van het product

SQL :: DB Gerelateerde software