sybperl-l Archive

From: "Avis, Ed" <avised at kbcfp dot com>
Subject: RE: DBI and Sybase 'print' statements
Date: Aug 18 2005 3:39PM

Steven Wechsler asked:

>How can I intercept sybase print statements using DBI?

    $dbh = DBI->connect($str, $login, $password,
                        {
                            syb_err_handler => sub {
                                if ($_[0] == 0) {
                                    # Print to stdout and then ignore.
                                    print "$_[6]\n";
                                    return 0;
                                }
                                return 1; # handle other errors normally
                            },
                        });

I think print in T-SQL raises an 'error' with severity of zero.

-- 
Ed Avis