Re: [sqlite] preventing text to integer conversion of bind variables in perl

[Jonathan H N Chin]

Sorry, bad cut&paste. First create should have been text not int:

    sqlite3 test 'create table t ( k text unique, v text);'
    perl -e 'use DBI; $db = DBI->connect( "dbi:SQLite:dbname=test" );
        $db->do( qq[REPLACE INTO t VALUES(?,?);], undef, "k1", "9");
        $db->do( qq[REPLACE INTO t VALUES(?,?);], undef, "k2", "8");
        $db->do( qq[REPLACE INTO t VALUES(?,?);], undef, "k3", "11");
        $db->do( qq[REPLACE INTO t VALUES(?,?);], undef, "k4", "10");
    '
    sqlite3 test 'select * from t;'
    sqlite3 test 'select * from t order by v;'
    rm test
    sqlite3 test 'create table t ( k text unique, v int);'
    perl -e 'use DBI; $db = DBI->connect( "dbi:SQLite:dbname=test" );
        $db->do( qq[REPLACE INTO t VALUES(?,?);], undef, "k1", "9");
        $db->do( qq[REPLACE INTO t VALUES(?,?);], undef, "k2", "8");
        $db->do( qq[REPLACE INTO t VALUES(?,?);], undef, "k3", "11");
        $db->do( qq[REPLACE INTO t VALUES(?,?);], undef, "k4", "10");
    '
    sqlite3 test 'select * from t;'
    sqlite3 test 'select * from t order by v;'


-jonathan

--
Jonathan H N Chin, 2 dan | deputy computer | Newton Institute, Cambridge, UK
<[EMAIL PROTECTED]> | systems mangler | tel/fax: +44 1223 767091/330508

                "respondeo etsi mutabor" --Rosenstock-Huessy