[19141] in Perl-Users-Digest
Perl-Users Digest, Issue: 1336 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jul 19 18:05:45 2001
Date: Thu, 19 Jul 2001 15:05:13 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <995580313-v10-i1336@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 19 Jul 2001 Volume: 10 Number: 1336
Today's topics:
Re: #### ADD 6 INCHES TO YOUR PENIS ##### 2830 <andras@mortgagestats.com>
Academic exercise - string/variable interpolation for a <djberge@uswest.com>
Re: Any perl module for XML Explorer tree display/edit? <goldbb2@earthlink.net>
Re: Best Perl book for a beginner (Abigail)
DBI database connections <blahblahblah@blah.com>
Re: Disabling IE toolbar <gnarinn@hotmail.com>
Re: Disabling IE toolbar (Abigail)
Re: don't laugh (Abigail)
Re: don't laugh (Abigail)
Re: don't laugh <holland@origo.ifa.au.dk>
Re: dumb question <godzilla@stomp.stomp.tokyo>
Re: dumb question <taghatta@midway.uchicago.edu>
Re: dumb question (Randal L. Schwartz)
Re: dumb question (Jay Tilton)
Re: dumb question <godzilla@stomp.stomp.tokyo>
Re: dumb question <armingaud@noos.fr>
Re: dumb question <skilchen@swissonline.ch>
Re: dumb question <godzilla@stomp.stomp.tokyo>
Re: extracting a range of lines from a text file <iltzu@sci.invalid>
FAQ: How can I compile my Perl program into byte code o <faq@denver.pm.org>
Re: Getting error on Oracle CLOB insert using PERL DBI <gnarinn@hotmail.com>
Re: How to run Perl on MS-DOS <iltzu@sci.invalid>
Re: ide for perl? (Mike Erickson)
Re: install ptkdb <djberge@uswest.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 19 Jul 2001 14:42:53 -0400
From: Andras Malatinszky <andras@mortgagestats.com>
Subject: Re: #### ADD 6 INCHES TO YOUR PENIS ##### 2830
Message-Id: <3B572A2D.1E74C8DB@mortgagestats.com>
Craig Berry wrote:
> Bernard El-Hagin (bernard.el-hagin@lido-tech.net) wrote:
> : Who needs a module?
> :
> : $your_cock += 6;
>
> Yeah, if yours is scalar...
>
> push @your_cock, ("inches") x 6;
Ouch! That sounds painful!
------------------------------
Date: Thu, 19 Jul 2001 16:14:59 -0500
From: "Mr. Sunray" <djberge@uswest.com>
Subject: Academic exercise - string/variable interpolation for arrays
Message-Id: <3B574DD3.C2BBE927@uswest.com>
Ok, so I finished a project here so now I'm futzing around for a few
minutes
trying to expand my Perl knowledge.
Before I continue (and before you start screaming) - yes, I know all
about
hashes, data structures, etc. I've read the docs and done a "perldoc -q
variables". This is primarily academic exercise.
I've seen how to interpolate strings into scalars, but haven't had any
luck
with arrays.
All I'm trying to do is push a name onto separate arrays based on the
the first
letter of that name. See the code below - it's pretty short.
Thanks in advance.
Regards,
Dan
#!/usr/local/bin/perl -w
use strict;
my(@a,@b,@c);
my @lastnames = qw(Alberts Brown Cringle);
foreach my $name(@lastnames){
no strict 'refs';
my $char = lc((split('',$name))[0]); # Get first letter of last name
and lowercase it
push(@$char, $name); # Doesn't fail, but where
did it go?
}
print join(',',@a),"\n"; # Nothing here
------------------------------
Date: Thu, 19 Jul 2001 15:18:56 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Any perl module for XML Explorer tree display/edit?
Message-Id: <3B5732A0.F488C552@earthlink.net>
M.L. wrote:
>
> I'm a newbie to XML currently reading up on various Perl modules to
> manipulate XML. My first goal is to find a module that can easily
> slurp an XML tree into a hash, and then back to an XML tree. With all
> the possibilities, I'm having trouble making up my mind.
There are perl modules for reading in and writing out XML. Go to CPAN
and do a search.
> After that task my greatest concern will be displaying and modifying
> the tree. Ideally, I would like to:
>
> 1. Convert my spreadsheet-like database to an expanding/collapsing XML
> folder tree resembling that of Windows Explorer
>
> 2. Tree display should collapse to 1 folder by default (stylesheet
> needed?)
>
> 3. User must be able to add new record(s) to top of folder tree just
> as in Explorer
>
> 4. User must be allowed to add new tag(s) to each record, but since
> each record is symmetrical, each new tag must be added to all
> records/folders in the tree.
>
> I'd like to know if there is a Perl or Javascript module that can do
> most of what I am asking for as far as displaying and modifying the
> XML tree (as well as slurping/restoring).
There are a number of gui perl modules, you can find them on CPAN.
Whether they have functionality for creating collapsable 'trees' I don't
know.
Once you do find an XML parser, and a GUI which makes trees, it will be
up to you to combine one to the other to create your application...
unless you are willing to pay money.
There is existing javascript stuff out there which handles collapsable
trees, but I don't know of any which also handles XML.
If you are willing to use java, I *know* that there are packages which
can graphically manupulate trees (it's part of Swing), and I'm fairly
sure that there are packages which can read and write XML. Once again,
it's either up to you to find those packages and combine the
functionality, or else you have to hire someone to do it.
--
The longer a man is wrong, the surer he is that he's right.
------------------------------
Date: 19 Jul 2001 20:36:23 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Best Perl book for a beginner
Message-Id: <slrn9leh7q.q6r.abigail@alexandra.xs4all.nl>
Nikolas Galanis (galanis@ceid.upatras.gr) wrote on MMDCCCLXXIX September
MCMXCIII in <URL:news:3B56FDE0.16B8E3F8@ceid.upatras.gr>:
$$ Which do you think is the best book for a beginner in Perl?
$$
Advanced Programming in the UNIX Environment, by Stevens.
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
------------------------------
Date: Thu, 19 Jul 2001 19:16:16 GMT
From: "Hmmm..." <blahblahblah@blah.com>
Subject: DBI database connections
Message-Id: <4mG57.2082$P04.133972@newsread2.prod.itd.earthlink.net>
I want to:
1. Gather Username/Password from user.
2. Establish a connection with a Sybase database.
3. Allow the user to display reports generated from the database.
4. Allow the user to navigate through the application (which may consist of
various perl scripts), and use the same database connection to generate
additional reports.
5. Have the database connection time out after a certain period of
inactivity.
Will DBI support items 4 and 5 above? In DBI, is there some way of storing
the db connection handle while navigating to other perl scripts, and picking
up the connection in the next script? In DBI, can an inactivity timeout be
set which will sever the db connection after a certain specified time of
user inactivity?
If DBI supports these things, can you point me in the right direction?
If DBI does not support these things, I welcome your ideas.
Thanks!
------------------------------
Date: Thu, 19 Jul 2001 19:22:34 +0000
From: gnari <gnarinn@hotmail.com>
Subject: Re: Disabling IE toolbar
Message-Id: <995570554.227832857985049.gnarinn@hotmail.com>
In article <3B568D00.E22380DE@europarl.eu.int>,
harry macdonald <hmacdonald@europarl.eu.int> wrote:
>Can anyone tell me how to disable/enable the IE4 toolbar from a Perl
>script.
>
>And where can I find info on controlling the browser from a Perl Script
>generally.
>
first, you figure out the correct HTML needed for what you want.
you may be able to get some information in the relevant newsgroups,
or just by doing experiments with static pages locally on your PC
then, you write a perl cgi script that outputs that HTML.
if yoy have problems with that part, ask us again, with specifics
(after consulting the FAQ, of course)
>Thanks
>Harry
>
you are welcome
gnari
------------------------------
Date: 19 Jul 2001 20:31:04 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Disabling IE toolbar
Message-Id: <slrn9legts.q6r.abigail@alexandra.xs4all.nl>
harry macdonald (hmacdonald@europarl.eu.int) wrote on MMDCCCLXXIX
September MCMXCIII in <URL:news:3B568D00.E22380DE@europarl.eu.int>:
~~ Can anyone tell me how to disable/enable the IE4 toolbar from a Perl
~~ script.
How would you do it from a Python program? Or a C program? Or Ada?
You do the same in Perl.
~~ And where can I find info on controlling the browser from a Perl Script
~~ generally.
In the manual of the browser.
Abigail
--
$_ = "\112\165\163\1648\141\156\157\164\150\145\1628\120\145"
. "\162\1548\110\141\143\153\145\162\0128\177" and &japh;
sub japh {print "@_" and return if pop; split /\d/ and &japh}
------------------------------
Date: 19 Jul 2001 20:28:51 GMT
From: abigail@foad.org (Abigail)
Subject: Re: don't laugh
Message-Id: <slrn9legpm.q6r.abigail@alexandra.xs4all.nl>
Jeff Zucker (jeff@vpservices.com) wrote on MMDCCCLXXIX September MCMXCIII
in <URL:news:3B5713F9.BF66124D@vpservices.com>:
-:
-: 3. no big deal but all-caps are good for filehandles but bad for
-: variables just on legibility
Is it? If you take a look in 'man perlvar' and look at the predefined
variables in Perl, you see that all caps variables massively outnumber
the all lowercase variables.
Abigail
--
use lib sub {($\) = split /\./ => pop; print $"};
eval "use Just" || eval "use another" || eval "use Perl" || eval "use Hacker";
------------------------------
Date: 19 Jul 2001 20:29:34 GMT
From: abigail@foad.org (Abigail)
Subject: Re: don't laugh
Message-Id: <slrn9legr2.q6r.abigail@alexandra.xs4all.nl>
Uri Guttman (uri@sysarch.com) wrote on MMDCCCLXXIX September MCMXCIII in
<URL:news:x7ofqgvmis.fsf@home.sysarch.com>:
}} >>>>> "AM" == Andras Malatinszky <andras@mortgagestats.com> writes:
}}
}} AM> Also, it's generally a good idea to check the return value of
}} AM> open, just in case you can't open the file for some reason (you
}} AM> have no permission, insufficient disk space, etc.). You can do it
}} AM> like this:
}}
}} AM> $OUT = '>c:\out.txt' or die "Can't open out.txt. Reason: $!";
}}
}} hmm, i don't see an open call in that line.
That's ok, because the die() is never called anyway.
Abigail
--
print v74.117.115.116.32.97.110.111.116.104.101.114.
v32.80.101.114.108.32.72.97.99.107.101.114.10;
------------------------------
Date: 19 Jul 2001 22:41:25 +0200
From: Steve Holland <holland@origo.ifa.au.dk>
Subject: Re: don't laugh
Message-Id: <w47ofqgbqiy.fsf@origo.ifa.au.dk>
abigail@foad.org (Abigail) writes:
> Jeff Zucker (jeff@vpservices.com) wrote:
> -: 3. no big deal but all-caps are good for filehandles but bad for
> -: variables just on legibility
> Is it? If you take a look in 'man perlvar' and look at the
> predefined variables in Perl, you see that all caps variables
> massively outnumber the all lowercase variables.
These are predefined variables. In general it is a good idea to
reserve all-caps for the predefined variables so that they stand out
from the user-defined and package-defined variables. However,
different folk have different tastes.
=====================================================================
To find out who and where I am look at:
http://www.nd.edu/~sholland/index.html
=====================================================================
------------------------------
Date: Thu, 19 Jul 2001 11:30:13 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: dumb question
Message-Id: <3B572735.F26E906@stomp.stomp.tokyo>
sycorax wrote:
> I'm just learning perl 5, and try as I might, I can't figure out one
> thing: is there a way to assign random values to a series of scalar
> variables such that they add to a specific sum? I'd be much obliged if
> anyone could help me out.
Do you have an infinite amount of time available in your life?
Each and every number, whole, fractional, zero, negative,
imaginative or otherwise, can be represented by an infinite
amount of additive number sets.
Have you considered establishing clear and concise parameters
for your objective? Doing this would be logical.
Godzilla!
--
print "0 + " x 10**1000000, " = 0";
------------------------------
Date: Thu, 19 Jul 2001 13:35:27 -0500
From: sycorax <taghatta@midway.uchicago.edu>
Subject: Re: dumb question
Message-Id: <190720011335278444%taghatta@midway.uchicago.edu>
Thanks for the responses. Actually, I'm afraid I didn't really ask the
question I needed answered: what I really need to do is select a
series of random keys from a hash whose corresponding values add to a
particular sum.
In article <190720010904139653%taghatta@midway.uchicago.edu>, sycorax
<taghatta@midway.uchicago.edu> wrote:
> I'm just learning perl 5, and try as I might, I can't figure out one
> thing: is there a way to assign random values to a series of scalar
> variables such that they add to a specific sum? I'd be much obliged if
> anyone could help me out.
------------------------------
Date: 19 Jul 2001 11:42:36 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: dumb question
Message-Id: <m1bsmgyd43.fsf@halfdome.holdit.com>
>>>>> "sycorax" == sycorax <taghatta@midway.uchicago.edu> writes:
sycorax> Thanks for the responses. Actually, I'm afraid I didn't
sycorax> really ask the question I needed answered: what I really need
sycorax> to do is select a series of random keys from a hash whose
sycorax> corresponding values add to a particular sum.
Ahh! The knapsack problem. That's provably unsolvable, except by
brute force (trying all the possibilities to see if the condition is
true or not).
Next question?
:-)
--
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: Thu, 19 Jul 2001 18:55:37 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: dumb question
Message-Id: <3b572426.71022277@news.erols.com>
On 19 Jul 2001 16:19:45 GMT, anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
wrote:
>According to Jay Tilton <tiltonj@erols.com>:
>> On Thu, 19 Jul 2001 10:56:24 -0400, David Coppit <newspost@coppit.org>
>> wrote:
>> >Won't that bias the elements of @ary to be high? In other words, it's
>> >pretty unlikely that you'll get elements with the value of 1.
>>
>> As long as each value in the list is scaled by an identical factor, the
>> probability that some values will appear more or less frequently than others
>> does not change. The bias is the same as for the rand() function.
>
>That doesn't follow. In effect, you are creating (equally distributed)
>random numbers in a range that is itself random [ 0, 1/$ary_sum ).
>The distribution of $ary_sum is, uh... a binomial distribution, I think.
>It would also change if one were to use rand( $some_number) instead
>of the implicit rand( 1). I'd say the final distribution needs some
>more analysis.
The analogy with rand($some_number) and even distribution within a set are
the points I should have emphasized. Within a single set I don't see a
problem, but the combined results from two or more sets will most definitely
show bias.
#!perl -w
use strict;
my %nums_count;
for (1..100000) {
$nums_count{int $_}++ foreach rand_sum(10, 100);
}
printf "%2d: %s\n", $_, '*'x($nums_count{$_} / 2000)
foreach (sort { $a <=> $b } keys %nums_count );
sub rand_sum {
my ($num_elements, $desired_sum) = @_;
my (@ary, $ary_sum);
for (1..$num_elements) {
push @ary, rand;
$ary_sum += $ary[-1];
}
map { $_ * $desired_sum / $ary_sum } @ary;
}
Sample output:
0: **********************
1: ***********************
2: ***********************
3: ************************
4: ************************
5: *************************
6: *************************
7: **************************
8: **************************
9: ***************************
10: ****************************
11: ****************************
12: *****************************
13: *****************************
14: ****************************
15: *************************
16: *********************
17: *****************
18: ************
19: *********
20: ******
21: ****
22: **
23: *
24: *
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
43:
45:
46:
47:
------------------------------
Date: Thu, 19 Jul 2001 12:05:39 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: dumb question
Message-Id: <3B572F83.788B8592@stomp.stomp.tokyo>
sycorax wrote in response to his own article:
(no attributes nor references provided by sycorax)
> Thanks for the responses. Actually, I'm afraid I didn't really ask the
> question I needed answered: what I really need to do is select a
> series of random keys from a hash whose corresponding values add to a
> particular sum.
$number{2} = "two";
$number{4} = "four";
$number{6} = "six";
As a simple exercise for you, an exercise you can stash
away in your knapsnack for later play, write me code which
will use any combination of key values in hash %number
which will additively create an odd number, any odd number.
Those are my parameters. What are your parameters?
This is a bonus question to tickle your thought processes,
Is the corresponding value of key $number{2} equal to
2 or two? Mark an appropriate checkbox, with a check.
Yes [ ]
No [ ]
Maybe [ ]
Godzilla!
------------------------------
Date: Thu, 19 Jul 2001 21:20:38 +0200
From: FDA <armingaud@noos.fr>
To: sycorax <taghatta@midway.uchicago.edu>
Subject: Re: dumb question
Message-Id: <3B573304.39A2D41A@noos.fr>
> is there a way to assign random values to a series of scalar
> variables such that they add to a specific sum?
If you constrain them to have a specific sum, they are already not that
much random ;o) But you can draw a series of random values in an array and
scale them once the aray is filles according to their sum.
------------------------------
Date: Thu, 19 Jul 2001 23:06:38 +0200
From: "Samuel Kilchenmann" <skilchen@swissonline.ch>
Subject: Re: dumb question
Message-Id: <9j7i7i$m435k$1@ID-13368.news.dfncis.de>
"sycorax" <taghatta@midway.uchicago.edu> wrote in
news:190720010904139653%taghatta@midway.uchicago.edu...
> I'm just learning perl 5, and try as I might, I can't figure out one
> thing: is there a way to assign random values to a series of scalar
> variables such that they add to a specific sum? I'd be much obliged if
> anyone could help me out.
do you mean something like:
sub rand_k_partition {
my ($final_sum, $num_terms) = @_;
my @result = ();
for (my $i = $num_terms - 1; $i > 0; $i--) {
my $val = 1 + int(rand($final_sum - $i));
push(@result, $val);
$final_sum -= $val;
}
push(@result, $final_sum);
return @result;
}
$final_sum = $ARGV[0];
$num_terms = $ARGV[1];
@result = rand_k_partition($final_sum, $num_terms);
print "$final_sum, $num_terms: @result\n";
------------------------------
Date: Thu, 19 Jul 2001 15:04:34 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: dumb question
Message-Id: <3B575972.AB783CD5@stomp.stomp.tokyo>
Samuel Kilchenmann wrote:
> sycorax wrote:
> > I'm just learning perl 5, and try as I might, I can't figure out one
> > thing: is there a way to assign random values to a series of scalar
> > variables such that they add to a specific sum? I'd be much obliged if
> > anyone could help me out.
> do you mean something like:
(snipped flawed code)
Another practicing internet mind reader! It is so
amazing how you internet psychics can provide almost
correct answers for even the most incoherent question!
Sometimes I suspect you internet mind readers are
frauds posing incoherent questions for answers you
have already worked out, simply to masturbate your
ego, singular, using a host of fake names.
However, what qualifications do I hold to question
something so blatantly obvious?
*laughs*
Godzilla!
------------------------------
Date: 19 Jul 2001 20:18:44 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: extracting a range of lines from a text file
Message-Id: <995573528.17013@itz.pp.sci.fi>
In article <m3snfvqjqc.fsf@dhcp9-161.support.tivoli.com>, Ren Maddox wrote:
>
>True, two compares is better than three. For that matter, one is
>better than two for this first part of the file:
>
> perl -ne "next if $. < 300_000; print; last if $. == 400_000"
Still redundant comparisons. How about:
perl -e "<> for 1 .. 299_999; print scalar <> for 1 .. 100_001"
(Assuming you really do mean "<" in your version.)
--
Ilmari Karonen -- http://www.sci.fi/~iltzu/
"Get real! This is a discussion group, not a helpdesk. You post something,
we discuss its implications. If the discussion happens to answer a question
you've asked, that's incidental." -- nobull in comp.lang.perl.misc
------------------------------
Date: Thu, 19 Jul 2001 18:17:17 GMT
From: PerlFAQ Server <faq@denver.pm.org>
Subject: FAQ: How can I compile my Perl program into byte code or C?
Message-Id: <NuF57.27$EW5.135469056@news.frii.net>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with every Standard Distribution of
Perl.
+
How can I compile my Perl program into byte code or C?
Malcolm Beattie has written a multifunction backend compiler, available
from CPAN, that can do both these things. It is included in the
perl5.005 release, but is still considered experimental. This means it's
fun to play with if you're a programmer but not really for people
looking for turn-key solutions.
Merely compiling into C does not in and of itself guarantee that your
code will run very much faster. That's because except for lucky cases
where a lot of native type inferencing is possible, the normal Perl
run-time system is still present and so your program will take just as
long to run and be just as big. Most programs save little more than
compilation time, leaving execution no more than 10-30% faster. A few
rare programs actually benefit significantly (even running several times
faster), but this takes some tweaking of your code.
You'll probably be astonished to learn that the current version of the
compiler generates a compiled form of your script whose executable is
just as big as the original perl executable, and then some. That's
because as currently written, all programs are prepared for a full
eval() statement. You can tremendously reduce this cost by building a
shared *libperl.so* library and linking against that. See the INSTALL
podfile in the Perl source distribution for details. If you link your
main perl binary with this, it will make it minuscule. For example, on
one author's system, /usr/bin/perl is only 11k in size!
In general, the compiler will do nothing to make a Perl program smaller,
faster, more portable, or more secure. In fact, it can make your
situation worse. The executable will be bigger, your VM system may take
longer to load the whole thing, the binary is fragile and hard to fix,
and compilation never stopped software piracy in the form of crackers,
viruses, or bootleggers. The real advantage of the compiler is merely
packaging, and once you see the size of what it makes (well, unless you
use a shared *libperl.so*), you'll probably want a complete Perl install
anyway.
-
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Answers to questions about LOTS of stuff, mostly not related to
Perl, can be found by pointing your news client to
news:news.answers
or to the many thousands of other useful Usenet news groups.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-1999 Tom Christiansen and Nathan
Torkington. All rights reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
03.22
--
This space intentionally left blank
------------------------------
Date: Thu, 19 Jul 2001 18:49:52 +0000
From: gnari <gnarinn@hotmail.com>
Subject: Re: Getting error on Oracle CLOB insert using PERL DBI
Message-Id: <995568592.957820504903793.gnarinn@hotmail.com>
In article <3B55DE5F.BF68DAE7@yahoo.com>, Greg <ethernaut43@yahoo.com> wrote:
>Hi;
>I've searched through the newsgroups but haven't found an answer:
>
>I am trying to insert a large amount of text (greater than 4K) into a
>CLOB field in my Oracle 8.1.5 table, using the PERL DBI. I get the
>following error:
>
>ORA-01461: can bind a LONG value only for insert into a LONG column (DBD
>
>ERROR: OCIStmtExecute)
>
>Does anyone know if this is a bug in either Oracle or the PERL DBI
>modules?
>
>Thanks a million for any suggestions
>
I suggest you post a minimal but complete example that exhibits your
problem.
show us at least the prepare, the bind_param and the execute statements.
gnari
------------------------------
Date: 19 Jul 2001 20:08:49 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: How to run Perl on MS-DOS
Message-Id: <995572975.16775@itz.pp.sci.fi>
In article <slrn9l9imp.va1.tim@vegeta.ath.cx>, Tim Hammerquist wrote:
>
>I have to buy a US$100 bash environment to be able to consistently use
>*nix commands in DOS/Win32.
$100?
???
Who the heck's pulling that one off? I definitely didn't have to pay
anything to get bash and the rest of the toolbox for the Win32 box --
I got it as a bonus when I downloaded the free Cygwin compiler suite.
--
Ilmari Karonen -- http://www.sci.fi/~iltzu/
"Get real! This is a discussion group, not a helpdesk. You post something,
we discuss its implications. If the discussion happens to answer a question
you've asked, that's incidental." -- nobull in comp.lang.perl.misc
------------------------------
Date: 19 Jul 2001 21:03:44 GMT
From: uthinkxxuthink@yahoo.com (Mike Erickson)
Subject: Re: ide for perl?
Message-Id: <slrn9lej6k.2385.uthinkxxuthink@srv01.datacenterops.com>
* Jeff D. Hamann <jeff_hamann@hamandonald.com> wrote:
> Okay, I know this is going to sound soooo non-unix, but is there an ide that
> supports perl out there. VB is killing me but I need to be able to debug
> script code before running huge databas processing tasks that call shared
> libs... i guess the ultimate would be an ide that supports c,php, and perl,
> but that's the breaks i guess....
There are a bunch of lightweight IDE-style text editors that may fit
your needs. Check out Ultraedit[1], NoteTab[2], and PFE[3], just to name
a few. For more, hit up tucows.com or winfiles.com.
hth,
me
[1]: http://www.ultraedit.com
[2]: http://www.notetab.com
[3]: http://www.lancs.ac.uk/people/cpaap/pfe/
--
$email =~ s/xx//;
------------------------------
Date: Thu, 19 Jul 2001 13:49:38 -0500
From: "Mr. Sunray" <djberge@uswest.com>
Subject: Re: install ptkdb
Message-Id: <3B572BC2.3ECE18DD@uswest.com>
Joe Chung wrote:
> When I install ptkdb, I got an error message during make:
> =========================================================
> cp ptkdb.pm blib/lib/Devel/ptkdb.pm
> Manifying blib/man3/Devel::ptkdb.3
> /usr/local/bin/pod2man: Invalid man page - no documentation in
> ptkdb.pm
> Couldn't install blib/man3/Devel::ptkdb.3
> =========================================================
> - what's man3? is it some kind of man page ( documentation )?
> - why it said "/usr/local/bin/pod2man: Invalid man page"?
> - Is "Couldn't install blib/man3/Devel::ptkdb.3" means can't install
> man page for ptkdb?
>
> ==========================================================
Are you not installing as root?
man3 (and man1) are directories for man page documentation. I don't
know the
reasoning behind this organization, though it's probably historical.
Look at the INSTALLMAN1DIR and INSTALLMAN3DIR options and set
them manually if necessary. See if that helps.
Also, the debugger may still work without the man pages installed. Try
debugging a script with it.
perl -d:ptkdb yourscript.pl
Regards,
Dan
------------------------------
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.
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 1336
***************************************
