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 -----
|
|
