[9399] in Perl-Users-Digest
Perl-Users Digest, Issue: 2994 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jun 26 14:17:42 1998
Date: Fri, 26 Jun 98 11:00:42 -0700
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, 26 Jun 1998 Volume: 8 Number: 2994
Today's topics:
Re: [Q] Hash set in recursion, lost in caller kissel@kissel.spicerack.ibm.com
Re: Can someone explain the arrow operator ? (Mike Mckinney)
Re: Checking if a file does NOT exist <*@qz.to>
DBM problem - can't get a list of all keys (using "keys <Darrell@Nash.org>
Re: Flames.... (Josh Kortbein)
Re: Flames.... (Josh Kortbein)
Re: Flames.... <tchrist@mox.perl.com>
Freelance Programmer Needed <sales@thenetimpact.com>
Re: giving a 45-minute talk on perl... pointers? (Peter Scott)
Re: help! : Arrays in Perl (Philipp)
Re: help! : Arrays in Perl <danboo@negia.net>
Re: help! : Arrays in Perl <ajohnson@gpu.srv.ualberta.ca>
Re: Hiding the Perl source killord@my-dejanews.com
Re: Hiding the Perl source killord@my-dejanews.com
Re: Hiding the Perl source <*@qz.to>
Re: How to check variables exists in a string (Craig Berry)
installation on NT (chiahead)
Re: MacPerl and odd filenames (Rich Morin)
Re: Perl and Delphi ("Mark Morgan Lloyd ")
Re: PerlIS and IIS.40 Setup.. Please help! <egamble@alphablox.com.OR.emgamble.com>
Problems installing Taint.pm <hunter@fire.org>
Re: QUE: DBD-Oracle-0.50 database module <zenin@bawdycaste.org>
Re: Regexp/Email header problem (Peter Williams)
Re: Strange ommission from perl function list (Bart Lateur)
Subroutine Variables <svetlev@vmw3.ibm.com>
Re: Subroutine Variables <jdf@pobox.com>
Re: What a Crappy World <b-camp@students.uiuc.edu>
Re: Which is the best Perl book for beginners? ("Mark Morgan Lloyd ")
Y2K Problem (Carl Tipton)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 26 Jun 1998 13:11:33 -0400
From: kissel@kissel.spicerack.ibm.com
Subject: Re: [Q] Hash set in recursion, lost in caller
Message-Id: <Pine.A32.3.91.980626130608.19984E-100000@kissel.spicerack.ibm.com>
On 25 Jun 1998, Jonathan Feinberg wrote:
> kissel@kissel.spicerack.ibm.com writes:
> > I was surprised to find, that when $hash{'akey'} is assigned, two
> > levels into the recursion (L4), lo and behold, the value of it is wiped,
> > unexpectedly, when I'm back at the mainline (L2).
>
> It seems that you've not shown us all of the code for that sub, since
> you show yourself calling it with a param, but you don't show yourself
> actually using @_. Are you scoping that hash before the assignment?
Actually, the parameter list isn't really relevant; the value that
$hash{'akey'} is the result of a computation inside the subroutine (it
was probably distracting to put it in the sample code). The parameter
just let the recursion bottom out (it's a string that gets shorter).
I was doing nothing to scope the hash explicitly before the assignment,
and this may be very relevant indeed, and the reason I showed the order
in which things get mentioned. The reason for my post is that I suspect
I do NOT understand the default way in which such a hash gets scoped,
without an explicit, forward-declaration in the mainline.
Thank you for your comment--if the query continues unclear, I'll try to
write a small toy script to isolate the behavior I'm asking about.
------------------------------
Date: 26 Jun 98 16:40:09 GMT
From: mike@bga.com (Mike Mckinney)
Subject: Re: Can someone explain the arrow operator ?
Message-Id: <slrn6p7jpo.amv.mike@mike.local.net>
On 26 Jun 98 15:39:21 GMT, Mike Mckinney <mike@bga.com> wrote:
>On Thu, 25 Jun 1998 17:55:17 GMT, Matt Knecht <hex@voicenet.com> wrote:
I'm not that clueless about them...the first followup was a typo.
$file = \$cooling if
instead of :
$file = $cooling if
--
mikem@wans.net , mike@bga.com
------------------------------
Date: 26 Jun 1998 16:58:11 GMT
From: Eli the Bearded <*@qz.to>
Subject: Re: Checking if a file does NOT exist
Message-Id: <eli$9806261254@qz.little-neck.ny.us>
In comp.lang.perl.misc, Ryan Snowden <ryan@steelplan.com.au> wrote:
> Content-Type: multipart/alternative; boundary="------------909057F689C3792BE2F4E384"
...
> --------------909057F689C3792BE2F4E384
> Content-Type: text/plain; charset=us-ascii
> Content-Transfer-Encoding: 7bit
Please don't do that.
> Perl allows you to check if a file DOES exist & has a 0 byte size like:
>
> if (-e $file || -z $file) {
> # stuff
> }
>
> This isn't what I'm after though. I want to check if the file DOESN'T
> exist.
Negate the result with !. Or take a different tack altogether:
"unlink $file" will return false if $file does (did) not exist,
and afterwards you will be in the reliable state of the file
not existing. Hope that helps.
Elijah
------
ignoring for the momemnt the issue of permissions
------------------------------
Date: Fri, 26 Jun 1998 10:54:03 -0600
From: "Darrell Nash" <Darrell@Nash.org>
Subject: DBM problem - can't get a list of all keys (using "keys" nor "each")
Message-Id: <3593d211.0@news.cadvision.com>
Hello folks,
I've written a relatively simple client database using Perl's DBM features,
which was working great for a week or so. I have over 45,000 clients in the
database, which shouldn't be a huge problem from what I understand with DBM.
Here's the problem:
When I attempt to traverse the entire database, one record at a time (with a
while(($key, $value) = each %CLIENTS)), it gets caught in an endless loop.
With further investigation, it is actually only getting about 5000 clients
into the database when the "each" function iterates back to some point prior
and starts again (not the beginning - probably between client# 500 and 1000
in the list). A related problem occurs when I use the "keys" or "values"
function - a memory overflow occurs (even on a Solaris machine with 300+
megs of ram). It would seem it too is caught in the loop.
The retrieval, addition, modification, and deletion of single records works
fine. It's only when I try to traverse the whole database that I encounter
this problem. It definately sounds like a DBM problem more than Perl, but I
figured I'd try all possibilities. I make sure that nothing else is
accessing the file when I try to traverse it, but that doesn't seem to make
a difference. I fear it is corrupted somehow, but I really need to extract
as much data as I can, or I'll have 45,000 very unhappy people.
Any help would be greatly appreciated.
Darrell Nash
nash@freerealtime.com
------------------------------
Date: 26 Jun 1998 16:48:45 GMT
From: kortbein@iastate.edu (Josh Kortbein)
Subject: Re: Flames....
Message-Id: <6n0jdd$dlq$2@news.iastate.edu>
Tom Phoenix (rootbeer@teleport.com) wrote:
: On Sun, 21 Jun 1998 dgris@rand.dimensional.com wrote:
: > Perhaps posting perltoc once or twice a month would be worthwhile.
: If they won't read it when it's already on their computer, why would they
: read it when it's on Usenet?
Because it's on the Internet - it's fancy!
--
_________________________________________________________
I do not trust your bitch.
- Frederich Nietzche, in _Also Sprach Zarathustra_
------------------------------
Date: 26 Jun 1998 16:47:04 GMT
From: kortbein@iastate.edu (Josh Kortbein)
Subject: Re: Flames....
Message-Id: <6n0ja8$dlq$1@news.iastate.edu>
Tom Christiansen (tchrist@mox.perl.com) wrote:
: [courtesy cc of this posting sent to cited author via email]
: In comp.lang.perl.misc, les@MCS.COM (Leslie Mikesell) writes:
: :How do you grep the documentation for all the CPAN modules without
: :downloading and building everything first?
: This is a wonderful question, and one which I have been
: thikning upon for some time.
: But I'm not convinced that it's that critical that the
: CPAN modules be greppable like that.
Earlier, somewhere, in this thread a big deal was made out of grep-abilty.
If being able to use grep is so crucial, then shouldn't one attempt to
make as much data as possible greppable?
Josh
--
_________________________________________________________
I do not trust your bitch.
- Frederich Nietzche, in _Also Sprach Zarathustra_
------------------------------
Date: 26 Jun 1998 16:43:20 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Flames....
Message-Id: <6n0j38$dva$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
kortbein@iastate.edu (Josh Kortbein) writes:
:It has seemed to me that many of the modules are ill-named or
:ill-described, or contain features I may want that are not clearly
:contained within those modules. It's a pain in the ass to have to
:read the docs for six different modules to find the one I want,
:and I think being able to find out which modules docs contain "foo"
:would be a useful way to reduce the number of modules I need
:to waste time hunting through.
That's what Jon's CPAN/CPAN.html document is for.
--tom
--
"Hey, I like C too, and have written uglier programs than that." --Larry Wall
------------------------------
Date: Fri, 26 Jun 1998 11:18:44 -0500
From: TDavis <sales@thenetimpact.com>
Subject: Freelance Programmer Needed
Message-Id: <3593C9E4.FCF56B8E@thenetimpact.com>
I am currently seeking an experienced Perl programmer to assist me, on a
freelance basis, in the development of websites. The individual must be
experienced and reliable. While I am looking for someone who can
provide perl prgramming as simple as a counter and a visitor log in
some instances, I am beginning to run into many applications for
advanced programming to include shopping cart/secure e-commerce
and extranet/intranet services. If you are a novice perl programmer,
please do not reply. A background in java programming may also be
useful. Please provide me with your relevant experience and hourly
rates. All replies will be held in the strictest of confidence.
Thank you for your time.
T Davis
------------------------------
Date: 26 Jun 1998 17:05:41 GMT
From: psh@euclid.jpl.nasa.gov (Peter Scott)
Subject: Re: giving a 45-minute talk on perl... pointers?
Message-Id: <6n0kd5$f8d@netline.jpl.nasa.gov>
In article <6n08a7$8sk$1@aurwww.aur.alcatel.com>, klassa@aursgh.aur.alcatel.com (John Klassa) writes:
> I'm considering giving a 45-minute talk on the basics of perl
[snip]
> I'm looking for tips/advice from those of you who've done something like
> this in the past... Ideas for an outline, topics to stress, topics to
> avoid -- whatever might be helpful -- would be appreciated.
Depends on the audience, of course, but you've indicated that these are
technical people rather than, say, CEOs...
I tell people that (IMHO) Perl was created as a gift from programmers to
programmers; rather than being crafted to satisfy some arbitrary
pattern of elegance or mathematical model, it's designed to help you
get your job done without getting in the way. Whereas in another
language, if you have the thought one day that, "Boy, sure would be
nice if I could do x by just saying blah-blah, the answer is likely to
be, "No you can't, because section 5.2.56.8.2.7 of the standard forbids
it," in Perl, the answer is usually, "Yes, if other people thought the
same thing would be cool, it already does what you think it should."
For newbies, I believe two of the most valuable features of Perl they
are unlikely to have encountered elsewhere are hashes as first-class
data types, and the ability to use lists as lvalues and rvalues so many places,
notably in returning multiple values from a subroutine (I know there's some
polysyllabic term for this feature, but I don't remember it).
By way of example, I invite them to consider a program to read lines
from a text file into an array of strings, one per line, with no limitations
other than the amount of virtual memory on the machine, and with performance
for small lines/files not overly degraded by having to work for large ones.
After pointing out some of the issues about buffering, array limits, etc,
I figure that in C, etc, IMHO this would be ~200 lines. Then I show them
how, after opening the file, it is one statement in Perl.
As an aside, in other languages, I'm constantly beset by "off by one"
bugs, whereas in Perl it almost never comes up. That alone is worth
the price of admission.
--
This is news. This is your | Peter Scott, NASA/JPL/Caltech
brain on news. Any questions? | (psh@euclid.jpl.nasa.gov)
Disclaimer: These comments are the personal opinions of the author, and
have not been adopted, authorized, ratified, or approved by JPL.
------------------------------
Date: Thu, 25 Jun 1998 17:39:13 GMT
From: philipp999@corpex.com (Philipp)
Subject: Re: help! : Arrays in Perl
Message-Id: <35928a6e.114017017@nnrp.news.uk.psi.net>
On Thu, 25 Jun 1998 08:33:11 -0400, Justin Voshell <vosheljh@jmu.edu>
wrote:
>
> I am pretty new with Perl an can't seem to find a function that will
>tell me the length of an array. Is there such a thing [there must be]?
And why dont you all just use $#my_array????
-philipp
------------------------------
Date: Fri, 26 Jun 1998 12:48:38 -0400
From: Dan Boorstein <danboo@negia.net>
Subject: Re: help! : Arrays in Perl
Message-Id: <3593D0E6.74A941E@negia.net>
Philipp wrote:
>
> On Thu, 25 Jun 1998 08:33:11 -0400, Justin Voshell <vosheljh@jmu.edu>
> wrote:
> >
> > I am pretty new with Perl an can't seem to find a function that will
> >tell me the length of an array. Is there such a thing [there must be]?
>
> And why dont you all just use $#my_array????
because that tells you the last index of the array, not the length:
@foo = (1 .. 10);
print scalar @foo, "\n";
print $#foo, "\n";
and even adding one to it is not going to help if $[ has been altered:
$[ = 1;
@foo = (1 .. 10);
print scalar @foo, "\n";
print $#foo+1, "\n";
an array in scalar context is going to give you the most reliable
method for determining its length.
cheers,
--
Dan Boorstein home: danboo@negia.net work: danboo@y-dna.com
"THERE IS AS YET INSUFFICIENT DATA FOR A MEANINGFUL ANSWER."
- Cosmic AC
--
Dan Boorstein home: danboo@negia.net work: danboo@y-dna.com
"THERE IS AS YET INSUFFICIENT DATA FOR A MEANINGFUL ANSWER."
- Cosmic AC
------------------------------
Date: Fri, 26 Jun 1998 11:54:40 -0500
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: help! : Arrays in Perl
Message-Id: <3593D250.48A3C26C@gpu.srv.ualberta.ca>
Philipp wrote:
>
> On Thu, 25 Jun 1998 08:33:11 -0400, Justin Voshell <vosheljh@jmu.edu>
> wrote:
> >
> > I am pretty new with Perl an can't seem to find a function that will
> >tell me the length of an array. Is there such a thing [there must be]?
>
> And why dont you all just use $#my_array????
@my_array=();
print $#my_array;
perhaps because $#my_array is not the length of the array
@my_array. Evaluation of @my_array in scalar context will provide
the number of elements in the array.
regards
andrew
------------------------------
Date: Fri, 26 Jun 1998 16:32:57 GMT
From: killord@my-dejanews.com
Subject: Re: Hiding the Perl source
Message-Id: <6n0ifp$a8r$1@nnrp1.dejanews.com>
> gabor@vmunix.com (Gabor) wrote:
>
> -> So many people in the Perl community give freely their time and code
> -> that asking such a question is an insult! What makes you think your
> -> code is so special? I hope that questions like this will not be
> -> tolerated in the moderated perl newsgroup coming soon.
I think yr response was a little too harsh. See, one thing you may not know
is that Pham Thuc Truong Luong is also on the DBI mailing list- Now- what
this has to do with anything is this-You want to access yr database- You want
to set the database user to a certain person and password combo- but without
anyone seeing it in the script, or where the file is kept. So there is a
*perfectly* *valid* reason that he may want to hide his script from the
public- (not to say that there isn't a better method for doing what I
described, and not to say that Pham was necessarily thinking of this
however)- the point is this- AND EVERYONE IN THE NEWSGROUP SHOULD BE
LISTENING- Don't judge until the jury's in. Dig?
I really can't wait until comp.lang.perl.moderated comes around. At least
I'll be shielded from the idiocy. -Two-Tone --- NOTE: not responsible for any
spelling mistakes in this document and any found are completely the fault of
the reader. I do not have to justify nor correct my 'art'.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Fri, 26 Jun 1998 16:36:03 GMT
From: killord@my-dejanews.com
Subject: Re: Hiding the Perl source
Message-Id: <6n0ilj$ak2$1@nnrp1.dejanews.com>
> ++ Gabor> So many people in the Perl community give freely their time
> ++ Gabor> and code that asking such a question is an insult! What makes
> ++
> ++ Some people code in Perl for work. And it is sometimes necessary to
> ++ distribute these sniplets of perl code - not so many companies are
> ++ willing to share their code for free.
> ++
> ++ I'm all for GPL and free (as *free*, not just without cost) software,
> ++ but sometimes it is just necessary to distribute code without
> ++ revealing it.
I think yr response was a little too harsh. See, one thing you may not know
is that Pham Thuc Truong Luong is also on the DBI mailing list- Now- what
this has to do with anything is this-You want to access yr database- You want
to set the database user to a certain person and password combo- but without
anyone seeing it in the script, or where the file is kept. So there is a
*perfectly* *valid* reason that he may want to hide his script from the
public- (not to say that there isn't a better method for doing what I
described, and not to say that Pham was necessarily thinking of this
however)- the point is this- AND EVERYONE IN THE NEWSGROUP SHOULD BE
LISTENING- Don't judge until the jury's in. Dig?
I really can't wait until comp.lang.perl.moderated comes around. At least
I'll be shielded from the idiocy. -Two-Tone --- NOTE: not responsible for any
spelling mistakes in this document and any found are completely the fault of
the reader. I do not have to justify nor correct my 'art'.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 26 Jun 1998 17:07:56 GMT
From: Eli the Bearded <*@qz.to>
Subject: Re: Hiding the Perl source
Message-Id: <eli$9806261259@qz.little-neck.ny.us>
In comp.lang.perl.misc, <killord@my-dejanews.com> wrote:
> I think yr response was a little too harsh. See, one thing you may not know
> is that Pham Thuc Truong Luong is also on the DBI mailing list- Now- what
> this has to do with anything is this-You want to access yr database- You want
> to set the database user to a certain person and password combo- but without
> anyone seeing it in the script, or where the file is kept. So there is a
Tough. If a program reads a file, I can find out about it without looking
at the code. There is nothing you can do about it.
> *perfectly* *valid* reason that he may want to hide his script from the
It may be a *valid* reason, but it is not going to be a successful one.
How are you going to get the password to DB? If you send it unencrypted
through a system call (eg write(2)), then a system call tracer can find
it.
> public- (not to say that there isn't a better method for doing what I
> described, and not to say that Pham was necessarily thinking of this
> however)- the point is this- AND EVERYONE IN THE NEWSGROUP SHOULD BE
> LISTENING- Don't judge until the jury's in. Dig?
There is a lot of bad blood over hiding source code here, I contend
it is a largely useless effort. There are low grade ways of doing this,
and so long as you know they are low grade feel free to use them. Don't
expect a lot of people to be in a hurry to help though.
Elijah
------
<URL:ftp://www.netusa.net/users/eli/shc-3.0b1.tgz>
------------------------------
Date: 26 Jun 1998 16:48:09 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: How to check variables exists in a string
Message-Id: <6n0jc9$6f3$1@marina.cinenet.net>
Tony Edwardson (edwarton@ml.com) wrote:
: Anyone got any ideas how to check that perl variables embeded in a
: string are defined?
:
: e.g. a scalar contains
:
: $scalar="/home/user/$group/$book/$yy$mmm$yy";
:
: I want to expand the embeded perl veriables with their values in some
: way such that I can check that each variable is defined using eval
: i.e. eval "$result = \"$scalar\"";
:
: it expands everthing it can but provides no way of checking that all
: variables are defined.
What form of checking do you want? Dieing or issuing a warning would be
relatively easy. Generating a list of undefined variables would be a bit
harder, but doable. Provide your spec and I'll see what I can do.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Fri, 26 Jun 1998 17:50:19 GMT
From: chiahead@nospam.com (chiahead)
Subject: installation on NT
Message-Id: <3593de45.161952004@client.news.psi.net>
Using NT4.0 I have installed the perl 5 interpreter, added the
directory to the path, and can run the following hello world program
with the expected results.
#!/progra~1/perl5
print "Content-type: text/html\n\n";
print"<html><head><title>hello!</title></head>\n";
print"<body><h1>Hello, World!!!!</h1></body></html>\n";
the problem comes when I look at it on the internet. I am using IIS4
and it loads like a regular page and looks like this...
#!/progra~1/perl5 print "Content-type: text/html\n\n"; print"\n";
print"
Hello, World111!
\n";
the file is called "test.pl". It seems it doesn't know this is a perl
file when I am on the web. How do I make IIS4 realize that this is a
perl file and needs to be treated as such.
I have file types set up for perl.exe as .pl and .cgi.
Does anybody know where I am messed up? (besides the obvious initial
responses)
Michael Chiappini
mchiappini@nexsoft.com
try to post a reply, because our email isn't working quite right
today.
Thanks in advance for any help
------------------------------
Date: Fri, 26 Jun 1998 09:07:42 -0700
From: rdm@cfcl.com (Rich Morin)
Subject: Re: MacPerl and odd filenames
Message-Id: <rdm-2606980907450001@140.174.42.30>
Although this question was answered expeditiously, there are better
places to get information MacPerl. PTF's MacPerl Pages:
http://www.ptf.com/macperl
contain a variety of information on MacPerl, including pointers to
an email list devoted to MacPerl and an online copy of "MacPerl:
Power and Ease".
-r
--
Canta Forda Computer Laboratory | Prime Time Freeware - quality
UNIX consulting, training, & writing | freeware at affordable prices
+1 415-873-7841 | +1 408-433-9662 -0727 (Fax)
Rich Morin, rdm@cfcl.com | www.ptf.com, info@ptf.com
------------------------------
Date: 26 Jun 1998 18:24:05 +0100
From: mark_tbu@cix.co.uk ("Mark Morgan Lloyd ")
Subject: Re: Perl and Delphi
Message-Id: <6n0lfl$qic$1@plutonium.compulink.co.uk>
In article <3593A1C2.3AF3594A@aristesoftware.com>, todd@aristesoftware.com
(Todd Cary) wrote:
> Why didn't I think of that<g>! [...] I'll shake the dust off of the
> WIN95 Perl.
Delphi's worth supporting, it's non-M$ :-) Allowing that v4 is now
impending, wouldn't it be nice if v1- which Borland claims is
unmaintainable- became available as source under the GNU terms?
Mark Morgan Lloyd
mark_tbu@cix.co.uk
[Opinions above are the author's, not those of his employers or
colleagues]
------------------------------
Date: Fri, 26 Jun 1998 09:04:05 -0700
From: "Eric Gamble" <egamble@alphablox.com.OR.emgamble.com>
Subject: Re: PerlIS and IIS.40 Setup.. Please help!
Message-Id: <6n0hc4$lf9$1@news1-alterdial.uu.net>
Brian Smith wrote in message <35925db1.0@206.103.97.91>...
>This question has already been posted by another, but the response (if any)
>was sent directly to his email. Please forgive me for asking it again...
>
>I am just beginning to break into the world of Perl. I have an NT server
>with IIS 4.0, and have downloaded the Perl32 and PerlIS stuff from
>Activeware, installing it to what I believe is the proper specs. The
>registry (and app extentions in IIS) reflect .pl as being associated with
>c:\perl\bin\perlis.dll. (Note, I have also tried perl.exe %s %s, and lots
>of other things) Here is my error message:
>
>'D:\InetPub\wwwroot\TrustMarkWeb\helloworld.pl' script produced no output
>
>Here's my report log:
>
>*** 'D:\InetPub\wwwroot\TrustMarkWeb\helloworld.pl' error message at:
>1998/06/25 08:46:48
>syntax error at D:\InetPub\wwwroot\TrustMarkWeb\helloworld.pl line 8, near
>"print"
>Execution of D:\InetPub\wwwroot\TrustMarkWeb\helloworld.pl aborted due to
>compilation errors.
>
>I would imagine that the fix is something silly that I haven't configured,
>but I promise that I have been working on this for a while now, consulting
>FAQ's, Microsoft's Tech Site, Perl web pages, etc. I have done my homework
>on this and honestly can't find the answer. If someone would please guide
>me in the right direction, I would greatly appreciate it.
>
>Thanks!
>
>Brian
>brians@vexis.com
>
>
------------------------------
Date: Fri, 26 Jun 1998 17:35:53 +0000
From: "M. Hunter" <hunter@fire.org>
Subject: Problems installing Taint.pm
Message-Id: <3593DBF9.A83B35C2@fire.org>
Hello Perl World,
I would like to have the features of Taint.pm,
but I am running into the following error
during make test:
t/basic.............Insecure $ENV{PATH}
while running with -T switch
at /usr/lib/perl5/IO/File.pm line 163.
Any help??
I have perl 5.004_04 and RedHat 5.0
Thanks,
-mxh
------------------------------
Date: 26 Jun 1998 17:26:15 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: QUE: DBD-Oracle-0.50 database module
Message-Id: <898882479.410718@thrush.omix.com>
[posted & mailed]
Tsoukalos Mihalis <mike@tech.eurodyn.com.gr> wrote:
: 1. I want to know if it is possible to access not only a local Oracle
: database but also a remote Oracle database using the &ora_login(...) [or
: using another way] subroutine.
Yes, but like any Oracle application, you'll need SQL*Net on the
local machine.
: 2. There will be a lot of interaction with the Oracle database. Do you
: think that it is better to use Perl or should I use the JDBC API
: instead?
Since when does JDBC work with perl? The perl Oracle drivers
are written in C and are pretty darn fast.
: 3. If I make the module using Oracle 7.3.2 is it possible to use the
: module with Oracle 8.0.3 without any changes [recompilation] ? There are
: some errors when I am trying to do it but I don't know if it is my
: fault.
Hmm...this I don't know, sorry.
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: 26 Jun 1998 16:46:32 GMT
From: williams@eisws25.jpl.nasa.gov (Peter Williams)
Subject: Re: Regexp/Email header problem
Message-Id: <slrn6p7k37.1qt.williams@eisws25.jpl.nasa.gov>
[posted && cc'd to original author]
I think I can answer this in two characters (or one variable): "$/".
If I understand you correctly, you want to take out _all_ the headers.
By setting $/ to the empty string (or alternatively, "\n\n" should
work for standard email), this will read in the input a paragraph
at a time. Your first "paragraph" should be the email headers:
$msg = './mail_msg';
$/ = "";
open(MSG,$msg) or die "Can't open $msg: $!";
$headers = <MSG>;
print "HEADERS: [$headers]\n";
while (<MSG>) {
&do_what_thou_will($_);
}
close MSG;
--
Peter Williams <peter.williams@jpl.nasa.gov>
--------------------- SITUATION: Low Disk Space ----------------------
MANIAC:
# cd /home
# rm -rf `du -s * | sort -rn | head -1 | awk '{print $2}'`;
-- Stephan Zielinski, "KNOW YOUR UNIX SYSTEM ADMINISTRATOR"
On Thu, 25 Jun 1998 15:59:06 GMT, H. Wade Minter <hminter@herc.com> wrote:
>Hello,
>
>I'm trying to strip out email headers in a string, while leaving the
>message intact. I've tried various regexps, checked both books, RFTM,
>prayed in Incan monkey gods, everything, but the fool thing STILL isn't
>doing right.
>
>The headers are the standard SMTP headers, starting with "From
>someuser@somewhere....." and ending with the last header, and blank
>line, and the start of the message.
>
>I have the entire message loaded into one big $string, with newlines (I
>think...more on that later) seperating the lines.
>
>Here is a sample header that doesn't work (some extranious stuff
>snipped):
>----
>From ColParker@webtv.net Wed Jun 24 23:25:16 1998
>Return-Path:
>Received: from mailsorter-105.bryant.webtv.net
>(mailsorter-105.iap.bryant.webtv.net [207.79.35.95])
> by kenbridge.lunenburg.org (8.8.7/8.8.7) with ESMTP id XAA12241
> for ; Wed, 24 Jun 1998 23:25:15 -0400
>From: ColParker@webtv.net (Thomas Parker)
>Date: Wed, 24 Jun 1998 22:26:12 -0500 (CDT)
>To: wrestling@lunenburg.org
>Subject: "Brad_Armstrong"
>Message-ID: <22792-3591C354-3564@mailtod-121.bryant.webtv.net>
>Content-Type: Text/Plain; Charset=US-ASCII
>Content-Transfer-Encoding: 7Bit
>MIME-Version: 1.0 (WebTV)
>Status: RO
>X-Status:
>
>MESSAGE BEGINS HERE
>-----
>
>And here are some of the regexps I've tried with no success:
>* $newmessage =~ s/From .*\n^\n//ms; # Leaves nothing in $newmessage
>* $newmessage =~ s/From .*\n\n//ms; # Leaves EVERYTHING in $newmessage
>* $newmessage =~ s/From .* \n\n//ms; # Ditto
>* $newmessage =~ s/From [\w]+\n\n//ms; # Ditto again
>
>Any assistance would be appreciated.
>
>Thanks,
>Wade
>
------------------------------
Date: Fri, 26 Jun 1998 17:50:03 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Strange ommission from perl function list
Message-Id: <3595dc9a.2054304@news.tornado.be>
Russ Allbery wrote:
>There was a proposal to include
>min and max in a future version of Perl as third-class keywords
Probably a silly question: what's a third class keyword? Does this imply
that there are first and second class keywords too? Fourth, ...?
Bart.
------------------------------
Date: Fri, 26 Jun 1998 11:00:08 -0500
From: Alex Svetlev <svetlev@vmw3.ibm.com>
Subject: Subroutine Variables
Message-Id: <3593C588.88421608@cs.purdue.edu>
I have a subroutine with variables that I declare with "my". Each time I
call this subroutine, the variables still have the values they did in
the previous call. How can I clear them out? Nothing seems to be
working. Not local, my, or undef. This doesn't seem like a complex
thing, but I'm stumped.
Thanks in advance.
- Alex
------------------------------
Date: 26 Jun 1998 12:13:21 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: Alex Svetlev <svetlev@vmw3.ibm.com>
Subject: Re: Subroutine Variables
Message-Id: <hg185bny.fsf@mailhost.panix.com>
Alex Svetlev <svetlev@vmw3.ibm.com> writes:
> I have a subroutine with variables that I declare with "my". Each time I
> call this subroutine, the variables still have the values they did in
> the previous call.
You must be scoping those variables outside of the sub, yes? You must
use my() inside the scope you're interested in:
sub foo {
my $bar;
}
And *NOT*
my $bar;
sub foo {
# use $bar
}
Although that second construction has its uses.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: Fri, 26 Jun 1998 11:12:24 -0500
From: Bryan Camp <b-camp@students.uiuc.edu>
Subject: Re: What a Crappy World
Message-Id: <Pine.SOL.3.96.980626110032.28383A-100000@ux10.cso.uiuc.edu>
On Thu, 25 Jun 1998, I R A Aggie wrote:
> In article <359299c1.1437131@news.tc.umn.edu>, ames0009@tc.umn.edu (T.
> Ames) wrote:
>
> + On 25 Jun 1998 08:40:21 GMT, abigail@fnx.com (Abigail) wrote:
> +
> +
> + >
> + >You're a troll.
> + >
> + >
> + >*plonk*
> + >>Abigail
> + >--
> + Funny how every time you disagree with someone you resort to name
> + calling.
>
> Really? I do believe Abigail (and she's not the first to say it) is
> on to something. Olga comes flying out of the blue -- I'd never seen
> her about here before -- and posts a "y'all suck" and "I'm not singling
> Tom C. out, but" and never named anyone else.
That's funny, I don't recall Olga ever posting a "y'all suck" message.
She merely suggested that it would be a lot nicer if people would simply
point the "newbies" toward the proper resources in a more civilized
manner, rather than resort to second-grade name calling (troll, for
example). How are you so sure that Olga came in here "flying out of
the blue?" Maybe she had a question, was browsing the ng to see if had
already been answered, and noticed many offensive posts.
------------------------------
Date: 26 Jun 1998 18:24:03 +0100
From: mark_tbu@cix.co.uk ("Mark Morgan Lloyd ")
Subject: Re: Which is the best Perl book for beginners?
Message-Id: <6n0lfj$qi6$1@plutonium.compulink.co.uk>
In article <6n085a$r4o$1@nnrp1.dejanews.com>, birgitt@my-dejanews.com ()
wrote:
> P.S. I realize that the poster asks specifically for one which
> is available in the U.K. But I think the ones which are mentioned
> in the FAQs are available there.
http://www.pcbooks.co.uk
No connection other than being a satisfied customer :-)
Mark Morgan Lloyd
mark_tbu@cix.co.uk
------------------------------
Date: 26 Jun 1998 17:19:14 GMT
From: carltipton@mail.kmsp.com (Carl Tipton)
Subject: Y2K Problem
Message-Id: <6n0l6i$74g$3@e4.empirenet.com>
I have noticed a great number of unqualified opinions and
recommendations on the Y2K issue. As an IT professional, I am aware of
the effect this issue has on my client.However, there are other issues
which I may not have yet encountered that others such as I have been
addressing.I am interested in what other professional IT manager's are
saying about this issue. Can someone direct me to resources that address
this issue from an IT professional's perspective? With only 554 days
remaining, I would like to be tuned in to the various forums and
discussion lists which address this issue from the IT manager's
perspective.
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 2994
**************************************
