SQL :: dB. antarmuka Perl ke database SQL
Unduh sekarang

SQL :: dB. Peringkat & Ringkasan

SQL :: dB. Tag

Database. SQL modul perl perl SQL Database Antarmuka Perl.

SQL :: dB. Keterangan

SQL :: DB adalah modul Perl yang menyediakan antarmuka tingkat rendah ke database SQL, menggunakan objek Perl dan operator logika. Ini bukan objek mapper relasional seperti kelas :: DBI dan tidak ada abstraksi seperti SQL :: Abstrak. Itu jatuh di suatu tempat inbetween. Setelah menggunakan define_tables () untuk menentukan skema Anda dan membuat objek SQL :: dB, alur kerja khas adalah sebagai berikut: * Connect () ke database * menyebarkan () skema (buat tabel dll) * menggunakan Satu atau lebih "baris abstrak" diperoleh melalui Arow () Anda dapat melakukan () memasukkan, memperbarui atau menghapus kueri. * Menggunakan satu atau lebih "baris abstrak" diperoleh melalui Arow () Anda dapat mengambil (memilih) data untuk bekerja dengan (dan mungkin memodifikasi). * Ulangi tiga langkah di atas sesuai kebutuhan. Pertanyaan lebih lanjut (dengan tingkat otomatisasi yang lebih tinggi) dimungkinkan dengan objek yang dikembalikan dengan mengambil (). * Putuskan () dari database.sql :: dB mampu menghasilkan hampir semua jenis kueri, tetapi tidak terbatas pada , Bergabung, Memilih Bersarang, serikat pekerja, doa operator sisi basis data, panggilan fungsi, ekspresi agregat, dll. Namun paket ini masih cukup baru, dan tidak lengkap. Umpan balik, pengujian, dan (bahkan lebih baik) tambalan semuanya disambut define_tables (, kolom => , kolom => ,], , kolom => , kolom => , kolom => , kolom => , index => 'nama',]); $ db = sql :: db-> baru (); $ dB-> Connect ('DBI: SQLITE: /tmp/sqldbtor.db', 'pengguna', 'lulus', {}); $ dB-> Deploy; $ Personson = $ dB-> Arow ('orang'); $ alamat saya = $ dB-> Arow ('alamat'); $ DB-> DO (INSERT => , Nilai = , Nilai = , # PG: , di mana => $ persons-> nama == 'Homer',); $ ans = $ dB-> fetch1 (pilih => , dari => $ orang, di mana => $ persons-> usia> 40,); # Cetakan berikut "Head Count: 1 Max Usia: 43" Cetak 'Head Count:'. $ ans-> count_name. 'Max era:'. $ ANS-> MAX_AGE. "\ n"; @Items = $ db-> ambil (pilih => , dari => $ orang, left_join => $ alamat, pada => $ -> ID == $ persons-> Alamat, di mana => ($ alamat-> kota == 'Springfield') dan ($ persons-> Usia> 40), order => Usia-> Desc => 10,); # Beri saya "Homer (43) tinggal di Springfield" Foreach saya $ item (@Items) {cetak $ item-> nama, '(', $ item-> usia, ') tinggal di', $ item, "\n"; } Beranda Produk

SQL :: dB. Perangkat Lunak Terkait