[10501] in Perl-Users-Digest
Perl-Users Digest, Issue: 4093 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 28 13:06:11 1998
Date: Wed, 28 Oct 98 10:00:25 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 28 Oct 1998 Volume: 8 Number: 4093
Today's topics:
Re: ActiveState Perl: problem with PerlPacketManager: p dave@mag-sol.com
add a hash to another? <eedalf@eed.ericsson.se>
Re: add a hash to another? <rootbeer@teleport.com>
Can't tie to DB_File <bruno@prior.ftech.co.uk>
Checking for only numbers <support@counter.w-dt.com>
Re: clean interupt !!! <rootbeer@teleport.com>
Comparative modularization (was: Not to start a languag (Cameron Laird)
Re: Confused by the shebang thang <jhoglund@mirage.skypoint.net>
Re: Curious about return undef; <tchrist@mox.perl.com>
Re: Document contains no data <rootbeer@teleport.com>
error using CPAN <sholmes@purdue.edu>
Re: error using CPAN <rootbeer@teleport.com>
Expressive styles (was: Not to start a language war but (Cameron Laird)
Re: grabbing timezone withing cgi environ using perl (Larry Rosler)
Re: grabbing timezone withing cgi environ using perl (Daniel Beckham)
Re: grabbing timezone withing cgi environ using perl (Larry Rosler)
Re: How do I determine a directory separator??? <rootbeer@teleport.com>
Re: LWP::UserAgent, how to get headers? (Clinton Pierce)
Re: new to perl (maybe) <murrayb@vansel.alcatel.com>
Re: Not to start a language war but.. <jdporter@min.net>
Re: Off the beaten path <burt.adsit@gte.net>
Re: Perl & Y2K - booby trap code lvirden@cas.org
Re: Perl & Y2K - booby trap code lvirden@cas.org
Re: Perl CGI on various OS <rootbeer@teleport.com>
Perl ODBC - SQL Functions RTRIM, LTRIM max@virtualf.com
Re: Perl Question <rootbeer@teleport.com>
Re: picturing a directory tree <jdporter@min.net>
Re: Problem with Win32 reg exp (Patrick Timmins)
Re: Question from one month old <rootbeer@teleport.com>
Re: Question from one month old <jdporter@min.net>
Re: RFC - Signature <bill@fccj.org>
Re: Set Operators. <rootbeer@teleport.com>
Re: Syntactic flexibility (was: Re: psychology of langu <jdporter@min.net>
Re: system() function on PERL for Win32 <murrayb@vansel.alcatel.com>
Where are Tom Christiansen's Perl Style Slide Files? <george.kuetemeyer@mail.tju.edu>
Re: windows nt user32.dll initialization and perl (Tye McQueen)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 28 Oct 1998 16:14:25 GMT
From: dave@mag-sol.com
Subject: Re: ActiveState Perl: problem with PerlPacketManager: ppm.pl (proxy/internet)
Message-Id: <717ft1$gh1$1@nnrp1.dejanews.com>
In article <7178k6$5n0$1@nnrp1.dejanews.com>,
massimobalestra@my-dejanews.com wrote:
>
>
> dave@mag-sol.com wrote:
> > ..........................
> > If your connection is thru an HTTP Proxy, then you need to have a
environment
> > variable set to tell ppm.pl where the proxy is.
> >
> > The env variable is called %HTTP_Proxy%.
>
> Thank you Dave but they was already set
>
> HTTP_PROXY
> HTTP_PROXY_USER
> HTTP_PROXY_PASS
>
> And it still does not work .
>
> Any other clue?
Only that HTTP_Proxy and HTTP_PROXY are different. Have you tried both?
Dave...
--
dave@mag-sol.com
London Perl M[ou]ngers: <http://london.pm.org/>
[Note Changed URL]
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 28 Oct 1998 17:12:04 +0100
From: Alexander Farber <eedalf@eed.ericsson.se>
Subject: add a hash to another?
Message-Id: <36374254.CC6D60B4@eed.ericsson.se>
Hi,
how do you join two hashes together? Supposed I have %a and %b,
and I would like to make %a contain all the keys/values from %b.
The "push %a, %b" does not work for me...
Thanks in advance
Alex
------------------------------
Date: Wed, 28 Oct 1998 17:12:35 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: add a hash to another?
Message-Id: <Pine.GSO.4.02A.9810280909420.3421-100000@user2.teleport.com>
On Wed, 28 Oct 1998, Alexander Farber wrote:
> how do you join two hashes together?
@big{ keys %little } = values %little;
Of course, this wipes out any items in %big which have corresponding keys
in %little. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 28 Oct 1998 17:33:08 -0000
From: "Bruno Prior" <bruno@prior.ftech.co.uk>
Subject: Can't tie to DB_File
Message-Id: <717k72$f2$1@ayers.ftech.net>
I have a set of scripts which tie to Berkeley DB files. I recently moved
them across to a couple of machines. On the first, they work fine, but on
the second they fail. These two machines have very different hardware (the
first is a RAIDed dual PPro server, the second is a laptop) but there
software configuration is very similar. I did a fresh installation of RedHat
5.1 on both, then upgraded with all the relevant errata, particularly
upgrading and rebuilding the kernel to 2.0.35. I have installed perl5.005.02
and db-2.4.14 on both, as well as apache, mod_perl and a few perl modules.
As far as I can see, I have installed the same set of packages on both.
The problem seems to be the format of the DB files. On the laptop, I can
create new DB files, but I cannot read previously created ones, whereas on
the server, I can do both. Furthermore, the server cannot read DB files
created on the laptop. When tie fails on the laptop there is no error
message (other than "File exists" if I include the O_CREAT tag). When tie
fails on the server, I get an error message of "Invalid argument".
It seems to me that I must be using different versions of DB (say 1.85 on
one and 2.x on the other). But as I have installed the same packages, I
don't see how this could be. /usr/include/db.h and db_185.h are both the
same version on both machines, and /usr/lib/libdb.a seems identical on both,
as far as I can tell.
What am I doing wrong?
Cheers,
Bruno Prior bruno@prior.ftech.co.uk
------------------------------
Date: Wed, 28 Oct 1998 11:40:39 -0600
From: Mike <support@counter.w-dt.com>
Subject: Checking for only numbers
Message-Id: <36375716.B5BF079F@counter.w-dt.com>
How do you check to make sure they only enter numbers and not any other
characters?
------------------------------
Date: Wed, 28 Oct 1998 17:04:06 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: clean interupt !!!
Message-Id: <Pine.GSO.4.02A.9810280903300.3421-100000@user2.teleport.com>
On Wed, 28 Oct 1998, Michael Renshaw wrote:
> if anyone has ever used csh they will know that a useful command
> was "onitr" which basically when you interupted a program with CTR-C
> you could do some cleaning up of files/processes that would be active
> at the time of the interupt, eg. deleting temporary files.
>
> Does anyone know how to emulate this is perl ?
Sounds as if you want to set an interrupt handler. See %SIG in the perlvar
manpage. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 28 Oct 1998 09:09:28 -0600
From: claird@Starbase.NeoSoft.COM (Cameron Laird)
Subject: Comparative modularization (was: Not to start a language war but..)
Message-Id: <717c38$kn1$1@Starbase.NeoSoft.COM>
In article <87iuh69aop.fsf@ivm.de>,
Klaus Schilling <Klaus.Schilling@home.ivm.de> wrote:
.
.
.
>Because Scheme lacks a module system.
>
> Klaus Schilling
More pertinent is that Scheme *lacked* a module system
during the interval when the developers referenced earl-
ier in this thread were evaluating it. It also might be
less confusing to those not as familar with the Scheme
world as you, in light of Scheme48's module system, the
work planned by the Guile team, and so on.
--
Cameron Laird http://starbase.neosoft.com/~claird/home.html
claird@NeoSoft.com +1 281 996 8546 FAX
------------------------------
Date: 28 Oct 1998 16:11:16 GMT
From: Jamie Hoglund <jhoglund@mirage.skypoint.net>
Subject: Re: Confused by the shebang thang
Message-Id: <717fn4$jlm$1@shadow.skypoint.net>
Morten <c960901@aix5.kbar.dtu.dk> wrote:
: Well, just as I thought I was beginning to get a slight grip on
: what was going on, I get confused by the #!, oops.
: 1) If #!/usr/local/bin/perl is necessary, how come I have scripts
: that run without that line?
: 2) I haven't been able to find any more specific info on the shebang's
: but aren't they supposed to be understood like directions to the
: perl compiler? When can you leave them out?
: 3) What is the #!/opt/internet/bin/perl then? I found that somewhere
: as well.
The #! is a "magic number" that the kernel will recognize is a shell
script, and load the interpreter the /whereever/whatever point's to.
You could do this:
-------------|autocat.sh|-----
#!/bin/cat
Hello World.
The run ./autocat.sh and watch it print out the above.
Perl doesn't need the #!, but the operating system might take advantage of
it. The fact that you've got scripts that run without it suggests that you
aren't using unix? If so, then it's kind of like the association .EXE
files might have with "execute" on DOSish machines. (but totally
different, of course. ;-) )
Jamie
--
-------------------------------------------------------------------------
jamie@lecart.com
http://www.lecart.com
------------------------------
Date: 28 Oct 1998 14:38:18 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Curious about return undef;
Message-Id: <717a8q$6oa$1@csnews.cs.colorado.edu>
In comp.lang.perl.misc, "Stuart Rison" <stuart@ludwig.ucl.ac.uk> writes:
:I'm having a problem with the undef function (more accurately with the undef
:within a function).
:
:@matching_ids=get_matching_ids();
:(!defined(@matching_ids)) and (print "Array UNDEFINED!\n");
:...
: (!$variable_worth_0) and ( return undef ); # in my code actually
Lack of manpage intimacy, I guess. (Also on p348 of the Ram Book.)
1) Don't use defined on an aggregate. It does not do what you think it does.
See the manpage. use if (@array) instead, which is more natural, too.
2) Don't return undef in list context, or you get a list of one element
that is undefined. Use return without an argument to indicate failure.
It returns undef in scalar context, but (), which is quite different,
in list context. This, too, is in the manpage.
--tom
--
"Any computer scientist who praises orthogonality should be sentenced to
use an Etch-a-Sketch."
--Larry Wall
------------------------------
Date: Wed, 28 Oct 1998 16:27:21 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Document contains no data
Message-Id: <Pine.GSO.4.02A.9810280827120.3421-100000@user2.teleport.com>
On 28 Oct 1998, Yasir Khalifa wrote:
> Subject: Document contains no data
When you're having trouble with a CGI program in Perl, you should first
look at the please-don't-be-offended-by-the-name Idiot's Guide to solving
such problems. It's available on CPAN.
http://www.perl.com/CPAN/
http://www.perl.org/CPAN/
http://www.perl.org/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.org/CPAN/doc/manual/html/pod/
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 28 Oct 1998 11:37:05 -0500
From: Steve Holmes <sholmes@purdue.edu>
Subject: error using CPAN
Message-Id: <36374830.B7230EFC@purdue.edu>
I have perl5.004_04 and when I do:
perl -MCPAN -e shell
I get:
Can't load
'/usr/local/lib/perl5/sun4-solaris/5.004/auto/Opcode/Opcode.so' for
module Opcode: ld.so.1: perl: fatal:
/usr/local/lib/perl5/sun4-solaris/5.004/auto/Opcode/Opcode.so: unknown
file type at /usr/local/lib/perl5/sun4-solaris/5.004/DynaLoader.pm line
155.
at /usr/local/lib/perl5/sun4-solaris/5.004/Safe.pm line 11
BEGIN failed--compilation aborted at
/usr/local/lib/perl5/sun4-solaris/5.004/Safe.pm line 15.
BEGIN failed--compilation aborted at
/usr/local/lib/perl5/sun4-solaris/5.004/CPAN.pm line 21.
BEGIN failed--compilation aborted.
Can anyone tell me what is going on?
Please email if possible.
Thanks.
--
Steve Holmes \WWW: http://wwwicd.cc.purdue.edu/~sjh
Unix Systems Administrator\Email:sholmes@purdue.edu
1408 Mathematics Building \Phone: (765) 496-3325
West Lafayette IN 47907-1395\
------------------------------
Date: Wed, 28 Oct 1998 17:15:44 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: error using CPAN
Message-Id: <Pine.GSO.4.02A.9810280914030.3421-100000@user2.teleport.com>
On Wed, 28 Oct 1998, Steve Holmes wrote:
> Can't load
> '/usr/local/lib/perl5/sun4-solaris/5.004/auto/Opcode/Opcode.so' for
> module Opcode: ld.so.1: perl: fatal:
> /usr/local/lib/perl5/sun4-solaris/5.004/auto/Opcode/Opcode.so: unknown
> file type at /usr/local/lib/perl5/sun4-solaris/5.004/DynaLoader.pm line
> 155.
That looks as if your copy of perl may be mis-compiled or mis-installed.
See whether you can (have your sysadmin) re-do it so that it passes all of
the tests in 'make test' Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 28 Oct 1998 08:37:19 -0600
From: claird@Starbase.NeoSoft.COM (Cameron Laird)
Subject: Expressive styles (was: Not to start a language war but..)
Message-Id: <717a6v$if1$1@Starbase.NeoSoft.COM>
In article <3634EA70.16E822D1@min.net>, John Porter <jdporter@min.net> wrote:
>Cameron Laird wrote:
>>
>> Andrew M. Kuchling <akuchlin@cnri.reston.va.us> wrote:
>> >Anyone else ever
>> >read a biography, or known anyone who has?)
>
>> Sigmund Freud did once. He wrote a letter to Fliess
>> about the experience:
>> Whoever undertakes to write a biography
>> binds himself to lying, to concealment,
>> to flummery, and even to hiding his own
>> lack of understanding, since biographi-
>> cal material is not to be had, and if it
>> were it could not be used. Truth is not
>> accessible; mankind does not deserve it.
>
>Just another pebble on the heap of evidence that Freud was
>a wacko, and the fruits of his labor mere folly and futility.
>
>
>> Freud was an early contributor to c.l.p.m, I think;
>> he certainly has the rhetoric down.
>
>I'm surprised, and even a little disappointed, to see this
>kind of flamage coming from you, Cameron.
.
.
.
'Morning, John; I owe you thanks, by the way. I
was just poking around in the archives, and found
a tip from you to a particular CPAN module that's
proved invaluable to me. I like your work.
I'm surprised you categorize my squib above as
"flamage". I've long regarded Dr. Freud as an
accomplished stylist, with good rhetorical rhythm
(perhaps I should have given this in the German)
and structural elegance. clpm often surprises me
for the vigor and forcefulness with which con-
tributors express themselves. While it's
frequently not to my taste, I can recognize it for
what it is. Surely it's not incendiary to jest
about that (note to the younger readers: I exag-
gerated for comic effect. Freud did not really
contribute to c.l.p.m. Until the time of his death,
he cursed the Internet as an American invention, and
engaged in famous debates with the European
standards committees to implement reader-qualifi-
cation mechanisms. He favored certification
which would allow only elite academics to receive
e-mail from him).
Oh, and you're right that the man was capable of
generating a high density of bogons. I guess
your point, though, is that it's only flamage to
use "wacko ... mere folly and futility" in a
single paragraph if you cross-post to sci.psych*.
--
Cameron Laird http://starbase.neosoft.com/~claird/home.html
claird@NeoSoft.com +1 281 996 8546 FAX
------------------------------
Date: Wed, 28 Oct 1998 08:09:52 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: grabbing timezone withing cgi environ using perl
Message-Id: <MPG.10a0e1ac84989aae9898e8@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <MPG.10a101179d79a3e79896af@news.supernews.com> on Wed, 28
Oct 1998 10:23:53 -0500, Daniel Beckham <danbeck@eudoramail.com> says...
...
> I need to find out what the server's timezone is.
>
> I know that I can check $ENV{'TZ'} for the server's timezone, but some
> servers don't honor this convention. It's also a problem inside a CGI
> environment because most of the system environment variables are hidden.
> I've taken a look at the Time::Timezone module from CPAN, but it relies
> on the TZ variable to do it's work.
>
> Can someone point me in the correct direction to work this problem out?
> Anyone have any experience in this area?
I posted a snippet that does this last June. Here is the reference from
DejaNews:
http://x14.dejanews.com/getdoc.xp?AN=359296309&CONTEXT=909590484.9184871
30&hitnum=0
It relies on Perl's gmtime and localtime functions determining the local
timezone correctly, however they choose to do it (ie, $ENV{TZ} or any
other way).
#!/usr/local/bin/perl -w
use strict;
my ($l_min, $l_hour, $l_year, $l_yday) = (localtime $^T)[1, 2, 5, 7];
my ($g_min, $g_hour, $g_year, $g_yday) = ( gmtime $^T)[1, 2, 5, 7];
my $tzval = ($l_min - $g_min)/60 + $l_hour - $g_hour +
24 * ($l_year <=> $g_year || $l_yday <=> $g_yday);
print $tzval, "\n";
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 28 Oct 1998 11:26:25 -0500
From: danbeck@eudoramail.com (Daniel Beckham)
Subject: Re: grabbing timezone withing cgi environ using perl
Message-Id: <MPG.10a10fbd56c7b7409896b0@news.supernews.com>
Thank you! That was only part of my problem, but using the timezone hash
from the Time::Timezone module, I can match up the output of your snippit
with the hash and come up with a textual representation. I was going
about it in a similar way as you, but not nearly as precise.
Regards,
Daniel Beckham
In article <MPG.10a0e1ac84989aae9898e8@nntp.hpl.hp.com>, lr@hpl.hp.com
says...
> [Posted to comp.lang.perl.misc and copy mailed.]
>
> In article <MPG.10a101179d79a3e79896af@news.supernews.com> on Wed, 28
> Oct 1998 10:23:53 -0500, Daniel Beckham <danbeck@eudoramail.com> says...
> ...
> > I need to find out what the server's timezone is.
> >
> > I know that I can check $ENV{'TZ'} for the server's timezone, but some
> > servers don't honor this convention. It's also a problem inside a CGI
> > environment because most of the system environment variables are hidden.
> > I've taken a look at the Time::Timezone module from CPAN, but it relies
> > on the TZ variable to do it's work.
> >
> > Can someone point me in the correct direction to work this problem out?
> > Anyone have any experience in this area?
>
> I posted a snippet that does this last June. Here is the reference from
> DejaNews:
>
> http://x14.dejanews.com/getdoc.xp?AN=359296309&CONTEXT=909590484.9184871
> 30&hitnum=0
>
> It relies on Perl's gmtime and localtime functions determining the local
> timezone correctly, however they choose to do it (ie, $ENV{TZ} or any
> other way).
>
>
> #!/usr/local/bin/perl -w
> use strict;
>
> my ($l_min, $l_hour, $l_year, $l_yday) = (localtime $^T)[1, 2, 5, 7];
> my ($g_min, $g_hour, $g_year, $g_yday) = ( gmtime $^T)[1, 2, 5, 7];
> my $tzval = ($l_min - $g_min)/60 + $l_hour - $g_hour +
> 24 * ($l_year <=> $g_year || $l_yday <=> $g_yday);
> print $tzval, "\n";
>
>
------------------------------
Date: Wed, 28 Oct 1998 09:08:51 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: grabbing timezone withing cgi environ using perl
Message-Id: <MPG.10a0ef7de582cf8e9898e9@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <MPG.10a10fbd56c7b7409896b0@news.supernews.com> on Wed, 28
Oct 1998 11:26:25 -0500, Daniel Beckham <danbeck@eudoramail.com> says...
> Thank you! That was only part of my problem, but using the timezone hash
> from the Time::Timezone module, I can match up the output of your snippit
> with the hash and come up with a textual representation. I was going
> about it in a similar way as you, but not nearly as precise.
I'm glad it helped. Someone observed yesterday that CPAN is a
repository for modules, but there doesn't seem to be one for functions.
This code (wrapped as a function) might be a candidate for such a
repository.
> > #!/usr/local/bin/perl -w
> > use strict;
> >
> > my ($l_min, $l_hour, $l_year, $l_yday) = (localtime $^T)[1, 2, 5, 7];
> > my ($g_min, $g_hour, $g_year, $g_yday) = ( gmtime $^T)[1, 2, 5, 7];
> > my $tzval = ($l_min - $g_min)/60 + $l_hour - $g_hour +
> > 24 * ($l_year <=> $g_year || $l_yday <=> $g_yday);
> > print $tzval, "\n";
After posting this again, I took another look at the line that I was so
proud of, using two 'spaceship' operators to ensure that no more than 24
hours was ever added or subtracted. This is overkill, as the years
cannot differ by more than one, and if the years are the same, the days
cannot differ by more than one. So the following will do just fine:
...
24 * ($l_year - $g_year || $l_yday - $g_yday);
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 28 Oct 1998 17:06:04 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: How do I determine a directory separator???
Message-Id: <Pine.GSO.4.02A.9810280904530.3421-100000@user2.teleport.com>
On Wed, 28 Oct 1998, Phuong Le wrote:
> I want to create a directory structure on difference OS using Perl. But
> the directory separator for each OS are difference. How can I find out
> this directory separator using Perl???
If the File::Basename module won't let you do what you want, you should
update it. Then submit the patch to the Perl development team via the
perlbug program. Thanks!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 28 Oct 1998 16:38:00 GMT
From: cpierce1@cp500.fsic.ford.com (Clinton Pierce)
To: Gisle Aas <aas@sn.no>
Subject: Re: LWP::UserAgent, how to get headers?
Message-Id: <717h98$ae3@eccws1.dearborn.ford.com>
[courtesy cc sent to author]
In article <m3n26haksu.fsf@furu.g.aas.no>,
Gisle Aas <aas@sn.no> writes:
>
>Try the $res->content_type method. In general you can access any
>response header with the $res->header("Some-Header-Name") method.
>Some of the commonly used headers, like Content-Type, have convenience
>methods.
>
>Since you did not find this, how do you think the documentation could
>be improved?
I found it and was staring right at the text, and in my haziness about
Perl's objects I simply got lost. (Like I said earlier, too much Java
this week.)
My eyes read (from perldoc LWP):
The libwww-perl class name for the user agent is
LWP::UserAgent. Every libwww-perl application that wants to
communicate should create at least one object of this kind.
The main method provided by this object is request(). This
method takes an HTTP::Request object as argument and will
(eventually) return a HTTP::Response object.
My head said (slightly out of tune, and fuzzy):
"The class LWP returns an HTTP object? That doesn't
make sense because LWP::UserAgent isn't a subclass of
HTTP. Otherwise it'd be HTTP::Response::LWP::UserAgent.
So even if LWP somehow got a hold of an HTTP::Response
object and returned a copy (<--Java speaking here) of it,
I surely couldn't use HTTP's methods against it..."
It was purely a lack of faith on my part. Pay no attention to the
bug sitting in front of the keyboard.
As an aside, I found the line "Every libwww-perl application that
wants to communicate should create at least one object of this kind"
interesting. Do I read that as "if you're going to fetch web pages,
don't mess with HTTP::* directly, just go use LWP::UserAgent, but
then use HTTP's methods for picking apart the responses from LWP..."
Oh well, just me rambling on...
--
+------------------------------------------------------------------------+
| Clinton A. Pierce | "If you rush a Miracle Man, | http://www. |
| | you get rotten miracles" | dcicorp.com/ |
| fubar@ameritech.net |--Miracle Max, The Princess Bride| ~clintp |
+------------------------------------------------------------------------+
GCSd-s+:+a-C++UALIS++++P+++L++E---t++X+b+++DI++++G++e+>++h----r+++y+++>y*
------------------------------
Date: 28 Oct 1998 07:50:10 -0800
From: Brad Murray <murrayb@vansel.alcatel.com>
Subject: Re: new to perl (maybe)
Message-Id: <ubtmwn0st.fsf@vansel.alcatel.com>
no-spam <spam@spam.spam> writes:
> Does it offer similar functionality to ASP? CGI? is it for server side
> scripting only? Is there an equivalient to ASP where requests will run
> in the same process space? or is it more like CGI?
Perl is a programming language. It can be used to do CGI programming (and
often is). In a CGI context, it is only for server side processing. With
extensions to either your server or Perl it can run as you describe, but
generally it does not.
> realistically, is perl becomming obsolete as more people get assimilated
> into the microsoft void?
It doesn't seem to be. There appears to be significant growth in the
usage of Perl in microsoft environments. Especially in heterogenous
or migrating offices, but also in MS specific places. Why? That's
certainly a point that could be debated. I suspect it's because Perl
gets work done. It's a great multi-purpose language and is insufficiently
exploited by using it only for CGI work.
> is perl predominately a UNIX thing and does it lack functionality on NT?
Some functionality is missing under NT for various very good reasons which
stem from the nature of Perl's design and its ties to its OS of origin
(Unix). That said, I have not found these problems insurmountable or
even particularly difficult, just occasionally annoying whne trying to work
with multi-platform code.
> I'm not trying to start flame wars, but am concerned about whether I'm
> making a good decision career wise.
I would worry about other aspects of the job than simply programming
language when worrying about a career move. Perl will serve you well if
you choose to enjoy working with it. It can be a real joy if you have
ever had to solve small problems in a lower level language to be able
to write solutions in only a few lines of code. It can also be a pain
in the ass to learn. If you like solving problems fast, you'll like Perl.
It's the duct tape of our times. It's a language for people who like the
glory of producing a fast and functional solution. It's not for those
that like academically pure languages or rigid constraints to prevent
possibly erroneous activity.
--
Brad Murray "A man's reach must exceed his grasp, or
Alcatel Canada what's a metaphor."
Software Analyst (Robert Browning)
------------------------------
Date: Wed, 28 Oct 1998 11:44:18 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Not to start a language war but..
Message-Id: <363749E2.CDE121AE@min.net>
"Abigail" wrote:
>
> Perl has nuts.
> Perl is cheesy.
> Perl is sunny-side up.
> Perl is fruity.
> Perl has soybeans.
No wonder Perl is gassy and bloated!
John Porter
------------------------------
Date: 28 Oct 1998 16:25:57 GMT
From: Burt Adsit <burt.adsit@gte.net>
Subject: Re: Off the beaten path
Message-Id: <717gil$d1b$0@205.138.137.49>
Brent is right. You have to temporarily, uniquely identify each user
session (cookies) and prohibit multiple session posts. The session id
could be a field in the table. Before commiting the trx check for dups.
Burt
Justin Wilde wrote:
>
> I have developed a multi-page online sales system with Perl. Near the en=
> d of
> the process, the customer fills in his information, hits the "Complete
> Transaction" button, and all the info is passed to a final script which
> verifies it all, gives it to the database, waits for an Accept or Decline=
>
> response, then creates an html page with either 'Congrats, heres your
> receipt',or a 'Sorry' message.
>
> If the user hits the Reload button on the last page, it results in a dupl=
> icate
> purchase, though. I don't have any control over the database code, or I'=
> d
> just do duplication checking there.
>
> Is there a way to throw an independent "database-communication" script be=
> tween
> the other two which is never seen by the browser (and therefore not subje=
> ct to
> 'reload' button)? In other words, does Perl provide a way to call and pas=
> s
> info to another 'behind-the-scenes' perl script which handles the actual
> purchase, then passes the info to a final "Results" html-generation scrip=
> t?
>
> This may sound like a cgi- or browser-related issue, but I don't believe =
> it is
> completely. I'm kinda stuck now and I hope Perl has capabilities to hand=
> le
> this. I hope to avoid creating/reading/writing temporary data files on t=
> he
> webserver if there's a cleaner way to do it. Please point me in the righ=
> t
> direction.
>
> Regards,
> Justin
>
> ____________________________________________________________________
> More than just email--Get your FREE Netscape WebMail account today at htt=
> p://home.netscape.com/netcenter/mail
------------------------------
Date: 28 Oct 1998 17:45:39 GMT
From: lvirden@cas.org
Subject: Re: Perl & Y2K - booby trap code
Message-Id: <717l83$qv9$1@srv38s4u.cas.org>
According to Matt Knecht <hex@voicenet.com>:
:Wheny ou say we're not going to get it all finished, and mistakes will
:be made, who are you refering to? Does anybody reading this group have
:the misfortune to work in a shop where this is a concern?
Monday I was in a meeting. A sysadmin mentioned to me that he was setting
up the latest version of Netscape Certificate server for Solaris 2.6.
He specified a date two years in the future for the certificate to expire.
The server reported back that the certificate would expire 10/26/101 ...
--
<URL:mailto:lvirden@cas.org> Quote: In heaven, there is no panic,
<*> O- <URL:http://www.purl.org/NET/lvirden/> | only planning.
Unless explicitly stated to the contrary, nothing in this posting
should be construed as representing my employer's opinions.
------------------------------
Date: 28 Oct 1998 17:53:01 GMT
From: lvirden@cas.org
Subject: Re: Perl & Y2K - booby trap code
Message-Id: <717llt$rdq$1@srv38s4u.cas.org>
According to Larry Rosler <lr@hpl.hp.com>:
:The Unix philosophy of "Small is Beautiful" derives from this cramped
:environment, which is so alien to us now. As one example, the Unix
So alien to a lot of people anyways. The idea that people can just run
out and plunk down $80 * N (where n = the number of computers in one's
inventory), then spend $60+ * N of staff time going around to install the
new memory, as well as $60+ * N of staff time sitting around waiting for
said memory to be installed, etc. certainly seems alien to me.
--
<URL:mailto:lvirden@cas.org> Quote: In heaven, there is no panic,
<*> O- <URL:http://www.purl.org/NET/lvirden/> | only planning.
Unless explicitly stated to the contrary, nothing in this posting
should be construed as representing my employer's opinions.
------------------------------
Date: Wed, 28 Oct 1998 16:45:50 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Perl CGI on various OS
Message-Id: <Pine.GSO.4.02A.9810280845130.3421-100000@user2.teleport.com>
On Wed, 28 Oct 1998 c960901@student.dtu.dk wrote:
> It works nicely at home on my win PC, but when I put it on the server
> (Novell) it doesn't look like the script gets called at all.
Maybe the server isn't calling it. If you need more information about your
server, check the docs, FAQs, and newsgroups about servers. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 28 Oct 1998 17:04:51 GMT
From: max@virtualf.com
Subject: Perl ODBC - SQL Functions RTRIM, LTRIM
Message-Id: <36374b75.25199906@news.demon.co.uk>
Hi,
has anybody experienced strange behaviour executing SQL statements
using ODBC.pm with LTRIM & RTRIM functions?
This statement:
select question#, LTRIM(RTRIM(optionVal))), option_text,
LTRIM(RTRIM(answer)))
from wgp_quiz_answer where course#=3 and chapter#=1 and
session#=1 and quiz#=1
order by question#, optionVal
returns the following results when executed in the SQL Server query
tool:
question# option_text
--------------- --- ------------------------- ----------
6 1 Moves the b
6 10 Reverses the c
6 2 Moves the j
6 3 Deletes the f
6 4 Reverses the a
This are correct. However, when executing using Perl ODBC, the
following results are returned:
question# option_text
--------------- --- ------------------------- ----------
6 b Moves the b
6 c Reverses the c
6 j Moves the j
6 f Deletes the f
6 a Reverses the a
As you can see, something strange has happened with the 2nd field. If
I remove the LTRIM and RTRIM functions from the select field list,
then the query executes correctly. Note that Microsoft documentation
states that these functions are valid with ODBC versions 1.0 and
greater.
Therefore my hunch is that these functions are not fully supported by
Perl ODBC.
Does anyone have any insight into this one?
Regds,
Max.
------------------------------
Date: Wed, 28 Oct 1998 16:41:03 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Perl Question
Message-Id: <Pine.GSO.4.02A.9810280829480.3421-100000@user2.teleport.com>
On Wed, 28 Oct 1998 kottelo@iname.com wrote:
> Subject: Perl Question
Please check out this helpful information on choosing good subject
lines. It will be a big help to you in making it more likely that your
requests will be answered.
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
> I'm new in Perl-World... Where are a good manual of perl?
It comes with Perl. If it's not already installed on your system, ask your
system administrator.
> (best in Spanish)
I don't think that the Perl docs have been translated into Spanish.
(Though I'd love to hear that I'm mistaken about that.) But you may be
able to get a translation of the Camel or Llama books; see the perlbook
manpage. I've heard that those books have been translated into several
languages, but I don't know which ones. Check with your favorite
bookstore. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 28 Oct 1998 12:43:28 -0500
From: John Porter <jdporter@min.net>
Subject: Re: picturing a directory tree
Message-Id: <363757C0.1A77A7C0@min.net>
Aravind Subramanian wrote:
>
> I'm looking for a script that takes a (top-level) directory as an
> argument, drills down under that directory and produces a (tree) gif of
> the directory structure found.
Oh, Lord, not "drilling down" again.
See:
http://www.tbtf.com/archive/10-27-98.html#s10
--
John "Throbblefoot" Porter
Please Don't "Courtesy CC" me.
I read this newsgroup fanatically. You know that!
("Emailed only" is fine, though.)
"It's known the skating pond conceals
A family of enormous eels." -- EG
------------------------------
Date: Wed, 28 Oct 1998 15:51:18 GMT
From: ptimmins@netserv.unmc.edu (Patrick Timmins)
Subject: Re: Problem with Win32 reg exp
Message-Id: <717ehm$efs$1@nnrp1.dejanews.com>
In article <1dhkws9.oxbalu32j3ggN@bay1-204.quincy.ziplink.net>,
rjk@coos.dartmouth.edu (Ronald J Kimball) wrote:
> Patrick Timmins <ptimmins@netserv.unmc.edu> wrote:
>
> > Try this (works for me on Gurusamy Sarathy Perl 5.004_02 on Win95):
> >
> > perl -e "while(<>) {s/foo/bar/gi; print;}" -i.bak test.txt
> >
> > The -p switch doesn't work (for me) on win32 (I don't know why),
> > so I have to manually put in a while loop.
>
> You must be doing something wrong. -p works fine in any port of Perl.
> It wouldn't be a very good port if -p didn't work, would it?
Yes. I have since learned that
perl -ep "s/foo/bar/gi" -i.bak test.txt
is not the same as
perl -pe "s/foo/bar/gi" -i.bak test.txt
In fact, the first one doesn't do anything (and doesnt throw any errors
either), so I thought "well, the -p switch doesn't work". I thought that
the first non-switch "thingy" would be assummed to be a line of Perl
code if you have an -e switch, and it didn't matter if the -e switch
argument "thingy" immediately followed the switch or not. I have no
explanation for my lapse.
> > You won't get it to do what you want (I think) with any version of Perl
> > without the 'print' statement, as is documented for the -i switch in
> > perldoc perlrun .
>
> Well, yes, if you don't output anything, you don't get any output.
> Imagine!
Yes ... I was (mis)thinking it was the -i switch that was causing the
substitute command to overwrite the file in some sort of a Perl
"context" understanding of the use of a substitution with an -i switch.
I have since learned of the implicit print command inherent in the -p
switch, which actually cause the substitution command to write back
to the file. eg:
perl -pi.bak -e "s/foo/bar/gi" test.txt
will loop through the file (thanks to the -p switch),
will apply the substitution to each line (thanks to the -e switch),
will print out the results (thanks to -p switch, again),
and and will write this back to the file (thanks to the -i switch)
on the otherhand:
perl -ni.bak -e "s/foo/bar/gi" test.txt
will loop through the file (thanks to the -n switch),
will apply the substitution to each line (thanks to the -e switch),
and will write the resulting output back to the file (thanks to the
-i switch)
Since there *is* no resulting output inherent in "s/foo/bar/gi",
and since the -n switch has the looping of -p, but not the implicit
printing, then the original file will be overwritten with nothing ...
wiped out ... in effect.
Thanks to Stephen Palincsar for straightening me out on the implicit
print implied by the -p switch :)
Patrick Timmins
$monger{Omaha}[0]
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 28 Oct 1998 17:01:58 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Question from one month old
Message-Id: <Pine.GSO.4.02A.9810280856240.3421-100000@user2.teleport.com>
On Wed, 28 Oct 1998, Shinobu wrote:
> Where in the newsgroups should I go to get more basic information for
> uploading CGI script to my own CGI-BIN?
No general newsgroup. It depends upon your system and how it's set up.
You'll need to ask your local expert, webmaster, or system administrator.
Even if we knew what your site uses, though, this newsgroup is about Perl,
rather than about setting up programs on webservers. Perhaps your site has
some site-specific newsgroup that you could use; again, you'll need to ask
your local expert.
> My host, I dare say its name, EROLS never helps me without charges.
Do you expect anyone to help you for free? Maybe someone should help you
to change your expectations.
While most of us around here are helpful folks, we don't owe anyone free
help, and neither do about 5,538,927,023 other people in the world, give
or take a few million.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 28 Oct 1998 12:53:20 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Question from one month old
Message-Id: <36375A10.6F8D7D5B@min.net>
Shinobu wrote:
>
> My host, I dare say its name, EROLS never helps me
> without charges.
Erols should have this kind of basic helpful information
in their customer support pages.
If not, then either pay their fees, or, even better,
switch to an ISP that isn't user-hostile.
John Porter
------------------------------
Date: Wed, 28 Oct 1998 10:46:32 -0800
From: Bill Jones <bill@fccj.org>
To: John Moreno <phenix@interpath.com>
Subject: Re: RFC - Signature
Message-Id: <36376688.9C6E040E@fccj.org>
John Moreno wrote:
>
> Bill Jones, FCCJ Webmaster <webmaster@fccj.org> wrote:
>
> > Hi :]
> >
> > Anybody have ideas about shortening this a bit?
> > (My first 'official' attempt :)
> >
> > Thx!
> > -Sneex-
> > ______________________________________________________________________
> > Bill Jones | 904/632-3089 | http://www.fccj.org/cgi/mail?webmaster
> > ----------------------------------------------------------------------
> > $perlRulez = "FCCJ Webmaster";
> > if ($perlRulez =~ /(F)(C)(C)(J)( )(W)(e)(b)(m)(a)(s)(t)(e)(r)/) {
> > print "$4", chr(ord($12)+1), "$11$12$5", uc($10), chr(ord($9)+1),
> > chr(ord($14)-3), "$12", lc(chr(ord($1)+2)), reverse($14,$13),
> > "$5", uc(chr(ord($14)-2)), "$13$14", chr(ord($9)-1), "$5",
> > uc(chr(ord($7)+3)), "$10", chr(ord($10)+2),chr(ord($9)-2),
> > reverse($14,$13), "\n"; }
>
> I don't have any ideas better than what has already been posted - but I
> do have a request. Sigs are supposed to be preceded by a sigdash, (two
> dashes and a single space on a line by themselves), could you use one?
>
> --
> John Moreno
Yes :] I will stop using that Sig :]
It's way too long.
-Sneex- :]
______________________________________________________________________
Bill Jones | 904/632-3089 | http://www.fccj.org/cgi/mail?webmaster
------------------------------
Date: Wed, 28 Oct 1998 16:53:59 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Set Operators.
Message-Id: <Pine.GSO.4.02A.9810280851210.3421-100000@user2.teleport.com>
On Wed, 28 Oct 1998, Stuart Rison wrote:
> Are there any predefined set operators for Perl which work on arrays?
No. But I think you want the FAQ's entry on finding the difference or
intersection of two arrays. It's similar to the code you posted, though.
If there's a module which does what you want, it should be listed in
the module list on CPAN. If you don't find one to your liking, you're
welcome and encouraged to submit one! :-) Hope this helps!
http://www.perl.org/CPAN/
http://www.perl.com/CPAN/
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 28 Oct 1998 12:32:23 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Syntactic flexibility (was: Re: psychology of language choice (was Re: language war ...))
Message-Id: <36375527.F47EC5F@min.net>
mvanier@my-dejanews.com wrote:
>
> For instance, there are many different control structures built into perl,
> but AFAIK no way to add new ones of your own. Contrast this with, say,
> scheme or dylan where the macro system is powerful enough to allow
> programmers to define their own control structures (or anything else). For
> instance, I find it amusing that in guile scheme I can do this:
>
> (define def define)
> (def (square x) (* x x))
> (square 10)
> 100
>
> You've created a new name for the fundamental defining word! Not that this
> is useful per se, but it shows that scheme takes perl's "no limits"
> philosophy one step further wrt syntax.
It seems to me that all you've done here is change the semantics of one
of the language's key words. You can get the same effect with any ol'
macro language. (You could get the same effect with Perl by preprocessing
the program through the C preprocessor, by simply adding -P to the cmdline.)
You haven't changed the syntax of the language at all.
How would you add a new syntactic construct in Guile?
I think it's cool that in Perl I can do things like this:
@result = map2
{
my( $x, $y ) = @_;
$x << 8 + $y # some sample function of (x,y)
}
[ 4, 5, 6 ], # the x values
[ 1, 2, 3 ]; # the y values
This is example illustrates the use of a 2-dimensional mapping
function, analogous to the (1-dimensional) built-in function 'map'.
(Note, I'm not saying this is an example of a totally new syntactic
construct. It's just a way of simulating the syntax of some of the
existing language features.)
--
John Porter
------------------------------
Date: 28 Oct 1998 07:10:13 -0800
From: Brad Murray <murrayb@vansel.alcatel.com>
Subject: Re: system() function on PERL for Win32
Message-Id: <ug1c8zpre.fsf@vansel.alcatel.com>
scott@softbase.com writes:
> Mike Price (mprice@netconexinc.com) wrote:
>
> > system("copy","d:\\temp\\*.*","c:\\temp\\*.*");
>
> System takes a single parameter, not a list.
Untrue. perldoc -f system for details. In this case, however, the solution
is indeed to use a single parameter for reasons haakon outlines regarding
the nature of NT's command interpreter.
--
Brad Murray "Your users are clueless, out of control,
Software Analyst and without leadership."
Alcatel Canada --- John Alan Swanson on the merits of SCM
------------------------------
Date: Wed, 28 Oct 1998 11:13:58 -0500
From: George Kuetemeyer <george.kuetemeyer@mail.tju.edu>
Subject: Where are Tom Christiansen's Perl Style Slide Files?
Message-Id: <363742C5.162EABA4@mail.tju.edu>
The subject says it all. I looked at the slides a while back via a link
at www.perl.com. The link now appears to have disappeared, and search
engines turn up an invalid host address. I thought the slides were
really useful & am hoping that they are still available.
TIA.
------------------------------
Date: 28 Oct 1998 10:27:59 -0600
From: tye@fohnix.metronet.com (Tye McQueen)
Subject: Re: windows nt user32.dll initialization and perl
Message-Id: <717gmf$7cb@fohnix.metronet.com>
lee <lee@juno.ltd.uk> writes:
[...]
) initialization of the User32.dll has failed, this process
[...]
) change HKEY_LOCAL_MACHINE\SYSTEM\
) CURRENTCONTROLSET\SESSIONMANAGER\
) SUBSYSTEMS\WINDOWS adding 512 where
) suggested by microsoft to limit the space each
) session grabs, but this makes no difference, (even when
Our testing shows that the Microsoft suggestion is wrong. The
Q article describes changing "SharedSection=1024,3072 " to
"SharedSection=1025,512,3072 ". What does work is changing
it to "SharedSection=1024,512 ".
--
Tye McQueen Nothing is obvious unless you are overlooking something
http://www.metronet.com/~tye/ (scripts, links, nothing fancy)
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 4093
**************************************
