[25527] in Perl-Users-Digest
Perl-Users Digest, Issue: 7771 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Feb 11 14:05:43 2005
Date: Fri, 11 Feb 2005 11:05:16 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 11 Feb 2005 Volume: 10 Number: 7771
Today's topics:
AdminMisc <alexj@floor.ch>
Re: AdminMisc <do-not-use@invalid.net>
Re: AdminMisc <alexj@floor.ch>
Re: AdminMisc <1usa@llenroc.ude.invalid>
Advice on converting hashed packages to pseudo-hashed p <giblin@panix.com>
Re: Advice on converting hashed packages to pseudo-hash <do-not-use@invalid.net>
Re: Advice on converting hashed packages to pseudo-hash <giblin@panix.com>
Re: Error & quot <metri.jain@gmail.com>
Re: Error & quot <tadmc@augustmail.com>
Re: Error & quot <metri.jain@gmail.com>
Re: Image::Magick trouble <phaylon@dunkelheit.at>
Re: Image::Magick trouble <bart.lateur@pandora.be>
Re: Image::Magick trouble <alexj@floor.ch>
Is perl 5.8 available for AIX 4.3 (Gancy)
Re: Is perl 5.8 available for AIX 4.3 <lambik@kieffer.nl>
Re: Is there a more idiomatic way to do this? <matternc@comcast.net>
Re: Is there a more idiomatic way to do this? <nobull@mail.com>
Re: new to group, need a temperature perl script. <scupper79@msn.com>
Re: new to group, need a temperature perl script. <lambik@kieffer.nl>
Re: new to group, need a temperature perl script. <do-not-use@invalid.net>
Re: new to group, need a temperature perl script. <tadmc@augustmail.com>
Re: new to group, need a temperature perl script. <spamtrap@dot-app.org>
Re: new to group, need a temperature perl script. <jurgenex@hotmail.com>
Partnership Opportunity eliediamonds@gmail.com
Re: Perl on freebsd: max memory limit? <postmaster@castleamber.com>
Piecewise fetching using perl dbi <landenburger@msn.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 11 Feb 2005 12:49:34 +0100
From: Alexandre Jaquet <alexj@floor.ch>
Subject: AdminMisc
Message-Id: <cui64d$oih$1@news.hispeed.ch>
Hi again, I got another problem I've try to install Win32::AdminMisc
version 5008 founded here
ftp://www.roth.net/pub/ntperl/adminmisc/20030714/bin/AdminMisc_5008.Zip
I follow install instruction described here :
http://www.winnetmag.com/Article/ArticleID/3727/3727.html
But when I run test.pl perl interpreter crash ...
I run the following perl version :
This is perl, v5.8.6 built for MSWin32-x86-multi-thread
(with 3 registered patches, see perl -V for more detail)
Any idea ?
Thx in advance
------------------------------
Date: 11 Feb 2005 12:51:04 +0100
From: Arndt Jonasson <do-not-use@invalid.net>
Subject: Re: AdminMisc
Message-Id: <yzd7jlf2u3b.fsf@invalid.net>
Alexandre Jaquet <alexj@floor.ch> writes:
> Hi again, I got another problem I've try to install Win32::AdminMisc
> version 5008 founded here
> ftp://www.roth.net/pub/ntperl/adminmisc/20030714/bin/AdminMisc_5008.Zip
>
> I follow install instruction described here :
>
> http://www.winnetmag.com/Article/ArticleID/3727/3727.html
>
> But when I run test.pl perl interpreter crash ...
>
> I run the following perl version :
>
> This is perl, v5.8.6 built for MSWin32-x86-multi-thread
> (with 3 registered patches, see perl -V for more detail)
Please be more specific than "perl interpreter crash".
------------------------------
Date: Fri, 11 Feb 2005 13:00:41 +0100
From: Alexandre Jaquet <alexj@floor.ch>
Subject: Re: AdminMisc
Message-Id: <cui6p8$q7u$1@news.hispeed.ch>
Arndt Jonasson a écrit :
> Alexandre Jaquet <alexj@floor.ch> writes:
>
>>Hi again, I got another problem I've try to install Win32::AdminMisc
>>version 5008 founded here
>>ftp://www.roth.net/pub/ntperl/adminmisc/20030714/bin/AdminMisc_5008.Zip
>>
>>I follow install instruction described here :
>>
>>http://www.winnetmag.com/Article/ArticleID/3727/3727.html
>>
>>But when I run test.pl perl interpreter crash ...
>>
>>I run the following perl version :
>>
>>This is perl, v5.8.6 built for MSWin32-x86-multi-thread
>>(with 3 registered patches, see perl -V for more detail)
>
>
> Please be more specific than "perl interpreter crash".
perl command line interpreter and the complete message is :
AppName: perl.exe AppVer: 5.8.6.811 ModName: adminmisc.dll
ModVer: 0.0.0.0 Offset: 00002568
thx
------------------------------
Date: Fri, 11 Feb 2005 12:35:09 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: AdminMisc
Message-Id: <Xns95FA4D2AE5285asu1cornelledu@127.0.0.1>
Alexandre Jaquet <alexj@floor.ch> wrote in
news:cui64d$oih$1@news.hispeed.ch:
> Hi again, I got another problem I've try to install Win32::AdminMisc
> version 5008 founded here
> ftp://www.roth.net/pub/ntperl/adminmisc/20030714/bin/AdminMisc_
5008.Zip
>
> I follow install instruction described here :
>
> http://www.winnetmag.com/Article/ArticleID/3727/3727.html
>
> But when I run test.pl perl interpreter crash ...
>
> I run the following perl version :
>
> This is perl, v5.8.6 built for MSWin32-x86-multi-thread
> (with 3 registered patches, see perl -V for more detail)
Yeah, you might consider actually readin' stuff, you know:
From http://www.winnetmag.com/Article/ArticleID/3727/3727.html
<blockquote>
The following steps guide you through the download and install process
for the AdminMisc extension appropriate for ActiveState’s Perl for
Win32, version 5.003_07, build 316. Here are the nine steps:
</blockquote>
So, the version of the module you downloaded is compiled for a much
older version of the Perl distribution you are using.
What might be the solution you might ask. Well, it is shocking, but you
can get the version of the package that matches the version of the Perl
distribution you are using.
Where can you find that? Oh my, from the same site where you dowloaded
the other version:
http://www.roth.net/perl/adminmisc/
If you still have problems after downloading the most up-to-date version
of the module, then please do post here with a better description of the
problem.
Sinan
------------------------------
Date: 11 Feb 2005 06:57:53 -0800
From: "Ian" <giblin@panix.com>
Subject: Advice on converting hashed packages to pseudo-hashed packages
Message-Id: <1108133873.880729.131680@g14g2000cwa.googlegroups.com>
Does a document exist with the outline below? If so please point me to
it... If not, any help would be appreciated:
"So, you wrote some object-oriented perl packages and you used hashes
for all your objects because your boss wanted results and you stopped
reading at page 125 of Conway. Now you found that your code runs
horribly slowly and you should have used pseudo-hashes and the 'fields'
pragma, but it looks like there's a lot to learn, and you're nervous
about trying to convert this code. Here's what to do, and the things
you need to watch out for:"
Thanks in advance,
Ian.
------------------------------
Date: 11 Feb 2005 16:14:45 +0100
From: Arndt Jonasson <do-not-use@invalid.net>
Subject: Re: Advice on converting hashed packages to pseudo-hashed packages
Message-Id: <yzdy8dv163e.fsf@invalid.net>
"Ian" <giblin@panix.com> writes:
> Does a document exist with the outline below? If so please point me to
> it... If not, any help would be appreciated:
>
> "So, you wrote some object-oriented perl packages and you used hashes
> for all your objects because your boss wanted results and you stopped
> reading at page 125 of Conway. Now you found that your code runs
> horribly slowly and you should have used pseudo-hashes and the 'fields'
> pragma, but it looks like there's a lot to learn, and you're nervous
> about trying to convert this code. Here's what to do, and the things
> you need to watch out for:"
I don't know, but the text below (from perldiag) would rather make me
nervous if I had used pseudo-hashes (thanks for giving me an
opportunity to learn what they are):
=item Pseudo-hashes are deprecated
(D deprecated) Pseudo-hashes were deprecated in Perl 5.8.0 and they
will be removed in Perl 5.10.0, see L<perl58delta> for more details.
You can continue to use the C<fields> pragma.
------------------------------
Date: 11 Feb 2005 08:27:59 -0800
From: "Ian" <giblin@panix.com>
Subject: Re: Advice on converting hashed packages to pseudo-hashed packages
Message-Id: <1108139279.533508.116830@o13g2000cwo.googlegroups.com>
<gulp> ... Thanks for the warning! It is a bit worrying that I was
about to "upgrade" to a deprecated feature. I hope that I can
future-proof the code under 5.6.1 as well as speed it up. I'm using
perl 5.6.1 because it's the only one supported at my site. I hope there
will be a new edition of Conway's "Object Oriented Perl" if there isn't
one already. - Regards, Ian.
------------------------------
Date: 11 Feb 2005 08:14:00 -0800
From: "geek" <metri.jain@gmail.com>
Subject: Re: Error & quot
Message-Id: <1108138440.001584.153320@f14g2000cwb.googlegroups.com>
Here is the code that is giving the error
I have marked line 191.
The error I get is
<PRE>syntax error at sem_reg_test.cgi line 191, near "open
(COURSEINFO, &qu
ot;$coursefile"
Global symbol "$item" requires explicit package name at
sem_reg_test.c
gi line 230.
Global symbol "$item" requires explicit package name at
sem_reg_test.c
gi line 230.
################################################################################
# Reads in course information from file
sub read_course_info {
my @allcourse = ("basic_mtx.data","packet_mtx.data") ;
# Checking the directory for available courses
if($set eq "all")
{
foreach my $mycourse(@allcourse){
open (AllINFO, "data/$mycourse")
|| die "$0: could not read course information:$!;
while(<ALLINFO>){
# removing trailing newline
chomp;
# Save comments and blank lines
if(/^#/ || /^\s*$/){
push(@courses_new, $_);
next;
}
#accumulate list of courses
push(@courses,$_);
}
close(ALLINFO);
}
else {
Line 191 :open (COURSEINFO, "$coursefile")
|| die "$0:could not read course information ($coursefile):
$!\n";
# flock(COURSEINFO, 1);
while (<COURSEINFO>) {
# remove trailing newline
chomp;
# save comments and blank lines
if (/^#/ || /^\s*$/) {
push(@courses_new, $_);
next;
}
# accumulate list of courses
push(@courses, $_);
}
close(COURSEINFO);
}
}
################################################
Any help will be appreciated.
Thanks,
MJ
------------------------------
Date: Fri, 11 Feb 2005 10:53:07 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Error & quot
Message-Id: <slrnd0ponj.5m2.tadmc@magna.augustmail.com>
geek <metri.jain@gmail.com> wrote:
> The error I get is
><PRE>syntax error at sem_reg_test.cgi line 191, near "open
> (COURSEINFO, &qu
> ot;$coursefile"
> open (AllINFO, "data/$mycourse")
> || die "$0: could not read course information:$!;
^
^
Where is the closing quote?
> Line 191 :open (COURSEINFO, "$coursefile")
perldoc -q vars
What's wrong with always quoting "$vars"?
so that should be
open (COURSEINFO, $coursefile)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 11 Feb 2005 09:29:29 -0800
From: "geek" <metri.jain@gmail.com>
Subject: Re: Error & quot
Message-Id: <1108142969.175562.117940@o13g2000cwo.googlegroups.com>
Thanks so much for help.
------------------------------
Date: Fri, 11 Feb 2005 13:17:44 +0100
From: phaylon <phaylon@dunkelheit.at>
Subject: Re: Image::Magick trouble
Message-Id: <pan.2005.02.11.12.17.44.319754@dunkelheit.at>
Alexandre Jaquet wrote:
> Hi I just install ImageMagick for windows and I got a strange problem I
> can execute demo.pl but when I try to edit it and execute with Komodo I
> got compilation error.
Make a little test script, run it from your commandline. So you can get an
idea if it's on your environment or Komodo.
g,phay
--
http://www.dunkelheit.at/
bellum omnium pater.
------------------------------
Date: Fri, 11 Feb 2005 13:07:02 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Image::Magick trouble
Message-Id: <rabp01pb53a017pj8g6bdg4sc3g8ojtkqa@4ax.com>
Alexandre Jaquet wrote:
>Hi I just install ImageMagick for windows and I got a strange problem
>I can execute demo.pl but when I try to edit it and execute with Komodo
>I got compilation error.
>
>Image::Magick is not recognized.
Have you rebooted?
Don't laugh, I know this is the stock answer from clueless helpdesks,
but there is some truth in it.
And that truth is that something may have changed in your environment,
be it additional environment variables or a change in PATH, which may
not have percolated through your entire system. Rebooting makes sure
that it does.
It might be enough to just restart Komodo, for it to pick up a change in
the environment. Once started, such a program tends to live on an
island.
--
Bart.
------------------------------
Date: Fri, 11 Feb 2005 15:09:53 +0100
From: Alexandre Jaquet <alexj@floor.ch>
Subject: Re: Image::Magick trouble
Message-Id: <cuiebg$det$1@news.hispeed.ch>
Bart Lateur a écrit :
> Alexandre Jaquet wrote:
>
>
>>Hi I just install ImageMagick for windows and I got a strange problem
>>I can execute demo.pl but when I try to edit it and execute with Komodo
>>I got compilation error.
>>
>>Image::Magick is not recognized.
>
>
> Have you rebooted?
>
> Don't laugh, I know this is the stock answer from clueless helpdesks,
> but there is some truth in it.
>
> And that truth is that something may have changed in your environment,
> be it additional environment variables or a change in PATH, which may
> not have percolated through your entire system. Rebooting makes sure
> that it does.
>
> It might be enough to just restart Komodo, for it to pick up a change in
> the environment. Once started, such a program tends to live on an
> island.
>
The problem was komodo needed to restart
thx
------------------------------
Date: 11 Feb 2005 03:31:06 -0800
From: ganesh_tiwari@hotmail.com (Gancy)
Subject: Is perl 5.8 available for AIX 4.3
Message-Id: <af7fa806.0502110331.51bc864a@posting.google.com>
Hi all
I searched for quite a while over the net for perl version 5.8 or
higher for AIX 4.3. Is it available? can somebody give me the links?
Thanks & Regards
Ganesh Tiwari
------------------------------
Date: Fri, 11 Feb 2005 13:33:03 +0100
From: Lambik <lambik@kieffer.nl>
Subject: Re: Is perl 5.8 available for AIX 4.3
Message-Id: <373mqsF58f121U1@individual.net>
Gancy wrote:
> Is it available? can somebody give me the links?
http://perl.active-venture.com/pod/perlaix.html
------------------------------
Date: Fri, 11 Feb 2005 07:17:35 -0500
From: Chris Mattern <matternc@comcast.net>
Subject: Re: Is there a more idiomatic way to do this?
Message-Id: <rIWdnecTw-z8P5HfRVn-gg@comcast.com>
Alan Mead wrote:
> I recently created a script that did a lot of this sort of thing:
>
> my $dataref = get_data($filename1) if ($condition==1);
> my $dataref = get_data($filename2) if ($condition==2);
>
> foreach my $datum (keys %$dataref) { ...
>
> Which didn't raise an exception
Because you didn't use warnings. Don't do that.
> but $dataref was always nil. I had to
> write:
>
> my $dataref;
> $dataref = get_data($filename1) if ($condition==1);
> $dataref = get_data($filename2) if ($condition==2);
>
> I'm not sure I understand precisely why the first one didn't work
It didn't work because each time you used "my" you created
*another* lexical variable named "$dataref" which obscured
access to the previous ones.
> but
> also failed to raise an error when run under the strict pragma. I
> mean, if it was a scoping thing then shouldn't the reference to
> %$dataref in the foreach loop trigger an exception?
It will trigger a warning each time you declare a new $dataref if
you use warnings, which you should always do.
>
> Anyway, the second method fixed the problem but it's a bit ungainly. Is
> there a more idiomatic way to do this?
Not really. Normally, you would use "my" on the first assignment and
not the others, but since you can't be sure it'll execute, you have
to do it the way you laid out.
>
> Thanks,
>
> -Alan
>
--
Christopher Mattern
"Which one you figure tracked us?"
"The ugly one, sir."
"...Could you be more specific?"
------------------------------
Date: Fri, 11 Feb 2005 13:14:28 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Is there a more idiomatic way to do this?
Message-Id: <cuiape$83b$1@sun3.bham.ac.uk>
Steve May wrote:
> Alan Mead wrote:
>
>> my $dataref;
>> $dataref = get_data($filename1) if ($condition==1);
>> $dataref = get_data($filename2) if ($condition==2);
>>
>> Is there a more idiomatic way to do this?
>
> my $dataref = '';
>
> $files{$condition} and $dataref = get_data( $files{$condition} );
It is most certainly _less_ ideomatic to use the empty sting to
represent the concept of "this has no value" rather than to use the
special undefined value.
------------------------------
Date: Fri, 11 Feb 2005 07:55:50 -0600
From: "scupper79" <scupper79@msn.com>
Subject: Re: new to group, need a temperature perl script.
Message-Id: <1108130162.62cc8c4e447db677ae0300a8235f8466@teranews>
I access this through Outlook Express, where are the guidelines?
I need a script to add to my webpage that shows the local temperature
anytime the Home page is loaded?
ck
------------------------------
Date: Fri, 11 Feb 2005 15:49:03 +0100
From: Lambik <lambik@kieffer.nl>
Subject: Re: new to group, need a temperature perl script.
Message-Id: <373uuvF58hgkfU1@individual.net>
scupper79 wrote:
> I access this through Outlook Express, where are the guidelines?
>
That's your first mistake
> I need a script to add to my webpage that shows the local temperature
> anytime the Home page is loaded?
#!/usr/bin/perl
use strict;
use warnings;
use Geo::IP;
my $gi = Geo::IP->new(GEOIP_STANDARD);
my $country = $gi->country_code_by_addr($ENV{'REMOTE_ADDR'});
if ($country ne 'AU') {
print 'It is probably cold';
}
------------------------------
Date: 11 Feb 2005 16:06:51 +0100
From: Arndt Jonasson <do-not-use@invalid.net>
Subject: Re: new to group, need a temperature perl script.
Message-Id: <yzd3bw32l10.fsf@invalid.net>
"scupper79" <scupper79@msn.com> writes:
> I access this through Outlook Express, where are the guidelines?
Google is your friend (even though groups.google isn't). Search for
comp.lang.perl.misc guidelines
> I need a script to add to my webpage that shows the local temperature
> anytime the Home page is loaded?
Is that a question.
------------------------------
Date: Fri, 11 Feb 2005 09:12:23 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: new to group, need a temperature perl script.
Message-Id: <slrnd0piqn.5er.tadmc@magna.augustmail.com>
scupper79 <scupper79@msn.com> wrote:
> I access this through Outlook Express,
Doesn't matter, makes no difference.
> where are the guidelines?
Where did you look for the guidelines?
If you tell us what you have tried, that would help us to make
them easier to find.
You did _try_ looking for them, didn't you?
1) They are posted here twice each week, have you been reading the newsgroup?
or
2) Type
perl posting guidelines
into the little box at http://www.google.com
or
3) Type
posting guidelines
comp.lang.perl.misc
into the appropriate boxes at http://groups.google.com/advanced_group_search
or
4) Type
http://mail.augustmail.com/~tadmc/clpmisc.shtml
into the little box at the top of a WWW browser
> I need a script to add to my webpage that shows the local temperature
> anytime the Home page is loaded?
Yes you do (apparently).
We discuss *writing* Perl programs here, post here if you are
having trouble writing a Perl program.
Use a search engine for searching, being sure to not miss
http://search.cpan.org
Be most extra careful with programs that you "find on the web",
a great many of them are dangerous and/or buggy...
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 11 Feb 2005 11:03:55 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: new to group, need a temperature perl script.
Message-Id: <scKdnc-fzp72SpHfRVn-rA@adelphia.com>
scupper79 wrote:
> I access this through Outlook Express, where are the guidelines?
Same place they would be if you were using anything else - right here,
posted twice a week. Is MS paying you to mention their apps by name when
it's not relevant?
> I need a script to add to my webpage that shows the local temperature
> anytime the Home page is loaded?
Weather.com apparently provides a service like that. I have no idea if it's
implemented in Perl, Java, or Magic Jellybeans.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Fri, 11 Feb 2005 16:41:50 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: new to group, need a temperature perl script.
Message-Id: <if5Pd.1700$uc.541@trnddc01>
scupper79 wrote:
> I access this through Outlook Express,
So? Your choice of newsreader is your personal affair, it has no bearing on
where to find the Posting Guidelines.
> where are the guidelines?
I wonder how you missed them while reading the NG. They are posted here
twice weekly.
> I need a script to add to my webpage that shows the local temperature
> anytime the Home page is loaded?
Well, how do you access the temperature sensor or electronic thermometer or
weather station or whatever you are using from any other programming
language? There must be some interface and documentation. This can range
from a plain serial port and you are left to decipher the incoming data all
the way to a weatherstation with Ethernet port.
jue
------------------------------
Date: 11 Feb 2005 09:05:41 -0800
From: eliediamonds@gmail.com
Subject: Partnership Opportunity
Message-Id: <1108141541.087902.6370@z14g2000cwz.googlegroups.com>
Partnership Opportunity
Hello,
I am with a manufacturer of fine jewelry and am currently looking for
those interested in forming a partnership to sell jewelry on eBay or
anywhere else. I work for Elie International, a manufacturer of fine
jewelry located in the heart of the diamond district in New York City.
We have been in the jewelry business for over 23 years and are
registered with the Jewelers Board of Trade (JBT registration #
01222207) and Dunne & Bradstreet.
For the first time in our company's history we are looking to build
partnerships with individual sellers. We hold an extensive stock of
over 24,000 items and need vendors to keep it moving. By selling our
merchandise on eBay, or to family and friends, we become your partner
not your competitor and offer you fine jewelry at wholesale prices
which are a FRACTION of what YOUR CUSTOMERS pay in retail stores. We
understand that many buyers are apprehensive about paying for
merchandise up front, and we have devised our Direct Purchase
Partnership program with these concerns in mind. Our Guaranteed Movers
Policy states that if you cannot sell one of our items within 6 months
we will exchange it. This insures that you are never stuck with
merchandise you can't sell. We want to strongly emphasize that this
is a partnership and we offer our partners the full support that they
need, including pictures, prices and descriptions of all merchandise to
get them started. Please contact us via e-mail at elieint@aol.com or at
(212) 719-0090 if you are interested or have any questions and please
include where you saw this message. Thank You
------------------------------
Date: 11 Feb 2005 18:01:37 GMT
From: John Bokma <postmaster@castleamber.com>
Subject: Re: Perl on freebsd: max memory limit?
Message-Id: <Xns95FA7A579D271castleamber@130.133.1.4>
Abigail wrote:
> John Bokma (postmaster@castleamber.com) wrote on MMMMCLXXXI September
> MCMXCIII in <URL:news:Xns95F945C91EFCcastleamber@130.133.1.4>:
> <> Is there a max memory limit for a Perl process on freebsd? A
> script bombs <> out when it uses close to 512 MB. (I have no direct
> access to the machine, <> just asking for someone).
>
> Perl itself doesn't have memory limits. However, memory is limited to
> what the OS is willing to give to the process.
Yes, I was suspecting the OS setting a limit on max memory per process. On
the other hand, the script attempts to slurps a file of over 512 MB (no I
didn't write it :-) ).
> How much memory Perl
> can get at most determines on the amount of memory available in total,
> the memory used by other processes, and any process limits.
>
> You might want to check your ulimits settings.
Thanks, I will pass the information on. In the mean time I "fixed" the
script by not slurping 512 MB, but reading the data when needed. I
suggested a rewrite since the script does a lot of inefficient things.
--
John Small Perl scripts: http://johnbokma.com/perl/
Perl programmer available: http://castleamber.com/
Happy Customers: http://castleamber.com/testimonials.html
------------------------------
Date: 11 Feb 2005 05:29:24 -0800
From: "JonL" <landenburger@msn.com>
Subject: Piecewise fetching using perl dbi
Message-Id: <1108128564.913773.259720@o13g2000cwo.googlegroups.com>
We have some data in an Oracle database stored as a Long Raw.
We can extract it using DBI, but only up to a certain length.
Once we get above 20MB we start getting error messsages ora-1062 which
comes out as
01062, 00000, "unable to allocate memory for define buffer"
// *Cause: Exceeded the maximum buffer size for current plaform
// *Action: Use piecewise fetch with a smaller buffer size
// *Action: Use a client application linked with V8 (or higher)
libraries.60
I've looked up piecwise fetching and inserting in various Oracle
documents but I dont think DBI supports it. Any Ideas?
------------------------------
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 7771
***************************************
