[14060] in Perl-Users-Digest
Perl-Users Digest, Issue: 1470 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Nov 23 18:15:39 1999
Date: Tue, 23 Nov 1999 15:15:26 -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: <943398926-v9-i1470@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 23 Nov 1999 Volume: 9 Number: 1470
Today's topics:
Percentages Question (Jimtaylor5)
Re: Percentages Question (Greg Bacon)
Re: Percentages Question <lr@hpl.hp.com>
Perl authentication script, Win32 <matthew@swt.edu>
PNG in a pTK canvas. naunga@hotmail.com
Portuguese Whaling Songs (John)
Re: Portuguese Whaling Songs (Greg Bacon)
POST in PERL <rp7912@csc.albany.edu>
Q on TPJ #14 smtp article <tavi367@attglobal.net>
Reading a here-document? <flavell@mail.cern.ch>
Re: Reading a here-document? <tony_curtis32@yahoo.com>
Re: Reading a here-document? <durbin@cig.mot.com>
Re: Reading a here-document? <lr@hpl.hp.com>
Re: Refining code <emschwar@rmi.net>
Re: runing a executable from CGI/Perl script (Kragen Sitaker)
Re: Signal Handler Seg Faulting (M.J.T. Guy)
Re: Simple help <mcts@backwoods.org>
Re: Test for eval() without using eval() ?? <montuori@acs.neu.edu>
Re: Test for eval() without using eval() ?? <rhomberg@ife.ee.ethz.ch>
Re: Test for eval() without using eval() ?? <mkruse@rens.com>
Re: Test for eval() without using eval() ?? <mkruse@rens.com>
Re: Test for eval() without using eval() ?? (Greg Bacon)
Re: What is a good book on Perl <mdkersey@hal-pc.org>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 23 Nov 1999 21:30:00 GMT
From: jimtaylor5@aol.com (Jimtaylor5)
Subject: Percentages Question
Message-Id: <19991123163000.17075.00001644@ng-fn1.aol.com>
Does anyone have any simple code that will explain to me how I calculate
percentages in a group of numbers situation. Perhaps the same as a voting booth
calculates numbers as 50 pecent yes, 30 percent no, and 20 percent maybe from
the number orf votes. Any help will be appreciated.
------------------------------
Date: 23 Nov 1999 21:57:33 GMT
From: gbacon@ruby.itsc.uah.edu (Greg Bacon)
Subject: Re: Percentages Question
Message-Id: <81f2kd$1av$4@info2.uah.edu>
In article <19991123163000.17075.00001644@ng-fn1.aol.com>,
jimtaylor5@aol.com (Jimtaylor5) writes:
: Does anyone have any simple code that will explain to me how I
: calculate percentages in a group of numbers situation. Perhaps the
: same as a voting booth calculates numbers as 50 pecent yes, 30 percent
: no, and 20 percent maybe from the number orf votes. Any help will be
: appreciated.
#! /usr/bin/perl -w
use strict;
my %votes = (
yea => 435,
nay => 42,
abstain => 72,
);
my $total = 0;
$total += $votes{$_} for keys %votes;
print "Total votes: $total\n";
for (qw/ yea nay abstain /) {
my $votes = $votes{$_};
my $pct = $votes / $total * 100;
printf " => %-7s - %4d (%.1f%%)\n", $_, $votes, $pct;
}
Greg
--
I know no method to secure the repeal of bad or obnoxious laws so
effective as their stringent execution.
-- Ulysses S. Grant
------------------------------
Date: Tue, 23 Nov 1999 14:17:35 -0800
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Percentages Question
Message-Id: <MPG.12a4b258200285f798a262@nntp.hpl.hp.com>
In article <81f2kd$1av$4@info2.uah.edu> on 23 Nov 1999 21:57:33 GMT,
Greg Bacon <gbacon@ruby.itsc.uah.edu> says...
...
> my %votes = (
> yea => 435,
> nay => 42,
> abstain => 72,
> );
>
> my $total = 0;
> $total += $votes{$_} for keys %votes;
Alternatively,
$total += $_ for values %votes;
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 23 Nov 1999 16:33:07 -0600
From: Matt Williamson <matthew@swt.edu>
Subject: Perl authentication script, Win32
Message-Id: <383B1623.F8849461@swt.edu>
Does anyone know how to write a script under win32 that can authenticate
to an NT domain? I've done one that authenticates under Linux via yp,
but I'm using ActivePerl and it says straightout that things like
getpwnam() don't work. Any ideas? Somewhat off topic, if you can't, can
anyone point me to a place that will show me how to do this in C/C++?
I may have asked this question before, sorry if it's a repeat, but if I
did, I missed the answer.
-Matt Williamson, Web Developer
Southwest Texas State University
Department of Computer Science
------------------------------
Date: Tue, 23 Nov 1999 22:23:27 GMT
From: naunga@hotmail.com
Subject: PNG in a pTK canvas.
Message-Id: <81f44k$k14$1@nnrp1.deja.com>
I've created a script that use PNGgraph to generate a chart in a png
file. I'm trying to display it in a pTk canvas. So far I can display it
if I use an external app to convert it to a GIF, but it would be very
cool if I could leave that step out and display the PNG in the canvas.
Can I do this, and if so how (or how can I use ImageMagick to convert it
in the script)?
Any suggestions appreciated.
-Aaron
-------------------------------
| ==>HEAD!! PANTS NOW<== |
| email: naunga@hotmail.com |
-------------------------------
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 23 Nov 1999 16:45:25 -0500
From: jadapturNOSPAM@hotmail.com (John)
Subject: Portuguese Whaling Songs
Message-Id: <jadapturNOSPAM-2311991645270001@nas-2-37.boston.navinet.net>
Portuguese Whaling Songs
Anyone know where I can find info on Portuguese Whaling Songs of the 19th
Century?
--
Remove SPAMNOT from email address to reply
------------------------------
Date: 23 Nov 1999 21:58:13 GMT
From: gbacon@ruby.itsc.uah.edu (Greg Bacon)
Subject: Re: Portuguese Whaling Songs
Message-Id: <81f2ll$1av$5@info2.uah.edu>
In article <jadapturNOSPAM-2311991645270001@nas-2-37.boston.navinet.net>,
jadapturNOSPAM@hotmail.com (John) writes:
: Anyone know where I can find info on Portuguese Whaling Songs of the 19th
: Century?
[16:02] ruby% perldoc -q whaling
No documentation for perl FAQ keyword `whaling' found
Greg
--
The power of accurate observation is commonly called cynicism by those who
have not got it.
-- George Bernard Shaw
------------------------------
Date: Tue, 23 Nov 1999 11:26:16 -0500
From: PARIMI RAKESH K <rp7912@csc.albany.edu>
Subject: POST in PERL
Message-Id: <Pine.GSO.4.10.9911231124380.7167-100000@eve.albany.edu>
I was trying to work on POST methos in Win32::Internet module
, REQUEST->SendRequest("userid=xxx&passwd=yyy"). But is ain't seemin' to
work. Could anyone help out with this. I would appreciate if you could
email me at rparimi@commertech.com.
Thanks,
Bye,
Rakesh Parimi
Ph : (518)-438-0939
[ Weekdays : Before 9am & After 8pm]
[ Weekdays : Email between 9am and 8pm]
[ Weenends : Email and phone]
69 North Allen St.
Apartment 1,
Albany NY 12203
USA
Home Page : http://www.albany.edu/~rp7912
------------------------------
Date: Tue, 23 Nov 1999 16:14:51 -0600
From: <tavi367@attglobal.net>
Subject: Q on TPJ #14 smtp article
Message-Id: <383b1160_2@news1.prserv.net>
The article in question had this code piece (see below).
When I run this on my UNIX machine, I get this error...
Can't use string ("To") as a HASH ref while "strict refs" in use at
/usr/local/lib/perl5/site_perl/5.005/Mail/Mailer.pm line 272.
I'm new to the mail side of this, any ideas on how to fix this?
Thanks
Walter
# Sample code
#!/usr/bin/perl -w
# mail_mailer.pl - sample mail sending routine using Mail::Mailer
use Mail::Mailer qw(smtp);
my $mailer = new Mail::Mailer 'smtp';
# Hash keys are headers in the outgoing mail
$mailer->open(To => ['you@localhost'],
Cc => ['me@localhost'],
From => 'me@localhost',
Subject => 'Some test mail');
print $mailer "Hi! This is some test mail. Boring, huh? :-)\n";
$mailer->close;
------------------------------
Date: Tue, 23 Nov 1999 20:52:22 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Reading a here-document?
Message-Id: <Pine.HPP.3.95a.991123203151.721K-100000@hpplus01.cern.ch>
Scenario:
I've got some code that reads and process records from an
external file, which is not under my control.
I find that I want to include into the processing, some fixed extra
records (relatively few, let's say a dozen for example), that I'm going
to supply in exactly the same format that they'd come from the main data
file.
I have in mind to supply them within the script, for example as a
here-document, but now I realise that whereas I can happily write
while (<FILE>) { _process_record_ }
I can't puzzle out how to code the corresponding thing to get records
from a here-document. (Yes, I've found the topic in perlfaq4).
I can do it with an otherwise superfluous array, something like
my @special = split /\n/, <<EOD;
...
...
EOD
and then
foreach (@special) { _process_record_ }
but this seems clumsy.
Would some kind soul please help me out, or suggest a more harmonious
approach?
thanks
------------------------------
Date: 23 Nov 1999 20:41:21 +0000
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Reading a here-document?
Message-Id: <wku2mdkkjy.fsf@yahoo.com>
"Alan J. Flavell" <flavell@mail.cern.ch> writes:
> I find that I want to include into the processing, some fixed extra
> records (relatively few, let's say a dozen for example), that I'm going
> to supply in exactly the same format that they'd come from the main data
> file.
>
> I can do it with an otherwise superfluous array, something like
>
> my @special = split /\n/, <<EOD;
> ...
> EOD
>
> and then
> foreach (@special) { _process_record_ }
> but this seems clumsy.
How about the DATA pseudo-filehandle?
while (<FILE>) { ... }
...
while (<DATA>) { ... }
...
__DATA__
eins
zwei
drei
vier
....
tony
------------------------------
Date: Tue, 23 Nov 1999 15:30:48 -0600
From: Chris Durbin <durbin@cig.mot.com>
Subject: Re: Reading a here-document?
Message-Id: <Pine.GSO.4.21.9911231508070.29543-100000@ballad>
On Tue, 23 Nov 1999, Alan J. Flavell wrote:
:)
:)Scenario:
:)
:)I've got some code that reads and process records from an
:)external file, which is not under my control.
:)
:)I find that I want to include into the processing, some fixed extra
:)records (relatively few, let's say a dozen for example), that I'm going
:)to supply in exactly the same format that they'd come from the main data
:)file.
:)
:)I have in mind to supply them within the script, for example as a
:)here-document, but now I realise that whereas I can happily write
:)
:) while (<FILE>) { _process_record_ }
:)
Try using Perl's built-in DATA file handle thusly:
Use the predefined filehandle DATA where you would use FILE, and
define the contents following the __END__ tag which ends the code
section of that file, and begins the DATA file.
ballad> cat chump
#!/usr/misc/bin/perl5 -w
while (<DATA>) {
print;
print "--*--*--\n";
}
__END__
Just some stuff
to print out to
prove to myself
that this really
works.
ballad> chump
--*--*--
Just some stuff
--*--*--
to print out to
--*--*--
prove to myself
--*--*--
that this really
--*--*--
works.
--*--*--
ballad>
It's a great way to to include necessary data in the same file as
the code that acts upon it. Check it out in Programming Perl
(blue camel)
--
Chris Durbin Motorola, Cellular Infrastructure Group
--------------------------------------------------------------
Phone: (847)435-9558 Pager: 1-800-759-8888, #1268222
Fax: (847)632-4552 Email: durbin@cig.mot.com
------------------------------
Date: Tue, 23 Nov 1999 14:14:34 -0800
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Reading a here-document?
Message-Id: <MPG.12a4b1a12c1c5c5d98a261@nntp.hpl.hp.com>
In article <Pine.HPP.3.95a.991123203151.721K-100000@hpplus01.cern.ch> on
Tue, 23 Nov 1999 20:52:22 +0100, Alan J. Flavell <flavell@mail.cern.ch>
says...
...
> I can't puzzle out how to code the corresponding thing to get records
> from a here-document. (Yes, I've found the topic in perlfaq4).
>
> I can do it with an otherwise superfluous array, something like
>
> my @special = split /\n/, <<EOD;
> ...
> ...
> EOD
>
> and then
>
> foreach (@special) { _process_record_ }
>
> but this seems clumsy.
>
> Would some kind soul please help me out, or suggest a more harmonious
> approach?
Why bother with the array then? Just put the list in the foreach
directly:
foreach (split /\n/, <<EOD) { _process_record_ }
...
...
EOD
However, someone as obsessed with compactness as I would write it this
way:
_process_record_ for split /\n/, <<EOD;
...
...
EOD
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 23 Nov 1999 11:09:14 -0700
From: Eric The Read <emschwar@rmi.net>
Subject: Re: Refining code
Message-Id: <xkfd7t1w051.fsf@valdemar.col.hp.com>
nigh_postal <nigh_postal@my-deja.com> writes:
> Thanks Eric. I understand that it would be better to use a hash to
> store the fields, and I have even done so in the past (for minor parts
> of the programs), it was just that to make the use of hashes program-
> wide (2000+ lines), it would require a great deal more typing.
I'm sorry, but that's an argument I have absolutely no sympathy with.
Adding clear, well-written comments takes a lot of typing, too, but
anybody who'd use that as an excuse not to write them is just itching to
get fired, in my book.
> {$fields [$i]} turns into $tmp{$fields[$i]}, and thus to retrieve an
> individual field it is $tmp{'NDX_NAME'} instead of $NDX_NAME. A pain
> when you have 7 different database structures with 20 fields each :P
An even bigger pain for the poor bastard who has to pick up your code in
5 months, after you've gone on to bigger and better things, and has to
figure out how to make heads or tails of this.
Better to spend an extra four lousy keystrokes for the benefit of writing
clear, maintainable code, than to abbreviate to save yourself a few
seconds of typing, and cost someone else several hours of confusion. Of
course, using a more descriptive name than "tmp" is ideal-- unless that's
the name of your database, or some such thing.
Programming is communication-- not only between the programmer and the
user of that program (as mediated by the compiler/interpreter), but also
between the original programmer and the next person to hack it. Just as
you wouldn't talk to your boss in gutter slang, so you should avoid it in
your programming. Think of symrefs like ethnic insults-- just because
Don Rickles can tell 'em doesn't mean you can get away with it.
> Although I personally have never had any problems debugging the code
> because of my use of symbolic references, I realize that in the future
> it may be somebody else who is modifying my code who has no clue what
> to watch out for. So in that respect it would be a good idea to move
> to the hash.
That, and it would make your code more 'use strict;'-compliant. Which is
A Good Thing(tm) for readability, and maintainability.
> I am also looking into the possibility of moving to an OO
> version of the program, but as of yet I am not familiar enough with it
> to warrant an attempt.
I'd get clear on the benefits of '-w' and 'use strict;' first. After you
can write code that is compliant with both of those, then maybe you could
look into OO. But I'm with Abigail on this one: Perl OO is neither Perl,
nor OO.
-=Eric
--
"Cutting the space budget really restores my faith in humanity. It
eliminates dreams, goals, and ideals and lets us get straight to the
business of hate, debauchery, and self-annihilation."
-- Johnny Hart
------------------------------
Date: Tue, 23 Nov 1999 21:05:19 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: runing a executable from CGI/Perl script
Message-Id: <jkD_3.41389$YI2.2035097@typ11.nn.bcandid.com>
In article <819eed$gqs$1@nnrp1.deja.com>, <nextar@my-deja.com> wrote:
>I have try with system ('exec_file', 'text_file') but exec_file still
>not generate my the desired file.
OK, that's progress. What does it do instead of what you want? Does
it log an error message, do nothing apparent, or what?
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 23 Nov 1999 18:20:25 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Signal Handler Seg Faulting
Message-Id: <81elt9$398$1@pegasus.csx.cam.ac.uk>
In article <81edi9$1ov$1@nnrp1.deja.com>, <epicycle@my-deja.com> wrote:
>
>I am having a problem with my perl signal handler. I am catching the
>signal TERM in a solaris 5.6 environment running perl 5.005_02. In the
>signal handler I need to save the current state of the application and
>save a counter to a file before it exits. I am the one sending the
>signal from a shell script to the perl process so I have complete
>control over that. Is there a better way to do this, maybe handle it a
>different way? Right now the signal goes through and in the signal
>handler it gets to different parts of the code before it Segmentation
>Faults and core dumps. It does not do this when you run them both from
>a command line and I sent the kill from the command line but it appears
>to happen when the kill is sent from a shell script. Am I going about
>this wrong? Can someone shine some light on signal handlers and maybe
>suggest another way of telling a perl process to shut down cleanly?
Perl signals are currently unsafe, because the underlying C libraries
aren't reentrant. You should avoid doing anything in a signal
handler except
a) set a predeclared flag variable to a numeric value, or
b) die() with a *constant* argument (in particular, make sure it
ends "\n" to stop Perl adding file/line information.
Even these aren't 100% safe, but are mostly all right in practice.
If you want to do significant processing after the signal, you can wrap
your code in an eval{} to catch the die(). But note that since
your code has been interrupted at an arbitrary place, you'll also
have to take precautions to check that the current state you want to save
is in a consistent state.
Mike Guy
------------------------------
Date: Tue, 23 Nov 1999 12:47:33 -0500
From: MC <mcts@backwoods.org>
Subject: Re: Simple help
Message-Id: <383AD335.8664951F@backwoods.org>
Larry Rosler wrote:
>
> In article <slrn83l80g.29n.*@dragons.duesouth.net> on Tue, 23 Nov 1999
> 14:30:02 GMT, Matthew Bafford <*@dragons.duesouth.net> says...
> > 23 Nov 1999 12:35:58 GMT, a great smashing of the head occured against
> > Jonathan Stowe <gellyfish@gellyfish.com>'s keyboard, causing
> > alt.perl,comp.lang.perl.misc to receive this:
> > : In comp.lang.perl.misc MC <mcts@backwoods.org> wrote:
> > : > Larry Rosler wrote:
> > : >> / 99(\d+)\s+(.+\S) +\d/ and print "|99$1 $2|\n";
> > : > / 99(\d+)\s+(.+\S) +\d+/ and print "|99$1 $2|\n";
> > :
> > : I might be going stupid here but isnt that what Larry said ?
> >
> > Nope.
>
> Would an example of a string that matches one regex but not the other
> put this discussion to rest? Anyone?
>
Quite right, they'd better both match the same ones, however my assumption
(perhaps wrong) was that the final number may at some point be required ie (\d+)
thus only my correction would still retain the full number. Perhaps an example
of my programming style, do it all the way the first time, just in case.
>
> I take a few hours off to sleep, and this place goes to hell. :-)
>
hmmm i must have missed something, when was it not 'gone to hell' ??
> --
> (Just Another Larry) Rosler
> Hewlett-Packard Laboratories
> http://www.hpl.hp.com/personal/Larry_Rosler/
> lr@hpl.hp.com
--
--==[ Ğetroit to the SuperBowl ]==--
Time is nature's way of keeping
everything from happening at once
Question Reality
------------------------------
Date: 23 Nov 1999 13:04:51 -0500
From: kevin montuori <montuori@acs.neu.edu>
Subject: Re: Test for eval() without using eval() ??
Message-Id: <yge7lj9ozi4.fsf@spot.acs.neu.edu>
>>> mkruse writes:
mk> It's technically possible, but not a workable solution. If the
mk> web server disables eval() it most certainly disables back-ticks
mk> and system ().
i think you're a bit confused: web servers do not disable perl
commands; web servers and perl interpreters are not related
entities. one can turn on (or off) the server side includes
directive "eval" on a netscape enterprise server -- perhaps
this is what you mean?
cheers,
k.
--
kevin montuori
interactive web services
northeastern university
------------------------------
Date: Tue, 23 Nov 1999 19:41:21 +0100
From: Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
Subject: Re: Test for eval() without using eval() ??
Message-Id: <383ADFD1.98ECDE64@ife.ee.ethz.ch>
mkruse@netexpress.net wrote:
> It's technically possible, but not a workable solution. If the web
> server disables eval() it most certainly disables back-ticks and system
> ().
Hmm. Interesting. You tell us one thing and when a solution to that is
presented, you say that it should 'most certainly' not work because of
other reasons.
> My question is for CGI scripts which will be distributed to many
> people. I do not have control over their environment. Telling them to
> install certain tools is not an option. I write code that is designed
> to run without any dependencies at all.
I predict difficulties there. I would think that CGI scripts need
- A working Computer
- A webserver
- Some means to put the program on the computer
- Some means to run it and see it's output
- If they are in Perl, something to run them (eg. perl or mod_perl)
all commands that read other Perl files (use, do, require) are some sort
of eval. If those don't work either, I don't think it is of much use to
work with that.
> In fact, please put me on your auto-kill list if you have one, so you
> never have the urge to respond to my postings again.
Don't worry, you most probably are there already. Abigail is very
generous with places in her killfile
- Alex
------------------------------
Date: Tue, 23 Nov 1999 13:47:02 -0600
From: "Matt Kruse" <mkruse@rens.com>
Subject: Re: Test for eval() without using eval() ??
Message-Id: <81eqnr$sk1$1@ffx2nh3.news.uu.net>
kevin montuori <montuori@acs.neu.edu> wrote in message
news:yge7lj9ozi4.fsf@spot.acs.neu.edu...
> i think you're a bit confused: web servers do not disable perl
> commands; web servers and perl interpreters are not related
> entities. one can turn on (or off) the server side includes
> directive "eval" on a netscape enterprise server -- perhaps
> this is what you mean?
No, I'm not confused. I've been doing this stuff for 6 years. This is the
first time that I've encountered crippled versions of Perl on a web server,
though.
There are sites that exist that have a "crippled" version of perl running
for CGI scripts. I'm not sure how they accomplish it, and I'm not sure how
it works. All I know is that I've had a number of people tell me that a
script won't run because Perl will not do eval() or system() or back-ticks
with CGI scripts on their server. It's odd, yes. Makes no sense to me. I was
just wondering if there was a way to check for this situation within the
limits of the environment.
Matt Kruse
mkruse@netexpress.net
http://www.mattkruse.com/
------------------------------
Date: Tue, 23 Nov 1999 13:49:51 -0600
From: "Matt Kruse" <mkruse@rens.com>
Subject: Re: Test for eval() without using eval() ??
Message-Id: <81eqt4$sn8$1@ffx2nh3.news.uu.net>
Alex Rhomberg <rhomberg@ife.ee.ethz.ch> wrote
> Hmm. Interesting. You tell us one thing and when a solution to that is
> presented, you say that it should 'most certainly' not work because of
> other reasons.
I'm just trying to find a solution, man. It's not my environment I'm trying
to fix, it's other peoples'. They have a weird environment, and I'm trying
to make things work without breaking. That's it.
> I write code that is designed to run without any dependencies at all.
> I predict difficulties there. I would think that CGI scripts need
> ...
What I meant by this is no modules, no required files, no 'standard'
modules, etc.
I've found that when creating a script that will be used by thousands of
people in every environment you can comprehend, it's best to not rely on
them having ANYTHING that I think they should.
------------------------------
Date: 23 Nov 1999 21:23:45 GMT
From: gbacon@ruby.itsc.uah.edu (Greg Bacon)
Subject: Re: Test for eval() without using eval() ??
Message-Id: <81f0l1$1av$1@info2.uah.edu>
In article <81efml$3n0$1@nnrp1.deja.com>,
mkruse@netexpress.net writes:
: In article <slrn83jm7c.m2v.abigail@alexandra.delanet.com>,
: abigail@delanet.com wrote:
:
: > DO NOT POST IN REVERSE ORDER AND DO NOT QUOTE THE ENTIRE ARTICLE,
: > INCLUDING SIGNATURE, MORON.
:
: Wow, what a bitch you are.
Why, after reading this exchange, did I expect someone to bust out
with an adaptation of "Kyle's Mom is a Bitch"? :-)
Is that you, Burnore? :-)
Greg
--
Irrationality is the square root of all evil.
-- Douglas Hofstadter
------------------------------
Date: Tue, 23 Nov 1999 14:08:40 -0600
From: "Michael D. Kersey" <mdkersey@hal-pc.org>
To: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: What is a good book on Perl
Message-Id: <383AF448.F1BF3DD1@hal-pc.org>
David Cassell wrote:
> [snip]
> > Eric C. Herman: "Mastering Perl 5" from Sybex?
> That's not the same guy who wrote that ghastly CGI-and-Perl
> book for SamsNet, is it?
>
> "Teach Yourself CGI Programming with Perl 5 in a week, Second Edition"
> by Eric Herrmann [NOT recommended if you want to write Perl]
>
> If it's the same guy, I doubt the book is worth what you paid
> for it. Even if you got it for free.
That is one of the most unusual books I have ever read. Upon first
reading, the sequence of topics so baffled me that I had to back up and
attempt to discern the order. My conclusion was that the presentation
order was that of depth-first traversal of a tree structure. I have
never seen another such text. Remarkable!
------------------------------
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 V9 Issue 1470
**************************************
