[28204] in Perl-Users-Digest
Perl-Users Digest, Issue: 9568 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Aug 6 11:05:52 2006
Date: Sun, 6 Aug 2006 08:05:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 6 Aug 2006 Volume: 10 Number: 9568
Today's topics:
[OT] Re: A possable bug in the "warnings" pragma. <1usa@llenroc.ude.invalid>
Re: A possable bug in the "warnings" pragma. <mumia.w.18.spam+nospam.usenet@earthlink.net>
Re: A possable bug in the "warnings" pragma. <1usa@llenroc.ude.invalid>
Re: A possable bug in the "warnings" pragma. usenet@DavidFilmer.com
Re: A possable bug in the "warnings" pragma. <rvtol+news@isolution.nl>
Re: A possable bug in the "warnings" pragma. <benmorrow@tiscali.co.uk>
Re: Further to: Printing Hash Marks During File Downloa xhoster@gmail.com
Re: Hash in inherited object fields not properly access <shenkin@gmail.com>
Re: Hash in inherited object fields not properly access <uri@stemsystems.com>
install new package <a@mail.com>
Re: install new package <bik.mido@tiscalinet.it>
new CPAN modules on Sun Aug 6 2006 (Randal Schwartz)
Re: Perl hash of hash efficiency. <yekasi@gmail.com>
Re: PERL Script to Load data into an oracle database xhoster@gmail.com
Re: PERL Script to Load data into an oracle database bony_dev@yahoo.com
Re: Proc::Daemon and Sockets xhoster@gmail.com
Re: skip path prune (David Combs)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 06 Aug 2006 14:30:22 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: [OT] Re: A possable bug in the "warnings" pragma.
Message-Id: <Xns98176AF7D4ED2asu1cornelledu@127.0.0.1>
"Dr.Ruud" <rvtol+news@isolution.nl> wrote in news:eb4qqr.1go.1
@news.isolution.nl:
> usenet@DavidFilmer.com schreef:
>> A. Sinan Unur:
>
>>> By the way, Google Groups has not heard of this message yet:
>>
>> That's not terribly uncommon.
Well, it was a first for me. Given that both Google and XNews tripped up
and stored the message with the following headers
From ???@0x00000A3B Sat Dec 30 04:00:00 1899
Path: ...!news.newsgroup-binaries.com!not-for-mail
Newsgroups: comp.lang.perl.misc
Subject: A possable bug in the "warnings" pragma.
From: Dale Wiles <WilesIgnoreMe@IgnoreMeModArnis.Com>
Sender: WilesIgnoreMe@IgnoreMeModArnis.Com
Date: Sat Aug 5 22:57:29 2006 +0000
Message-ID: <36kf5ovh19w.vyr@IgnoreMeModArnis.Com>
User-Agent: Nntp_post 1.1
Lines: 77
Organization: newsgroup-binaries.com
X-Complaints-To: abuse@newsgroup-binaries.com
Xref: wnmaster11 comp.lang.perl.misc:586085
X-Received-Date: Sat, 05 Aug 2006 22:57:29 GMT (bgtnsc05-
news.ops.worldnet.att.net)
I figured a configuation issue somewhere. Anyway, moving on ...
>> FWIW, whenever anyone claims a Perl core bug, the first thing I
>> suspect is a hardware issue (probably a loose nut behind the
>> keyboard).
;-) Just to be make it really, really clear, it is not that there are no
bugs left in perl or the core distribution. Some people just do not try
hard enough on their own code before claiming to have found such a bug.
#11907 Looking for a compiler bug is the strategy of LAST resort. LAST
resort.
http://groups.google.com/group/comp.lang.perl.misc/msg/b2f911d6d9c5cef2
> There is a recent discussion on the ietf-usefor mailing list about
> X-No-Archive and such, which also has pointers on how to remove a
> posting from the google archives.
> http://article.gmane.org/gmane.ietf.usenet.format/30965/
Thanks for the link.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Sun, 06 Aug 2006 02:11:50 GMT
From: "Mumia W." <mumia.w.18.spam+nospam.usenet@earthlink.net>
Subject: Re: A possable bug in the "warnings" pragma.
Message-Id: <GdcBg.70$Sn3.8@newsread3.news.pas.earthlink.net>
On 08/05/2006 06:20 PM, A. Sinan Unur wrote:
> Dale Wiles <WilesIgnoreMe@IgnoreMeModArnis.Com> wrote in
> news:36kf5ovh19w.vyr@IgnoreMeModArnis.Com:
>
>> I think I found a bug in perl's "warnings" pragma, but I want to
>> make sure that it's an actual, reproducible bug before reporting it.
>
> Well, I have to tell you, there seems to be a problem with your posting
> software. XNews thinks this post was made on 30 Dec 1899.
> [...]
<OT>
Nope, Seamonkey says it was posted today, and the date header
says "Date: Sat Aug 5 22:57:29 2006 +0000"
------------------------------
Date: Sun, 06 Aug 2006 02:31:52 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: A possable bug in the "warnings" pragma.
Message-Id: <Xns9816E522F28BDasu1cornelledu@127.0.0.1>
"Mumia W." <mumia.w.18.spam+nospam.usenet@earthlink.net> wrote in news:GdcBg.70$Sn3.8@newsread3.news.pas.earthlink.net:
> On 08/05/2006 06:20 PM, A. Sinan Unur wrote:
>> Dale Wiles <WilesIgnoreMe@IgnoreMeModArnis.Com> wrote in
>> news:36kf5ovh19w.vyr@IgnoreMeModArnis.Com:
>>
>>> I think I found a bug in perl's "warnings" pragma, but I want to
>>> make sure that it's an actual, reproducible bug before reporting it.
>>
>> Well, I have to tell you, there seems to be a problem with your posting
>> software. XNews thinks this post was made on 30 Dec 1899.
>> [...]
>
> <OT>
> Nope, Seamonkey says it was posted today, and the date header
> says "Date: Sat Aug 5 22:57:29 2006 +0000"
Well, I see that information in the message headers too. However,
in the message listing window, I see the 1899 date.
By the way, Google Groups has not heard of this message yet:
http://groups.google.com/group/comp.lang.perl.misc/browse_frm/thread/01d1fa7f1c131045/45ce76dfdaff24dc#45ce76dfdaff24dc
http://groups.google.com/groups?selm=36kf5ovh19w.vyr%40IgnoreMeModArnis.Com
There is something odd going on.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: 6 Aug 2006 00:22:56 -0700
From: usenet@DavidFilmer.com
Subject: Re: A possable bug in the "warnings" pragma.
Message-Id: <1154848976.848276.86120@b28g2000cwb.googlegroups.com>
A. Sinan Unur wrote:
> By the way, Google Groups has not heard of this message yet:
That's not terribly uncommon. I even responded once to a GG post (in
GG) only to discover the original post went away and only my answer
remained. Very strange.
FWIW, whenever anyone claims a Perl core bug, the first thing I suspect
is a hardware issue (probably a loose nut behind the keyboard).
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: Sun, 6 Aug 2006 13:22:32 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: A possable bug in the "warnings" pragma.
Message-Id: <eb4qqr.1go.1@news.isolution.nl>
usenet@DavidFilmer.com schreef:
> A. Sinan Unur:
>> By the way, Google Groups has not heard of this message yet:
>
> That's not terribly uncommon. I even responded once to a GG post (in
> GG) only to discover the original post went away and only my answer
> remained. Very strange.
>
> FWIW, whenever anyone claims a Perl core bug, the first thing I
> suspect is a hardware issue (probably a loose nut behind the
> keyboard).
There is a recent discussion on the ietf-usefor mailing list about
X-No-Archive and such, which also has pointers on how to remove a
posting from the google archives.
http://article.gmane.org/gmane.ietf.usenet.format/30965/
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Sun, 6 Aug 2006 15:36:11 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: A possable bug in the "warnings" pragma.
Message-Id: <rbbhq3-kc7.ln1@osiris.mauzo.dyndns.org>
Quoth "A. Sinan Unur" <1usa@llenroc.ude.invalid>:
> Dale Wiles <WilesIgnoreMe@IgnoreMeModArnis.Com> wrote in
> news:36kf5ovh19w.vyr@IgnoreMeModArnis.Com:
>
> > I think I found a bug in perl's "warnings" pragma, but I want to
> > make sure that it's an actual, reproducible bug before reporting it.
>
> Well, I have to tell you, there seems to be a problem with your posting
> software. XNews thinks this post was made on 30 Dec 1899.
>
> I'll have to say up front, I am always skeptical of people whose first
> post starts with a claim that they have found a bug in Perl or core Perl
> modules.
>
> > This program, posted below, should die at "Killed me.". If I run
> > it I get:
> >
> > Saw me. at perl_warnings_fails line 36
> > Killed me. at perl_warnings_fails line 40
> > Revenge from beyond the grave! at perl_warnings_fails line 43
> > Out of the function. at perl_warnings_fails line 48
> >
> > If I uncomment "my $y = \@_;"
> >
> > Saw me. at perl_warnings_fails line 36
> > Killed me. at perl_warnings_fails line 40
> >
> > which is what's expected.
> >
> > There's nothing special about "my $y = \@_;". Pretty much anything
> > that touches "@_" masks the bug. "@_ = ();" works as does "print \@;"
> > That's why I think it's a bug in the Perl interpreter.
>
> ...
>
> > ---- perl_warnings ----
> >
> > #!/usr/bin/perl
> >
> > package Foo;
> > use strict;
> > use warnings::register;
> >
> > sub new($)
>
> Why are you using prototypes with methods?
>
> > {
> > my ($self) = @_;
> >
> > my $class = { };
> > bless $class, $self;
> >
> > return $class;
> > }
>
> You have the concepts mixed up here: New is passed the name of the
> package as its first argument. Then, you bless an instance into that
> package, returned the blessed reference which is the instance of the
> class. Hence, your new method, in this case, should be:
>
> sub new {
> my $class = shift;
> bless { }, $class;
> }
This is functionally equivalent to what the OP had. The only difference
is he had then names $self and $class the wrong way round.
> >
> > sub warnme($$)
>
> Ditto. No point in having prototypes with warnings.
>
> > {
> > my ($self, $text) = @_;
> >
> > warnings::warnif($self, $text);
>
> Now, your confusion with classes and instances carries over here. The
> category you have created is called 'Foo'. Do you think $self eq 'Foo'?
>
> Replace this with:
>
> warnings::warnif(Foo => $text);
warnings::warnif (claims to) accept an object and use that object's
class as the category.
In any case explicitly specifying te category is not a good idea. In a
method you should probably use ref $self; in a function just use 1-param
warnif that uses the current package.
Ben
--
You poor take courage, you rich take care:
The Earth was made a common treasury for everyone to share
All things in common, all people one. [benmorrow@tiscali.co.uk]
'We come in peace'---the order came to cut them down.
------------------------------
Date: 06 Aug 2006 02:01:28 GMT
From: xhoster@gmail.com
Subject: Re: Further to: Printing Hash Marks During File Download
Message-Id: <20060805221009.265$E7@newsreader.com>
HaroldWho <hlarons@yahoo.com> wrote:
> xhoster@gmail.com wrote on Aug 1 14:36:20 2006:
> >>HaroldWho <hlarons@yahoo.com> wrote:
> >> I am using the Net::POP3 module to retrieve mail from a dialup POP3
> >> server.
> ...
> >> I'd like to print hash marks during the d/l, much like an ftp d/l
> >> does, but I'm stumped for a way to do it, at using some kind of loop.
>
> >For CGI where the web browser (software, not human) might give up if it
> >doesn't hear anything after a while, I use something like this:
> >
> > {
> > local $SIG{ALRM}= sub { print ".\n"; alarm 10 };
> > alarm 10;
> > $t->long_operation();
> > alarm 0;
> > };
>
> I tried a version of this using Time::HiRes, floating times, and
> 'eval', thus:
>
> print "\nGet message $msgnum ($$msgnums{$msgnum} octets) ";
> eval {
> local $SIG{ALRM}= sub { print "# "; alarm 1.5 };
> alarm 1.5;
> my $msg = $pop->get($msgnum); # The 'long operation'
> alarm 0.0;
> print "\n";
> };
>
> Alas, the 'print #' operation seems to get buffered or something, and
> does not appear until the 'long op' has finished.
OK, so you need to unbuffer your output.
See $| in perlvar or autoflush in IO::Handle
However, I like the others' recommendations of using getfh and then
interspersing reads with your own printing. (Which will still require you
to unbuffer.) That way, the trickling arrival of marks means you are
actually making progress, rather than having hung nonproductively. I
didn't originally recommend that because it said the handle was tied, and
for all I knew it read the entire message up front and just emulated a file
handle on it; further investigation showed that that was not the case.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 5 Aug 2006 20:23:20 -0700
From: "PeterSShenkin" <shenkin@gmail.com>
Subject: Re: Hash in inherited object fields not properly accessible (5.8.6, RH 7.3)
Message-Id: <1154834600.719308.86310@n13g2000cwa.googlegroups.com>
Uri Guttman wrote:
> i would call that a bug in data::dumper and you should post that to p5p
> (use perlbug).
Done, with Subject: "Data::Dumper with Sortkeys performs incomplete
hash traversal".
> glad you figured it out.
Thanks for your help -- without which I don't think I would have.
-P.
------------------------------
Date: Sat, 05 Aug 2006 22:28:45 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Hash in inherited object fields not properly accessible (5.8.6, RH 7.3)
Message-Id: <x7mzaioaw2.fsf@mail.sysarch.com>
>>>>> "P" == PeterSShenkin <shenkin@gmail.com> writes:
P> Here is a complete example that illustrates the problem. In my test
P> program, I had called Data::Dumper::Dump just before the call that
P> generated the bad results. I had set Data::Dumper::Sortkeys to True.
P> Apparently, when a dump is done with this option, a hash traversal is
P> incompletely done within Data::Dumper, causing a subsequent call to
P> "each" to return 0 unless the iterator is manually reset between the
P> two calls.
P> In the following example, commenting out the offending line causes the
P> second "while" to print out the hash table. With the offending line
P> left in, the second "while" is silent.
P> while( my ($key,$val) = each %hash ) {
P> my $val = $hash{ $key };
P> print "while each: key,val= '$key', '$val'\n";
P> }
P> my $dumper = Data::Dumper->new( [\%hash] );
P> $dumper->Sortkeys( 1 ); #### offending line
P> my $dump_string = $dumper->Dump();
P> # the following block is silent
P> # unless the Sortkeys line is removed:
P> while( my ($key,$val) = each %hash ) {
P> my $val = $hash{ $key };
P> print "2nd while each: key,val= '$key', '$val'\n";
P> }
i would call that a bug in data::dumper and you should post that to p5p
(use perlbug). glad you figured it out.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Sun, 06 Aug 2006 08:43:19 GMT
From: "a" <a@mail.com>
Subject: install new package
Message-Id: <HYhBg.329013$IK3.51802@pd7tw1no>
Hi,
I would like to install and use the HTTP::Proxy and HTTP::Recorder package.
These packages involve the use of the other packages, like HTTP::Proxy needs
to install the HTTP::Damon.
How do I know how many packages I have to install before installing the one
that I need?
Is there any installation package able to download all the required
components?
Thanks
------------------------------
Date: 6 Aug 2006 11:28:02 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: install new package
Message-Id: <mcdbd297ikpvmu6nseov1s4d2tr6dnftg9@4ax.com>
On Sun, 06 Aug 2006 08:43:19 GMT, "a" <a@mail.com> wrote:
>Is there any installation package able to download all the required
>components?
Seeing your headers, chances are you are using AS Perl anyway. So just
fire up ppm, which should be easily available in the appropriate
folder under the start menu.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Sun, 6 Aug 2006 04:42:07 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sun Aug 6 2006
Message-Id: <J3K7q7.1y22@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Blog-BlogML-Reader-1
http://search.cpan.org/~mmathews/Blog-BlogML-Reader-1/
Read data from a BlogML formatted XML document.
----
Catalyst-Plugin-Authentication-Credential-JugemKey-0.03
http://search.cpan.org/~mizzy/Catalyst-Plugin-Authentication-Credential-JugemKey-0.03/
JugemKey authentication plugin for Catalyst
----
Data-Entropy-0.002
http://search.cpan.org/~zefram/Data-Entropy-0.002/
entropy (randomness) management
----
Data-ObjectDriver-0.03
http://search.cpan.org/~btrott/Data-ObjectDriver-0.03/
Simple, transparent data interface, with caching
----
Digest-SHA-5.43
http://search.cpan.org/~mshelor/Digest-SHA-5.43/
Perl extension for SHA-1/224/256/384/512
----
Digest-SHA-PurePerl-5.43
http://search.cpan.org/~mshelor/Digest-SHA-PurePerl-5.43/
Perl implementation of SHA-1/224/256/384/512
----
EekBoek-0.93
http://search.cpan.org/~jv/EekBoek-0.93/
Bookkeeping software for small and medium-size businesses
----
File-DirWalk-0.3
http://search.cpan.org/~jensl/File-DirWalk-0.3/
walk through a directory tree and run own code
----
Fuse-Simple-1.00
http://search.cpan.org/~noseynick/Fuse-Simple-1.00/
Simple way to write filesystems in Perl using FUSE
----
Genezzo-0.62
http://search.cpan.org/~jcohen/Genezzo-0.62/
an extensible database with SQL and DBI
----
Module-Starter-Plugin-TT2-0.121
http://search.cpan.org/~rjbs/Module-Starter-Plugin-TT2-0.121/
TT2 templates for Module::Starter::Template
----
PAR-0.949_01
http://search.cpan.org/~smueller/PAR-0.949_01/
Perl Archive Toolkit
----
PAR-Dist-0.15_01
http://search.cpan.org/~smueller/PAR-Dist-0.15_01/
Create and manipulate PAR distributions
----
PAR-Repository-0.01_01
http://search.cpan.org/~smueller/PAR-Repository-0.01_01/
Create and modify PAR repositories
----
PAR-Repository-0.01_02
http://search.cpan.org/~smueller/PAR-Repository-0.01_02/
Create and modify PAR repositories
----
PAR-Repository-Client-0.01_01
http://search.cpan.org/~smueller/PAR-Repository-Client-0.01_01/
Access PAR repositories
----
POSIX-RT-Semaphore-0.03
http://search.cpan.org/~mjp/POSIX-RT-Semaphore-0.03/
Perl interface to POSIX.1b semaphores
----
Time-TAI-Now-0.001
http://search.cpan.org/~zefram/Time-TAI-Now-0.001/
determine current time in TAI
----
Time-UTC-Now-0.004
http://search.cpan.org/~zefram/Time-UTC-Now-0.004/
determine current time in UTC correctly
----
Tk-StyledButton-0.10
http://search.cpan.org/~darnold/Tk-StyledButton-0.10/
Stylized Button widget
----
etk-perl-0.02
http://search.cpan.org/~leviathan/etk-perl-0.02/
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 5 Aug 2006 19:39:28 -0700
From: "tak" <yekasi@gmail.com>
Subject: Re: Perl hash of hash efficiency.
Message-Id: <1154831968.668939.150420@h48g2000cwc.googlegroups.com>
> > you are not in a
> > position to say i wasted your time trying to guess what my issue was.
>
> How many responses did take the diagnose the issue? How many responses
> would it have taken had you posted code in the first place? The difference
> corresponds to wasted time because you did not take time to post enough
> information.
Mister, look at the replies list. when you replied for the first time -
the issue was already resolved. That was what i was trying to explain
to you. And the code that I posted AFTER you replied - was the original
code that was sucking up memory. I posted it b/c I saw that there are
people who posted questions about the code. And that was already
revised after other people (Ben, Paul, XHOS...) posted replied to my
original question. So, eventho you replied - and diagnosed the issue,
and eventho it is correct... i already have the answer before you
posted... So, may be yes, i did not post code, and wasted Paul, Ben,
Xhos's time, but how did i wasted YOUR time??!?!?!?!?!?!? You posted 1
message - and i posted the code that sucks up memory for you to look -
i thought you might be interested to see what was wrong with it... and
then you said i am wasting you time... I could've just NOT posted any
code...
>
> > And as for you will not be seeing me - OK. If that makes you feel
> > better.
>
> Well, I had forgotten to add you to my killfile.
>
> Sinan
OK, then please remember to add me to your killfile then. If possible,
please do it right after you view this message. B/c it hurts...
------------------------------
Date: 06 Aug 2006 02:07:25 GMT
From: xhoster@gmail.com
Subject: Re: PERL Script to Load data into an oracle database
Message-Id: <20060805221606.026$Rg@newsreader.com>
bony_dev@yahoo.com wrote:
> Hello,
>
> i am trying to write a perl script to load data in oracle from windows.
> has anybody doe this before..please guide me on how to do this..what
> modules to use etc..thanks
DBI, DBD::Oracle. The very newest DBD::Oracle has a "real" execute_array,
which is very much faster than the older emulations.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 5 Aug 2006 20:05:13 -0700
From: bony_dev@yahoo.com
Subject: Re: PERL Script to Load data into an oracle database
Message-Id: <1154833513.211342.100930@m73g2000cwd.googlegroups.com>
I have been getting this oracle error and not even successfull trying
to connect to the oracle database---i have tried several combinations
to connect but no luck..
Unable to connect : ORA-12705: Cannot access NLS data files or invalid
environment specified (DBD ERROR: OCISessionBegin)
my code to conect is -
use DBI;
my $dbh = DBI->connect('dbi:Oracle:', q{scott/tiger@(DESCRIPTION =
(ADDRESS = (PROTOCOL = TCP)(HOST = host.com)(PORT = 1521))
(CONNECT_DATA =
(SERVER = DEDICATED)
(SID=SIDNAME)
(SERVICE_NAME = bony)
)
)},"" )|| die "Unable to connect : $DBI::errstr\n";
print "connection established\n";
Please help..
Thanks..Bony
xhoster@gmail.com wrote:
> bony_dev@yahoo.com wrote:
> > Hello,
> >
> > i am trying to write a perl script to load data in oracle from windows.
> > has anybody doe this before..please guide me on how to do this..what
> > modules to use etc..thanks
>
> DBI, DBD::Oracle. The very newest DBD::Oracle has a "real" execute_array,
> which is very much faster than the older emulations.
>
> Xho
>
> --
> -------------------- http://NewsReader.Com/ --------------------
> Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 06 Aug 2006 02:13:28 GMT
From: xhoster@gmail.com
Subject: Re: Proc::Daemon and Sockets
Message-Id: <20060805222209.483$Tw@newsreader.com>
"shrike@cyberspace.org" <shrike@cyberspace.org> wrote:
> Howdy,
>
> I've written a TCP proxy in Perl. It is non-forking and restarts a
> listening socket on the original port after a disconnection. From the
> CLI it runs correctly. listen->connect->disconnect->listen.
>
> But when I try to daemonize:
>
> &Proc::Daemon::Init ;
>
> The first socket will come up, but after closing it, I can not build a
> socket again on the same port.
>
> Anybody know how to fix this?
>
> It dies at "The socket will not listen.", but only when running
> daemonized.
Why not have Perl tell you *why* the socket will not listen? Print $! and
$@ upon failure.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Sun, 6 Aug 2006 03:34:36 +0000 (UTC)
From: dkcombs@panix.com (David Combs)
Subject: Re: skip path prune
Message-Id: <eb3o0c$8hv$1@reader2.panix.com>
In article <1153160511.344516.302160@75g2000cwc.googlegroups.com>,
Paul Lalli <mritty@gmail.com> wrote:
>weberw@adelphia.net wrote:
>> How do you use the prune function to skip a printing all of the
>> contents of a folder? It will not print folder 3 but does print the
>> contents of folder 3 which I do not want printed.
>
>You have posted the same message (at least) three different times to
>(at least) three different newsgroups. This is called "Multiposting"
>and is extremely rude. I have answered you in perl.beginners, and
>someone else answered you in comp.lang.perl.misc. If I had realized
>you multiposted in the first place, I probably wouldn't have replied at
>all.
>
>In the future, if you really *need* to post to many different groups,
>please *crosspost* as I am doing here. That is, send one message to
>multiple groups, rather than sending multiple copies of a single
>message to multiple groups.
>
>Paul Lalli
>
Man, whenever *I* try that (crossposting), do I get flamed!
Like it's some religious principle, "Thou shalt never crosspost".
I always thought crossposting was really useful, by
enabling members of several newsgroups to communicate
amongst each other on a given topic.
Especially when the groups are somewhat unrelated, perhaps
perl and php and lisp, or engineering and physics.
Broadens the scope of idea-sources.
David
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 9568
***************************************
