Select Code to Download

Select or download this

    my $dbh = DBI->connect($db{$dsn}{dsn},$db{$dsn}{user},$db{$dsn}{pa
+ssword},$db{$dsn}{opts});
    if (!defined($dbh)) {
...
    my $str = $$ref[0];
    print $db{$dsn}{driver}." ".$str ." > ".join(" ",map {sprintf("0x%
+X",$_)} unpack("C*",$str))."\n";

Select or download this

# ./sql_test
Content-Type: text/html; charset=utf-8

Sybase &#1096;&#1082;&#1086;&#1083;&#1099;#&#1050;&#1072;&#1089;&#1089
+;&#1072; > 0xD1 0x88 0xD0 0xBA 0xD0 0xBE 0xD0 0xBB 0xD1 0x8B 0x23 0xD
+0 0x9A 0xD0 0xB0 0xD1 0x81 0xD1 0x81 0xD0 0xB0

Select or download this

# ./sql_test
Content-Type: text/html; charset=utf-8

Pg &#1096;&#1082;&#1086;&#1083;&#1099;#&#1050;&#1072;&#1089;&#1089;&#1
+072; > 0xD1 0x88 0xD0 0xBA 0xD0 0xBE 0xD0 0xBB 0xD1 0x8B 0x23 0xD0 0x
+9A 0xD0 0xB0 0xD1 0x81 0xD1 0x81 0xD0 0xB0

Select or download this

Sybase ?????#????? > 0x3F 0x3F 0x3F 0x3F 0x3F 0x23 0x3F 0x3F 0x3F 0x3F
+ 0x3F

Select or download this

Pg &#1096;&#1082;&#1086;&#1083;&#1099;#&#1050;&#1072;&#1089;&#1089;&#1
+072; > 0xD1 0x88 0xD0 0xBA 0xD0 0xBE 0xD0 0xBB 0xD1 0x8B 0x23 0xD0 0x
+9A 0xD0 0xB0 0xD1 0x81 0xD1 0x81 0xD0 0xB0