[17999] in Perl-Users-Digest
Perl-Users Digest, Issue: 159 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jan 28 00:05:34 2001
Date: Sat, 27 Jan 2001 21:05:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <980658307-v10-i159@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 27 Jan 2001 Volume: 10 Number: 159
Today's topics:
and a 'lightweight' mail pm <andy@misk.co.uk>
bundle Perl or use C? (Thomas Brusca)
Re: Calling rsync with "system" does not work (Martien Verbruggen)
can't locate dbi.pm.....etc missymanning2000@my-deja.com
capture e-mail in script <andy@misk.co.uk>
Cool way to learn Perl? jqcordova@my-deja.com
Re: Cool way to learn Perl? <uri@sysarch.com>
Re: Finding a char in string <godzilla@stomp.stomp.tokyo>
GPF in ActiveState 5.6.0 <mnemotronic@mind\no-spam/spring.com>
help installing libwww-perl-5.50 from pc to host <whitetiger@pinc.com>
How to send output to a file instead of stdout <creafin1998@yahoo.com>
Re: How to send output to a file instead of stdout (Abigail)
Re: How to send output to a file instead of stdout <brentdax1_@_earthlink.net>
Re: How to send output to a file instead of stdout <creafin1998@yahoo.com>
Re: How to send output to a file instead of stdout <creafin1998@yahoo.com>
Re: How to send output to a file instead of stdout <creafin1998@yahoo.com>
Re: I N D I G O Perl - A Quick Opinion (Maggert)
Re: More efficient than split? <Juha.Laiho@iki.fi>
Re: New way to learn Perl? <wyzelli@yahoo.com>
Re: Perl programmer wanted (Maggert)
Re: sorting a hash of anon. arrays <ksm+usenet@universal.dca.net>
Re: Use module with path name bug <bfoddy@mn.mediaone.net>
Re: Win32::ODBC memory leak ? <cold_mountain@my-deja.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 28 Jan 2001 00:40:34 +0000
From: Andrew McGregor <andy@misk.co.uk>
Subject: and a 'lightweight' mail pm
Message-Id: <3A736A82.A0BB2863@misk.co.uk>
Whilst I am here I have just done a search on cpan as I simply need to
extract the e-mail address.
>> 120 modules found in 49 distributions matching 'mail'
What are peoples preferred lightweight mail parsing modules?
------------------------------
Date: 27 Jan 2001 21:02:52 GMT
From: tebrusca@oakland.edu (Thomas Brusca)
Subject: bundle Perl or use C?
Message-Id: <94vd1s$l1c$1@news2.acs.oakland.edu>
I must support an HTTP POST program on all flavors
of UNIX. I can not rely on Perl being installed on the
systems. Currently my "superiors" are insisting that we
use a C binary, but I'm in favor of making Perl part of
the installation of our POST program. Please tell me
your opinion or experiences with similar problems.
KSH comes to mind but the POST program is a little too complex.
Do you think bundling Perl will be as difficult as maintaining
the C binary of the POST program?
In other words, I would rather maintain the Perl binary and
ship it with my program, but I don't think doing this is very
easy. Or is it?
What issues do I face just copying Perl to a system instead
of installing it?
Thanks for any advice.
------------------------------
Date: Sun, 28 Jan 2001 11:33:52 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Calling rsync with "system" does not work
Message-Id: <slrn976q7g.vht.mgjv@martien.heliotrope.home>
On Sat, 27 Jan 2001 15:54:42 +0100,
Otto Wyss <otto.wyss@bluewin.ch> wrote:
>>
> Could you give me the pointers to the documentation again, I can't find
> them anymore. I did try the following befor I started this thread:
>
> perldoc -q backticks told me I need to look at system
> perldoc -q system told everthing else but nothing about system()
> perldoc -f system was not clear enough for me
> perldoc -q `string` did not work
> Of course I haven't tried "string" without backticks.
perldoc -f system is the right place to look, and it tells you it does
the same as exec(), aprt from a fork being done first. perldoc -f exec
tells you all the things I told you, and also gives a pointer to
execvp(3).
The information really is in there, but if you have trouble extracting
it, just think about what your shell does. It splits up a command line,
by whitespace, and invokes execvp with the split up arguments to the
program. Wherever there is whitespace in a command line to the shell,
you should split up the arguments to system() in Perl. qw() does that
sort of thing for you.
Of course, if you're in doubt, just make it all one long string, and
pass that to system(). It'll split it up itself, or pass it off to a
shell which will split it for you. [1]
Martien
[1] There are places where you definitely want to split things yourself,
and pass a list. Whenever user input ends up in what you pass to
system() you should do the splitting yourself, to avoid dangerous shell
constructions. See perlsec for details.
--
Martien Verbruggen |
Interactive Media Division | Failure is not an option. It comes
Commercial Dynamics Pty. Ltd. | bundled with your Microsoft product.
NSW, Australia |
------------------------------
Date: Sun, 28 Jan 2001 04:36:17 GMT
From: missymanning2000@my-deja.com
Subject: can't locate dbi.pm.....etc
Message-Id: <9507k2$g9$1@nnrp1.deja.com>
I am having a really big problem with running a
script on my server. I have a virtual server
through iserver and when using perl through
telnet you have to call virtual
perl /filenameandlocation
the weird thing is that when i use the virtual
perl command before my script location and name
it runs fine and dandy, no error messages, etc.
Now for the hard part. This script that I am
trying to execute is a script that instructs the
database (mysql) to send out the email
autoresponder messages that are scheduled to go
out via times there supposed to be called to
whomever they are supposed to go to via a mailing
list in the system.
In order to accomplish this I need to have
crontab run this script every night at midnight
or whatever because that way if someone scheduled
a responder to go out in 1 day it would or 2 etc.
When I run the script via telnet works perfecto -
when crontab tries to run the script nothing
happens. Crontab calls it and executes it but
the script doesn't do anything, doesn't send the
emails.
So, I figured that crontab wasn't
finding "virtual perl" but just perl and if it
just does the perl command (i tried via telnet)
you bomb out with the can't locate dbi.pm etc...
To fix this we added /usr/local/bin/virtual/ to
the crontab just prior to the file location and
when we execute this exact command via telnet it
does run the script.
But crontab still does not run it.
Can anyone even begin to tell me what could be
happening. This is a problem I have been working
on for a week and it is literally driving all of
us crazy.
Thanks, M Manning
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Sun, 28 Jan 2001 00:36:40 +0000
From: Andrew McGregor <andy@misk.co.uk>
Subject: capture e-mail in script
Message-Id: <3A736998.71D331FC@misk.co.uk>
I can get normal command line arguments, but I'm at a loss on how to
capture an entire e-mail if it were to be piped in (?) from sendmail.
I'm trying to write a small majordomo style script.
Regards
andy
------------------------------
Date: Sun, 28 Jan 2001 01:38:54 GMT
From: jqcordova@my-deja.com
Subject: Cool way to learn Perl?
Message-Id: <94vt7e$oh6$1@nnrp1.deja.com>
I've spent the last couple of years building well-known e-commerce
sites using Open Source code. Turns out that I spent a fair amount of
time teaching Perl to jr. programmers. I found that the most effective
way to impart knowledge was the so-called Socratic method of
question/answer. I got so tired of going through the question/answer
ritual with each new engineer, that I put together a website
www.codecity.com to do the job for me. Now, it's taken on a life of
it's own and I thought I would tell this group about it as you may find
it useful too. If you could provide some feedback and maybe even submit
a quiz or two through the site, it would be highly appreciated.
Thankyou,
Jeff C.
www.codecity.com
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Sun, 28 Jan 2001 04:43:18 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Cool way to learn Perl?
Message-Id: <x77l3gthg8.fsf@home.sysarch.com>
>>>>> "j" == jqcordova <jqcordova@my-deja.com> writes:
j> I've spent the last couple of years building well-known e-commerce
j> sites using Open Source code. Turns out that I spent a fair amount of
j> time teaching Perl to jr. programmers. I found that the most effective
j> way to impart knowledge was the so-called Socratic method of
j> question/answer. I got so tired of going through the question/answer
j> ritual with each new engineer, that I put together a website
j> www.codecity.com to do the job for me. Now, it's taken on a life of
j> it's own and I thought I would tell this group about it as you may find
j> it useful too. If you could provide some feedback and maybe even submit
j> a quiz or two through the site, it would be highly appreciated.
hey, stop spamming this post. you have done this at least 3 times and no
one cares about your site. the one followup i saw said your perl test is
broken. sounds like you could use a refresher course in web design.
and considering it takes at least 2-300 pages of non-socratic text to
write even a basic perl tutorial, i wonder how many questions and
answers you would have to create to cover all of that, let alone the
1000 pages of docs that come with perl.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Sat, 27 Jan 2001 15:39:13 -0800
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Finding a char in string
Message-Id: <3A735C21.4F6C6B9B@stomp.stomp.tokyo>
James Taylor wrote:
> Godzilla! wrote:
> > Henrik Thostrup Jensen wrote:
> > > I've need to find a certain char (";") in a string
> > > and remove all that is after the char.
> > Yours is another classic example of when substring
> > would be a better choice over a regex method.
> [snip]
> > $new_string = substr ($string, 0, index ($string, ";"));
> Is your reason for suggesting this substr-index combination
> in preference to a regex solution simply that the former is
> faster, or are there other benefits too?
A substring method for this case example is significantly
faster, uses an equally significant lesser amount of memory
and, clearly, is not prone to inherent regex errors, most
often caused by human hand.
In short, it is fast, efficient and very reliable.
Godzilla!
------------------------------
Date: Sat, 27 Jan 2001 21:10:01 -0700
From: pt <mnemotronic@mind\no-spam/spring.com>
Subject: GPF in ActiveState 5.6.0
Message-Id: <3A739B98.E71A4F10@mindspring.com>
I get a GPF under W98 SE with the following. I hope I've included
enough info:
#! D:/Progra~1/Perl/bin/Perl.exe
# This is perl, v5.6.0 built for MSWin32-x86-multi-thread
# (with 1 registered patch, see perl -V for more detail)
#
# Copyright 1987-2000, Larry Wall
#
# Binary build 613 provided by ActiveState Tool Corp.
# http://www.ActiveState.com
# Built 12:36:25 Mar 24 2000
use strict ;
my (%Message) ;
print (keys Message) ;
# PERL caused an invalid page fault in
# module PERL56.DLL at 0167:28015d26.
# Registers:
# EAX=00000000 CS=0167 EIP=28015d26 EFLGS=00010246
# EBX=08762e58 SS=016f ESP=0853fb20 EBP=0853fb80
# ECX=78037c88 DS=016f ESI=0876f338 FS=12bf
# EDX=bffc9490 ES=016f EDI=08762e34 GS=0000
# Bytes at CS:EIP:
# 8b 08 80 49 30 08 8b 4c 24 04 85 c0 89 41 54 74
# Stack dump:
# 2801a3ff 0876f338 00000007 00000000
# 00000000 00000007 08762e58 00000001
# 0000000b 0000020c 08762e10 00000083
# 00000024 08762eb4 0876f338 00000008
Remove "\no-spam/" from domain to reply.
------------------------------
Date: Sat, 27 Jan 2001 18:57:05 -0800
From: "whitetigercat" <whitetiger@pinc.com>
Subject: help installing libwww-perl-5.50 from pc to host
Message-Id: <t772prb35a3447@corp.supernews.com>
Hi All,
I wanted to use HTTP:Form in a Perl program I am writing. To my surprise, I got a
compile error indicating that this module was not installed. Specifically:
Can't locate HTTP/Form.pm in @INC.......
I was rather surprised by this and checked out a couple of other modules and got
the same error. I even checked this out on another host I have access to, same thing.
I have just a dial-up account with webspace and a cgi-bin directory.
I've gleaned over the web looking for ways to get around all this and yes it seems
I can install this myself. Unfortunately there seems to be very little out there about
how to do this if you aren't the operator (with root access). I understand I can install
this module in a directory in my own webspace and access it from there. Now if I unpack
this tar file on my PC, ftp the contents in binary (?) to a directory in my webspace, where do
I go from here? I know I have to issue commands such as 'make file' etc but how do
I do this if I'm not on the host machine? Telnet?
If someone could point me to a webpage that explains this, it would be very much appreciated.
Thank you in advance,
Shane
------------------------------
Date: Sat, 27 Jan 2001 23:47:17 GMT
From: "creafin1998" <creafin1998@yahoo.com>
Subject: How to send output to a file instead of stdout
Message-Id: <01c088bb$d91ea520$46c249d8@rjuliano>
I want to call (execute) a perl script from within another perl script and
have the results of only the called (executed) script sent either to a file
or e-mailed to a group of users.
Can someone help me out?
thanks in advance.
------------------------------
Date: 28 Jan 2001 00:42:22 GMT
From: abigail@foad.org (Abigail)
Subject: Re: How to send output to a file instead of stdout
Message-Id: <slrn976qne.uj4.abigail@tsathoggua.rlyeh.net>
creafin1998 (creafin1998@yahoo.com) wrote on MMDCCVI September MCMXCIII
in <URL:news:01c088bb$d91ea520$46c249d8@rjuliano>:
-- I want to call (execute) a perl script from within another perl script and
-- have the results of only the called (executed) script sent either to a file
-- or e-mailed to a group of users.
open my $fh => ">" => "output" or die "Failed to open file: $!\n";
print $fh `other-perl-program`;
close $fh or die "Failed to close file: $!\n";
Abigail
--
perl -le 's[$,][join$,,(split$,,($!=85))[(q[0006143730380126152532042307].
q[41342211132019313505])=~m[..]g]]e and y[yIbp][HJkP] and print'
------------------------------
Date: Sun, 28 Jan 2001 01:40:36 GMT
From: "Brent Dax" <brentdax1_@_earthlink.net>
Subject: Re: How to send output to a file instead of stdout
Message-Id: <oMKc6.1347$pS3.119684@newsread1.prod.itd.earthlink.net>
Hash: SHA1
"creafin1998" <creafin1998@yahoo.com> wrote in message
news:01c088bb$d91ea520$46c249d8@rjuliano...
> I want to call (execute) a perl script from within another perl
> script and have the results of only the called (executed) script
> sent either to a file or e-mailed to a group of users.
>
> Can someone help me out?
>
> thanks in advance.
system("/path/to/called/script > /path/to/file"); #file
redirection to start a new file
system("/path/to/called/script >> /path/to/file"); #file
redirection to append to an existing file
system("/path/to/called/script | mail recipient1@domain.tld ...
recipientN@domain.tld") #pipe to mail program
#im not quite sure about that last one--you may not be able to
specify more than one recipient on the command line
#also, mail may not be configured to work on your system, especially
if it isnt unix--another popular mail package is sendmail, try that
too
Notice that you could type those commands on the command line, too.
That works because running system() tells Perl to open a csh process
and give it that command.
HTH,
- --Brent Dax
brentdax1@earthlink.net
Version: PGPfreeware 6.5.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBOnN4YrJgQ5JqNEGyEQLbKACg1kZ8dJLGFWylPlsJeb0Q8CUfOHIAn368
CmfkcJbncFoOCesm44DfsusC
=zIXN
-----END PGP SIGNATURE-----
------------------------------
Date: Sun, 28 Jan 2001 03:52:17 GMT
From: "creafin1998" <creafin1998@yahoo.com>
Subject: Re: How to send output to a file instead of stdout
Message-Id: <01c088de$2e1acf00$c7c249d8@rjuliano>
I tried your suggestion. For some reason I keep getting Premature end of
script
headers: <my perl script path and name>
Also, I need to pass variables to the script. I was hoping something like
this would work:
/path/to/script/file.pl?var=value;
It doesn't seem to work. It tells me that it cannot find the script.
However, when I remove the ?var=value it at least finds the script.
What could I be missing here?
Thanks.
------------------------------
Date: Sun, 28 Jan 2001 03:53:11 GMT
From: "creafin1998" <creafin1998@yahoo.com>
Subject: Re: How to send output to a file instead of stdout
Message-Id: <01c088de$4f3ba4c0$c7c249d8@rjuliano>
I tried your suggestion. For some reason I keep getting Premature end of
script
headers: <my perl script path and name>
Also, I need to pass variables to the script. I was hoping something like
this would work:
/path/to/script/file.pl?var=value;
It doesn't seem to work. It tells me that it cannot find the script.
However, when I remove the ?var=value it at least finds the script.
What could I be missing here?
Thanks.
------------------------------
Date: Sun, 28 Jan 2001 04:25:44 GMT
From: "creafin1998" <creafin1998@yahoo.com>
Subject: Re: How to send output to a file instead of stdout
Message-Id: <01c088e2$da741140$c7c249d8@rjuliano>
OK. I found a couple things I missed. I forgot to add print
"Content-type: text/html\n\n"; for my header. Also, I needed a \ in front
of the @ for the e-mail addresses.
There are still a couple things I need help figuring out:
1. I need to receive the html output of my perl script into an e-mail. I
have it sending the e-mail fine, but there's no subject, and it's an empty
e-mail with a empty file.txt attachment. When I save the file instead of
e-mailing it and look at the contents of the file, I see a lot of nice html
that looks correct, but the <html><body> </html></body> tags are missing.
2. I want to be able to pass variables to the executed perl script as I
noted in my previous posting here.
Thanks again for your time.
------------------------------
Date: Sat, 27 Jan 2001 23:49:53 GMT
From: mag@ionet.net (Maggert)
Subject: Re: I N D I G O Perl - A Quick Opinion
Message-Id: <3a735e4f.23130419@news.ionet.net>
On Wed, 24 Jan 2001 04:03:33 GMT, jbuff <jbuff1856@my-deja.com> wrote:
>Can you install CPAN modules?
>
It has a very good package manager. Indy Singh did a nice job
on it.
------------------------------
Date: 27 Jan 2001 11:57:39 +0200
From: Juha Laiho <Juha.Laiho@iki.fi>
Subject: Re: More efficient than split?
Message-Id: <94u62j$qh3$1@ichaos.ichaos-int>
whubley@my-deja.com said:
>From what I read, split is not very efficient. Is there a more
>efficient substitution for split when parsing values from pipe-
>delimited string of text?
[Sorry, at least for the moment I'm not going to propose an alternative
to split; just trying to get the problem into a proper scope]
What is the usage profile of your program -- where does the time go?
Remember to include the Perl script load/compile time, if the script
is a short-running one (f.ex. less than 10 seconds).
After this, make an estimate how much time the split()'s in your code
are taking per one execution, and try to figure out what kind of
difference it would do to the big picture to get rid of the splits
altogether. If you see something you'll consider a notable difference,
then see if you should be using something else than split. I'd count
10% of the total execution time as a notable; in long-running (hours)
scripts a lower percentage might be considered notable, too.
Another thing to consider is that are all your split()'s needed; I've
seen code to be slow due to processing the same input text needlessly
over and over again (my fix was to read in the particular input once,
process it into a coherent data structure upon reading the data in,
and upon reading other data, just refer to this previously-built in-
memory structure instead of going back to disk for those pieces of data).
Recently I ended up giving up Perl and going to C due to the Perl
load/compile time. The code is small, time of single execution being
about 1/10s, and will get executed frequently along a time-critical
path of a larger system. So, the 1/10s is acceptable delay, and as the
code does mostly text-munging, Perl would've been my favourite tool.
Due to things out of my control it wasn't possible to make this program
a long-running one, so the load/compile time couldn't be discarded
so I decided to implement the program in C.
--
Wolf a.k.a. Juha Laiho Espoo, Finland
(GC 3.0) GIT d- s+: a C++ UH++++$ UL++++ P++@ L+++ E(-) W+$@ N++ !K w !O
!M V PS(+) PE Y+ PGP(+) t- 5 !X R tv--- b+ !DI D G e+ h--- r+++ y+++
"...cancel my subscription to the resurrection!" (Jim Morrison)
------------------------------
Date: Sun, 28 Jan 2001 14:11:04 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: New way to learn Perl?
Message-Id: <lrNc6.6$jt5.3122@vic.nntp.telstra.net>
"Studio 51" <leekembel@hotmail.com> wrote in message
news:Guzc6.6$c_1.23430@news4.rdc1.on.home.com...
> <jqcordova@my-deja.com> wrote in message
news:94sqbc$flf$1@nnrp1.deja.com...
> > about it as you may find it useful too. If you could provide some
> > feedback and maybe even submit a quiz or two through the site, it would
> > be highly appreciated.
>
> QUESTION: How would you initialize an array @a of length 100 to have all
> values equal -1.
> (a) for( $i=0; $i < 100; $i++ ) {$a[$i] = -1};
> (b) @a = (-1) x 100;
> (c) @a = map {-1} @a;
>
> I answered (a), even though the ';' is misplaced, but I was wrong
(according
> to the quiz anyway). So I hit back and tried the other 2 answers, but they
> were both wrong as well. After that I decided either the quiz was rigged,
or
> I don't know as much about Perl as I thought I did.
>
Try answers(S). In some cases it is two ( or more answers) required before
being marked 'correct'
I found it a bit annoying.
Wyzelli
--
#Modified from the original by Jim Menard
for(reverse(1..100)){$s=($_==1)? '':'s';print"$_ bottle$s of beer on the
wall,\n";
print"$_ bottle$s of beer,\nTake one down, pass it around,\n";
$_--;$s=($_==1)?'':'s';print"$_ bottle$s of beer on the
wall\n\n";}print'*burp*';
------------------------------
Date: Sat, 27 Jan 2001 23:21:30 GMT
From: mag@ionet.net (Maggert)
Subject: Re: Perl programmer wanted
Message-Id: <3a7357b3.21438276@news.ionet.net>
On Sat, 27 Jan 2001 12:29:29 -0700, "WmSon Family" <lrw@uswest.net>
wrote:
>One simple task, $30 or less. Possible admin or mod allowances at a UBB, the
>Poketavern as a reward also.
>
>
Wow, I've always wanted Poketavern, whatever that is. Is that
where a Pokeman goes to get drunk?
------------------------------
Date: Sat, 27 Jan 2001 21:43:03 -0500
From: Ken MacFarlane <ksm+usenet@universal.dca.net>
Subject: Re: sorting a hash of anon. arrays
Message-Id: <Pine.BSI.4.21.0101272124160.29552-100000@universal.dca.net>
On Fri, 26 Jan 2001, Gopi Sundaram wrote:
> I generate a hash called %data based on SSNs containing student data
> like so in a loop:
>
> $data{$ssn} = [$name, $login, $class, $section];
>
> Later I want to process it in two separate orders: sorted by name,
> and sorted by class. Is there a way to use "sort" to do this?
foreach my $i (sort {$data{$a}[0] <=> $data{$b}[0]} keys %data) {
# sort %data by $name; $i is a key to %data
}
foreach my $i (sort {$data{$a}[2] <=> $data{$b}[2]} keys %data) {
# now sort by $class
}
--
Ken MacFarlane
<ksm+usenet@universal.dca.net>
http://members.dca.net/ksm/
------------------------------
Date: Sun, 28 Jan 2001 01:00:53 GMT
From: Brian Foddy <bfoddy@mn.mediaone.net>
Subject: Re: Use module with path name bug
Message-Id: <3A736E8B.845AF9EB@mn.mediaone.net>
My silly and bad. I took the
use lib 'path' to mean
use <lib name> 'path'
where lib was a to be substituted name, not a literal module named "lib".
And that gibberish about the soft link, I had forgotten to unset PERL5LIB
when I ran that test so it work that way.
Anyway it all works fine now. Thank you.
Uri Guttman wrote:
> >>>>> "BF" == Brian Foddy <bfoddy@mn.mediaone.net> writes:
>
> BF> #!/usr/local/bin/perl
> BF> use HTTP::Request::Common
> BF> '/apps/soc/util/lib/perl5/lib/site_perl/5.005/';
>
> BF> This syntax is documented everywhere as being valid. I need to use
>
> where is this documented? it doesn't work as arguments passed to a use
> command are passed to the import method of that used class. it has
> nothing to do with the location of the module.
>
> you want to do:
>
> use lib '/apps/soc/util/lib/perl5/lib/site_perl/5.005/';
>
> before
>
> use HTTP::Request::Common ;
>
> BF> Is this known? Sounds like a bug to me... Any other workaround?
>
> sure it is a bug. but in YOUR program.
>
> uri
>
> --
> Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
> SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
> The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
> The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Sun, 28 Jan 2001 01:04:29 GMT
From: Cold Mountain <cold_mountain@my-deja.com>
Subject: Re: Win32::ODBC memory leak ?
Message-Id: <94vr6p$n3v$1@nnrp1.deja.com>
In article <zsJc6.14861$fa3.683029@news010.worldonline.dk>,
"F.Larsen" <N0Spam@usa.net> wrote:
> Made a small data collection program that stores data in a database
using the
> Win32::ODBC
> Unfortunately, theres a major memory leak. during a tree day test,
memory
> increased 200MB+.
When I was still using Win32::ODBC there was a memory leak in the
module. There has been quite a few threads on this topic in the
activestate mailing lists. It looks like people were still having
problems with the version distributed with ActivePerl late last year:
http://mailarchive.activestate.com/mail/msg/perl-win32-database:427836
One word: DBI.
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 159
**************************************
