MESSAGE
DATE | 2014-11-23 |
FROM | Ruben Safir
|
SUBJECT | Subject: [NYLXS - HANGOUT] [ruben@mrbrklyn.com: Re: Perl + DBD-Oracle, problems with encoding
|
From owner-hangout-outgoing-at-mrbrklyn.com Sun Nov 23 01:11:47 2014 Return-Path: X-Original-To: archive-at-mrbrklyn.com Delivered-To: archive-at-mrbrklyn.com Received: by mrbrklyn.com (Postfix) id 9BEE016116B; Sun, 23 Nov 2014 01:11:46 -0500 (EST) Delivered-To: hangout-outgoing-at-mrbrklyn.com Received: by mrbrklyn.com (Postfix, from userid 28) id 8915116116D; Sun, 23 Nov 2014 01:11:46 -0500 (EST) Delivered-To: hangout-at-nylxs.com Received: from mailbackend.panix.com (mailbackend.panix.com [166.84.1.89]) by mrbrklyn.com (Postfix) with ESMTP id CAC2B16116B for ; Sun, 23 Nov 2014 01:11:45 -0500 (EST) Received: from panix2.panix.com (panix2.panix.com [166.84.1.2]) by mailbackend.panix.com (Postfix) with ESMTP id BE3F6138C5 for ; Sun, 23 Nov 2014 01:11:45 -0500 (EST) Received: by panix2.panix.com (Postfix, from userid 20529) id 9E9DC33CBF; Sun, 23 Nov 2014 01:11:45 -0500 (EST) Date: Sun, 23 Nov 2014 01:11:45 -0500 From: Ruben Safir To: hangout-at-nylxs.com Subject: [NYLXS - HANGOUT] [ruben-at-mrbrklyn.com: Re: Perl + DBD-Oracle, problems with encoding when "PerlHandler Apache::Registry" is in use] Message-ID: <20141123061145.GA29041-at-panix.com> MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline User-Agent: Mutt/1.5.23 (2014-03-12) Sender: owner-hangout-at-mrbrklyn.com Precedence: bulk Reply-To: hangout-at-mrbrklyn.com
----- Forwarded message from Ruben Safir -----
Date: Sun, 23 Nov 2014 00:42:51 -0500 From: Ruben Safir To: michael kapelko Cc: modperl-at-perl.apache.org Subject: Re: Perl + DBD-Oracle, problems with encoding when "PerlHandler Apache::Registry" is in use User-Agent: Mutt/1.5.21 (2010-09-15)
did you ever get this worked out.
I'm looking to use perl with my oracle set up. Any tips would be appreciated.
Ruben
On Fri, Feb 19, 2010 at 05:47:51PM +0700, michael kapelko wrote: > Hello. > Here's a short script I used to find out the problem with the Apache::Registry: > > #!/usr/bin/perl -wT > use strict; > use warnings; > use CGI; > use DBI; > use DBI qw(:sql_types); > use encoding 'utf-8'; > > my $cgi = new CGI; > print $cgi->header(-type ? ?=> "text/html", > ? ? ? ? ? ? ? ? ? -charset => "utf-8"); > print $cgi->start_html(-lang => "ru-RU", > ? ? ? ? ? ? ? ? ? ? ? -title => "Title"); > print $cgi->h1("Title"); > my $db = DBI->connect("DBI:Oracle:SID=ELTC;HOST=10.102.101.4", > ? ? ? ? ? ? ? ? ? ? ?, , {RaiseError => 1, > ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? AutoCommit => 0, > ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ora_charset => "UTF8"}); > my $query = "select name from swmgr2.vw_switches where sw_id_ip = > 2315046666"; // Selects Russian "name" from DB in UTF-8, because on > the previouse line we asked Oracle to return data to us in UTF-8. > my $stmt = $db->prepare($query); > $stmt->execute(); > my $name; > $stmt->bind_columns(undef, \$name); > $stmt->fetch(); > $stmt->finish(); > $db->disconnect(); > print $cgi->p($name); > print $cgi->end_html(); > > When invoked directly by the shell or in web page WITHOUT "PerlHandler > Apache::Registry", the UTF-8 encoded string in Russian is printed just > fine. But when "PerlHandler Apache::Registry" is used, only ???? are > printed in web page. > Thanks. > > .
-- So many immigrant groups have swept through our town that Brooklyn, like Atlantis, reaches mythological proportions in the mind of the world - RI Safir 1998 http://www.mrbrklyn.com
DRM is THEFT - We are the STAKEHOLDERS - RI Safir 2002 http://www.nylxs.com - Leadership Development in Free Software http://www2.mrbrklyn.com/resources - Unpublished Archive http://www.coinhangout.com - coins! http://www.brooklyn-living.com
Being so tracked is for FARM ANIMALS and and extermination camps, but incompatible with living as a free human being. -RI Safir 2013
----- End forwarded message -----
|
|