Udlei D. R. Nattis > Ananke-SqlLink-1.1.2 > Ananke::SqlLink

Download:
Ananke-SqlLink-1.1.2.tgz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 1.1.1   Source  

NAME ^

Ananke::SqlLink - Front-end module to MySQL

DESCRIPTION ^

MySQL easy access

SYNOPSIS ^

        #!/usr/bin/perl]

        use strict;
        use Ananke::SqlLink;
        my(@r,$c,$q,$i);

        # Open DB
        $c = new Ananke::SqlLink({
                'type'      => 'mysql',
                'db'        => 'test',
                'host'      => 'localhost',
                'username'  => 'root',
                'passwd'    => '',
        });

        # Query Insert
        $q = "INSERT INTO test (id,name) VALUES (null,'user')";
        $c->do($q); undef $q;

        # Query Select
        $q = "SELECT id,name FROM test";

        # Result 1
        print "- Scalar\n";
        @r = $c->return($q,'scalar');
        foreach $i (@r) {
                print "ID: ".$i->{id}." - Name: ".$i->{name}."\n";
        }

        # Result 2
        print "- Array\n";
        @r = $c->return($q,'array');
        foreach $i (@r) {
                print "ID: ".${$i}[0]." - Name: ".${$i}[1]."\n";
        }

        # Close DB
        $c->disconnect;

METHODS ^

new({type,db,host,username,passwd})

        Create a new SqlLink object.

        my $c = new Ananke::SqlLink({
                'type'          =>      'mysql',
                'db'        => 'test',
                'host'      => 'localhost',
                'username'  => 'root',
                'passwd'    => '',
        });

$c->return(type,query)

        only for select

scalar type

        @r = $c->return($q,'scalar');
        foreach $i (@r) {
                print "ID: ".$i->{id}." - Name: ".$i->{name}."\n";
        }

array type

        @r = $c->return($q,'array');
        foreach $i (@r) {
                print "ID: ".${$i}[0]." - Name: ".${$i}[1]."\n";
        }

$c->do(query)

        to insert,update,replace,etc...

        $q = "INSERT INTO test (id,name) VALUES (null,'user')";
        $c->do($q); undef $q;

$c->disconnect()

        disconnect
        
        $c->disconnect();

$c->insertid()

        return last insert id

$c->quote(string)

        AddSlashes

        $q = "INSERT INTO test (id,name) VALUES (null,'".$c->quote($user)."')";

AUTHOR ^

   Udlei D. R. Nattis
   nattis@anankeit.com.br
   http://www.nobol.com.br
   http://www.anankeit.com.br
syntax highlighting: