I will briefly discuss setting up the development version of Sybase SQL Anywhere\n(ASA) on linux (or similar) and using it with Perl.
\nYou can download it from:
\nhttp://www.sybase.com/detail?id=1016644
\nGo through the install process, and make a separate user for it (e.g.\nsybase-asa).
In the .bashrc for the user, add:
. /opt/sqlanywhere11/bin32/sa_config.sh \n\nChange to that user, and now lets create a database:
\nmkdir logs\ndbinit -t ./logs/hlaghdb.log -p 4096 -dba DBA,SQL hlaghdb.db\n\n
This sets the username to DBA and the password to SQL.
Let's make an init script. Note that you should not install the init script to\nrun automatically because of the obnoxious agree to license prompt on startup,\nuse it as just a utility for starting the database. Edit the part at the top.
\n#!/bin/sh\n#\n# Startup script for Sybase SQL Anywhere\n# \n# description: Sybase SQL Anywhere RDBMS System\n# processname: dbsrv11\n\nASA_USER=sybase-asa\nASA_BIN=/opt/sqlanywhere11/bin32/\nDB_FILE=hlaghdb.db\nSRV_NAME=ASA\n\n# Find the name of the script\nNAME=`basename $0`\n\n# For SELinux we need to use 'runuser' not 'su'\nif [ -x /sbin/runuser ]\nthen\n SU=runuser\nelse\n SU=su\nfi\n\n# Find home\nASA_HOME=`$SU $ASA_USER -c 'echo \\$HOME'`\n\nstart() {\n ASA_START=$"Starting ${NAME} service: "\n\n $SU $ASA_USER -c ". $ASA_BIN/sa_config.sh; $ASA_BIN/dbsrv11 -ud -n $SRV_NAME $ASA_HOME/$DB_FILE"\n\n ret=$? \n if [ $ret -eq 0 ]\n then\n echo "$ASA_START Success."\n else\n echo "$ASA_START Failed!"\n exit 1\n fi\n echo\n}\n\nstop() {\n echo -n $"Stopping ${NAME} service: "\n\n pkill dbsrv11\n\n ret=$?\n if [ $ret -eq 0 ]\n then\n echo "Success."\n else\n echo "Failed!"\n exit 1\n fi\n echo\n}\n\nrestart() {\n stop\n start\n}\n\ncase "$1" in\n start)\n start\n ;;\n stop)\n stop\n ;;\n restart)\n restart\n ;;\n *)\n echo $"Usage: $0 {start|stop|restart}"\n exit 1\nesac\nexit 0\n\n
SQL Anywhere comes with a GUI and a Curses SQL shell, named dbisql and\ndbisqlc respectively.
Since it uses the TDS protocol, you can also use the ASE isql with rlwrap\nor the freely available sqsh utility.
To use sqsh, first set the SYBASE environment variable to some directory, for\nexample $HOME/sybase. In that directory make a file called interfaces that\ncontains the following:
ASA\n master tcp ether localhost 2638\n query tcp ether localhost 2638\n\n
Then to connect use:
\nsqsh -S ASA -D hlaghdb -U DBA -P SQL\n\nstatements are executed by typing go on a new line. To quit type quit on a\nnew line.
To make a non-DBA user, use the following commands in a SQL shell:
\ngrant connect to hlagh identified by dongs\ngrant resource to hlagh\n\n
Now install the DBD::SQLAnywhere perl driver.
Source the sa_config.sh and make a copy of the /opt/sqlanywhere11/sdk/perl\ndirectory. Change to the directory and:
perl Makefile.PL\nmake\nsudo make install\n\n
Do not use the DBD::SQLAnywhere on CPAN, it is outdated and doesn't work.
Add /opt/sqlanywhere11/lib32 to your LD_LIBRARY_PATH, and try connecting\nfrom DBI:
perl -MDBI -le 'my $dbh = DBI->connect(\n "dbi:SQLAnywhere:ASA", "DBA", "SQL"); \\\n print for $dbh->selectrow_array("select 42")'\n\n
DBIx::Class support for both the DBD and via DBD::ODBC is available in the\ncurrent version.
DBIx::Class::Schema::Loader support is available as of version 0.05002.
To use with unixODBC, add the following to /etc/odbcinst.ini:
[SybASA]\nDescription = Sybase SQL Anywhere\nDriver = /opt/sqlanywhere11/lib32/libdbodbc11.so\nSetup = /opt/sqlanywhere11/lib32/libdbodbc11.so\nFileUsage = 1\n\n
There are also _r versions of the drivers in that directory, these are the\nthreaded libraries.
Then to connect from Perl:
\nperl -MDBI -le 'my $dbh = DBI->connect( \\\n "dbi:ODBC:driver=SybASA;ENG=ASA", \\\n "DBA", "SQL"); \\\n print for $dbh->selectrow_array("select 42")'\n\n\n\n