[12501] in Perl-Users-Digest
Perl-Users Digest, Issue: 6101 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 22 22:07:13 1999
Date: Tue, 22 Jun 99 19:00:19 -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 Tue, 22 Jun 1999 Volume: 8 Number: 6101
Today's topics:
Re: [q] Timing of a simple looping cycle PERL vs C (Ilya Zakharevich)
Re: [q] Timing of a simple looping cycle PERL vs C <tchrist@mox.perl.com>
Re: [Req:] Date::Abigail <cassell@mail.cor.epa.gov>
Re: A month behind using localtime(time) ? (Eric Bohlman)
Re: aarrggghhh opening a file... <cassell@mail.cor.epa.gov>
Re: bulk email using SendMail (Eric Bohlman)
Re: bulk email using SendMail <rootbeer@redcat.com>
Can I do this? Conditional Operator construct.... (Mitch)
CGI.pm versus twelve or so lines of code.... <aw096@chebucto.ns.ca>
Re: CGI.pm versus twelve or so lines of code.... <rootbeer@redcat.com>
Re: CGI.pm versus twelve or so lines of code.... (brian d foy)
Re: changing the name of an outputed file <rootbeer@redcat.com>
Re: deleting whitespace <cassell@mail.cor.epa.gov>
Re: deleting whitespace (Marcel Grunauer)
Re: Displaying Adds <tchrist@mox.perl.com>
Re: Displaying Adds (Marcel Grunauer)
Re: Does Perl have a future? <rootbeer@redcat.com>
Re: function to read a line & return it (J. Moreno)
how to get names of all hashes <ramb@synopsys.com>
Re: how to get names of all hashes <jeffp@crusoe.net>
Re: how to get names of all hashes <rootbeer@redcat.com>
interactive web 3D using Perl? <thrane@vsl.gifu-u.ac.jp>
Re: Newbie - Perl books - which to get? (Eric Bohlman)
perl training in Washington DC area? <bdesio@mindspring.com>
Re: perl, htaccess, authorization <rootbeer@redcat.com>
Re: Server Running Perl - Resources? <troyknight@troyknight.eurobell.co.uk>
Re: Summing an array (brian d foy)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 23 Jun 1999 00:40:48 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: [q] Timing of a simple looping cycle PERL vs C
Message-Id: <7kpaeg$agk$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Tom Christiansen
<tchrist@mox.perl.com>],
who wrote in article <376fea66@cs.colorado.edu>:
> In comp.lang.perl.misc, ilya@math.ohio-state.edu (Ilya Zakharevich) writes:
> :Why wold we think so? Perl is *known* to be circa 200 times slower
> :than C for *comparable constructs*. What is your point?
>
> And you are known to *lie* to this newsgroup about this matter.
> STOP LYING, ILYA.
You know perfectly well that my statement is correct, you run the
benchmarks yourselves, got pretty similar results, AND REPORTED THEM
ON THIS NEWSGROUP. So who of us is lying?
See the benchmarks run at the start of this thread. Is the author of
this posting lying too?
Of course, since Perl has more constructs than C, using them can gain
some speed - in the cases when one can use these constructus. As any
intelligent reader could see (and as the original poster saw it), I
was not discussing this.
Ilya
------------------------------
Date: 22 Jun 1999 18:55:41 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: [q] Timing of a simple looping cycle PERL vs C
Message-Id: <3770308d@cs.colorado.edu>
In comp.lang.perl.misc,
ilya@math.ohio-state.edu (Ilya Zakharevich) writes:
:> :Perl is *known* to be circa 200 times slower
:> :than C for *comparable constructs*. What is your point?
:See the benchmarks run at the start of this thread. Is the author of
:this posting lying too?
Snippets in isolation prove nothing. Rigged demos are not new. C has
virtually no constructs comparable to Perl's, and those it does have
are inconsequential. You have to measure real programs. You have never
done that. I have. bwk has. The real numbers for real programs
are nothing like your mythical 200x. Stop spreading FUD.
--tom
--
The most important thing to remember in chemistry is DON'T LICK THE SPOON.
------------------------------
Date: Tue, 22 Jun 1999 17:18:50 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
To: Lee <rlb@intrinsix.ca>
Subject: Re: [Req:] Date::Abigail
Message-Id: <377027EA.77042D48@mail.cor.epa.gov>
[courtesy cc sent to poster]
Lee wrote:
> [an entertaining sub]
>
> It could be improved, I'm sure, but I exhausted my annual cleverness quota
> getting this far with it.
Then you'll want to go over to Mark-Jason Dominus' website
and enjoy his IAQ (Infrequently Asked Questions).
http://www.plover.com/~mjd/perl/IAQ/
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 23 Jun 1999 00:00:46 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: A month behind using localtime(time) ?
Message-Id: <ebohlmanFDr6pA.39n@netcom.com>
Tom Christiansen (tchrist@mox.perl.com) wrote:
: Those are not programmers -- those are script kiddies, which
: were defined by Eric Bohlman as:
:
: Someone who attempts to write Perl (or, rarely, other) code, often
: for pay, without having even an elementary mental model of how
: the language works and with little or no desire to develop one.
: IOW, someone who thinks at the level of "tell me what to type to
: make ___ happen," or alternatively someone who can recite code but
: can't comprehend it. Not to be confused with a novice programmer,
: who is someone who realizes that he needs a mental model to code
: properly and is in the early stages of developing one. The script
: kiddie treats any piece of Perl code as a black box no matter what
: its size is. The novice programmer, OTOH, tries to understand code.
If you're going to use that as a Frequently Stated Quote, please add the
following, which I wrote in a different thread but fits in well, to the
end:
"Script kiddies are to programming what prooftexters are to theology."
------------------------------
Date: Tue, 22 Jun 1999 17:05:13 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: aarrggghhh opening a file...
Message-Id: <377024B9.4337B2C0@mail.cor.epa.gov>
Larry Rosler wrote:
> [SNIP]
> Actually, I like it because I have developed a style that uses && and ||
> to signify normal logical processing of similar expressions, with short-
> circuiting, and 'and' and 'or' to signify a flow-of-control change, as
> in the above example. That is what the ultra-low precedence implies to
> me: one 'clause' or another 'clause'; i.e., more than 'just' an
> expression.
Yes, but I'm still not using The Rosler Idiom in my day-to-day
programming. I'm working on it, though...
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 23 Jun 1999 00:28:18 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: bulk email using SendMail
Message-Id: <ebohlmanFDr7z6.58J@netcom.com>
Dani Koesterich (mrdank@sprintmail.com) wrote:
:
: I revised a script of mine, and now it sends out all of the emails in
: the email address database, however after it is done it gives me a
: "Cannot find server" error and does not display the Success message.
: My script is below, and I would greatly appreciate it if someone
: could help me out. Thank You.
Not necessarily related to your problem, but...
: #Set Variables
: $pw = $in{'password'};
: $database = $in{'database'};
: $subject = $in{'subject'};
: $from = $in{'from'};
: $message = $in{'message'};
: $mailprog = '/usr/sbin/sendmail';
:
: open(DATABASE, $database);
*DO NOT DO THIS!!!* You may not realize it, but you've just given the
whole world permission to destroy *any* file that your script is capable
of writing to! All someone has to do is alter your HTML form, or just
telnet in to your server, and set the value of "database" to some file
name with a '>' in front, and your script will dutifully wipe out that
file.
If you're going to take filenames from the Outside World, at the very
least you should tack a '<' on to them before trying to open them. You
should probably read perlsec. And, of course, you should be checking
whether your opens were successful.
: @Addresses = <DATABASE>;
: close(DATABASE);
: $count = 0;
:
: open (MESSAGE, $message);
The same two problems here.
: @Message = <MESSAGE>;
: close(MESSAGE);
[snip]
: print "Content-type: text/html\n\n";
: exit;
You're going to tell the browser that some HTML is coming and then
withhold it?
: print <<HTML;
: <html>
[snipped]
------------------------------
Date: Tue, 22 Jun 1999 18:02:34 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: bulk email using SendMail
Message-Id: <Pine.GSO.4.02A.9906221800210.1698-100000@user2.teleport.com>
On Tue, 22 Jun 1999, Dani Koesterich wrote:
> require "cgi-lib.pl";
use CGI;
> open(DATABASE, $database);
Even when your script is "just an example" (and perhaps especially in that
case!) you should _always_ check the return value after opening a file.
> open(MAIL,"$mailprog -t -oi -odd");
Here's another case where checking the return value could prove helpful.
Also, do you know what you're asking Perl to do here?
Of course, if you're doing bulk email, I hope you won't be spamming
anyone. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 23 Jun 1999 01:40:18 GMT
From: portboy@home.com (Mitch)
Subject: Can I do this? Conditional Operator construct....
Message-Id: <376fca89.345284973@24.0.3.71>
I'm trying to use the format for "Conditional Operator" of TEST_EXPR ?
IF_TRUE_EXPR : IF_FALSE_EXPR
This works fine, but my question is...Can I do this?
TEST_EXPR ? $some_value = 1; $other_value =0 : IF_FALSE_EXPR
^
I don't seem to be able to do this...Is there a way of accomplishing
this in this type of format?
.mitch
------------------------------
Date: Wed, 23 Jun 1999 00:14:20 GMT
From: hiro <aw096@chebucto.ns.ca>
Subject: CGI.pm versus twelve or so lines of code....
Message-Id: <wFVb3.395$236.13187@sapphire.mtt.net>
I am using the below code to take information from a html form into my cgi
program... A friend at work suggested that I use CGI.pm as it has built in
security features.... Looking at the below code, I don't see any security
concerns... though he was concerned about playing with $ENV variables...
I'm pretty sure it's only reading them, however.... It should be perfectly
safe..
But, I am not sure, which is the reason for this post/query. Is
there anything wrong with using the below code snippet, even in a
non-trusted user environment?
Joe
<--snip-->
if ($ENV{'CONTENT_LENGTH'} ne '') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g;
$FORM{$name} = $value;
}
}
<--snip-->
------------------------------
Date: Tue, 22 Jun 1999 18:31:02 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: CGI.pm versus twelve or so lines of code....
Message-Id: <Pine.GSO.4.02A.9906221824540.1698-100000@user2.teleport.com>
On Wed, 23 Jun 1999, hiro wrote:
> if ($ENV{'CONTENT_LENGTH'} ne '') {
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
This isn't checking for read errors. It's not allowing for request types
other than POST.
> @pairs = split(/&/, $buffer);
> foreach $pair (@pairs) {
> ($name, $value) = split(/=/, $pair);
> $value =~ tr/+/ /;
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> $value =~ s/~!/ ~!/g;
> $FORM{$name} = $value;
> }
> }
This isn't following the CGI spec, it's mangling your data, and it's not
allowing for multiple-value parameters.
http://hoohoo.ncsa.uiuc.edu/cgi/
The CGI module (or another well-written module) will solve all of those
problems and more. Since several of those problems could keep your
programs from running properly (even if everything "seems to work" at the
moment) it's worth switching.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 22 Jun 1999 22:05:35 -0400
From: brian@pm.org (brian d foy)
Subject: Re: CGI.pm versus twelve or so lines of code....
Message-Id: <brian-ya02408000R2206992205350001@news.panix.com>
In article <wFVb3.395$236.13187@sapphire.mtt.net>, hiro <aw096@chebucto.ns.ca> posted:
> I am using the below code to take information from a html form into my cgi
> program... A friend at work suggested that I use CGI.pm as it has built in
> security features.... Looking at the below code, I don't see any security
> concerns... though he was concerned about playing with $ENV variables...
> I'm pretty sure it's only reading them, however.... It should be perfectly
> safe..
> But, I am not sure, which is the reason for this post/query. Is
> there anything wrong with using the below code snippet, even in a
> non-trusted user environment?
you mean besides the many bugs?
[snip same old cargo cult CGI mis-parser]
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: Tue, 22 Jun 1999 17:32:58 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: changing the name of an outputed file
Message-Id: <Pine.GSO.4.02A.9906221731530.1698-100000@user2.teleport.com>
On Tue, 22 Jun 1999, Sean Sidelko wrote:
> I wrote a script that takes a gzipped midi and outputs as a normal
> ungzipped midi file. i was wondering if there was a way that i could
> easily change the name of the outputed midi file to something other
> then the name of the script.
Maybe you want to use perl's open() function, which is documented in the
perlfunc manpages. But maybe you want to tell a remote browser to do
something differently than it's doing. Do you know how to find the docs,
FAQs, and newsgroups about browsers and the protocols they use? Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 22 Jun 1999 17:14:53 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: deleting whitespace
Message-Id: <377026FD.2508E35A@mail.cor.epa.gov>
Larry Rosler wrote:
> [snip]
> 22:32:15 GMT, ted fiedler <tfiedler@ptd.net> says...
> > how do i delete whitespace or for what its worth any junk on a line?
>
> Use a regular expression. Read all about it first, in perlre. You can
> probably find a softer introduction to regular expressions in a Perl
> tutorial. One on the Web was recommended here today.
I find that the regex discussion at
http://www.netcat.co.uk/rob/perl/win32perltut.html
is reasonably complete for a tutorial, and actually tries
to cover some of the common problems. It doesn't hit
*everything*, of course. For that there's perlre...
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Tue, 22 Jun 1999 23:24:43 GMT
From: marcel.grunauer@lovely.net (Marcel Grunauer)
Subject: Re: deleting whitespace
Message-Id: <37721ab7.4682432@enews.newsguy.com>
On Tue, 22 Jun 1999 22:32:15 GMT, "ted fiedler" <tfiedler@ptd.net>
wrote:
>how do i delete whitespace or for what its worth any junk on a line?
perlfaq4: How do I strip blank space from the beginning/end of a
string?
This is a specialized case, but after reading it I'm sure you'll know
how to delete whitespace from anywhere within a string. As for junk,
that depends on the definition of "junk".
Marcel
------------------------------
Date: 22 Jun 1999 18:00:32 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Displaying Adds
Message-Id: <377023a0@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, tadmc@metronet.com (Tad McClellan) writes:
:# script to display some adds (sic)
:use strict;
:my @adds = ('1+1', '2+1', '1+2', '2+2');
:my $i =0;
:while (1) {
: print "$adds[$i]\n";
: sleep 5;
: $i++;
: $i = 0 if $i == 3;
:}
I think you forgot an eval() in there; or perhaps preferably, a
Safe->new->reval() instead.
--tom
--
Heavy, adj.:
Seduced by the chocolate side of the force.
: There may be 2 or three ways to perform a particular task, but there will
: not be 10,000 as there are in perl.
------------------------------
Date: Tue, 22 Jun 1999 23:38:27 GMT
From: marcel.grunauer@lovely.net (Marcel Grunauer)
Subject: Re: Displaying Adds
Message-Id: <37731d4f.5346377@enews.newsguy.com>
On Tue, 22 Jun 1999 21:30:04 GMT, j_a_p@my-deja.com wrote:
>An add apears and after a while an knew add appears.
Don't they teach kids anything about spelling these days?
What a surprise, it's a my-deja account.
Marcel
------------------------------
Date: Tue, 22 Jun 1999 17:57:28 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Does Perl have a future?
Message-Id: <Pine.GSO.4.02A.9906221735570.1698-100000@user2.teleport.com>
On Tue, 22 Jun 1999, Joe Chan wrote:
> Hi, I was asking in my ISP's cgi newsgroup about the possibility of
> installing mod_perl. This is the reply I got from another user
>
> There are a number of downsides to doing this:
> 1) Memory usage. The Apache process can take up large amounts of
> memory if a lot of different modules are requested and a lot of
> different scripts are run.
Yes. If you don't use Apache and mod_perl, other ways of handling these
requests can also take up large amounts of memory.
> 2) A lot of scripts use global variables. Since there is effectively
> only one copy of Perl running, any global variables set by a script
> are available to other scripts and scripts that don't bother
> initialising their global variables will start off with the wrong
> values.
I'm not certain that whoever said that really understood what they were
talking about wrt Apache/mod_perl. Check the mod_perl Guide for more info.
http://perl.apache.org/guide/porting.html#What_s_different_about_modperl
http://perl.apache.org/guide/
> 3) Configuration. It is actually quite difficult to set this up to
> work efficiently.
Based upon the number of sites which have set this up properly, I'd say
this one is refuted. But the Apache site has info on tuning for better
performance.
> 4) Development. Because a script is cached by the process you cannot
> simply upload a new version and expect Apache to serve it correctly. I
> think you have to either restart the Apache process or send it a
> signal that causes it to flush the cache.
True. There is a price to be paid for keeping things in the cache. But how
often do you update your programs? How hard is it to signal that you've
done so? It's not as hard as all that.
> 5) Reliability. mod_perl is really designed for fairly static CGI
> servers where the scripts are tested thoroughly before being available
> via the enhanced server. It is possible for badly written scripts to
> interfere with other scripts and even cause the Apache process to
> crash. This would be a nightmare for the System Adminstrators.
It is possible for badly written CGI programs (written in any language) to
interfere with other processes and even cause the system to run out of
memory, available processes, disk space, or other resources. A good admin
won't let this happen.
> Are these criticisms valid? If so are they also true of Java Servlets
> and Java Server Pages?
I'd say yes and yes, mostly. There is no perfect webserver solution, but
if you want to use Perl, Apache with mod_perl is pretty dang good. Of
course, if you'd prefer to use Java, you might prefer something else....
> Is mod_perl a viable facility for ISP's to supply to subscriber's
> homepages or is it more suited to Corporate Intranets or larger web
> sites running their own servers?
I'd have no problem with using Apache and mod_perl for virtually any
website. And it's inexpensive to set them up on your own Linux machine to
see what it's really like - try it out! If you don't like it, you can
change to another system and see whether that's better for your needs or
not.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 22 Jun 1999 21:01:11 -0400
From: planb@newsreaders.com (J. Moreno)
Subject: Re: function to read a line & return it
Message-Id: <1dttj1l.1j03tm8clbvuhN@roxboro0-0061.dyn.interpath.net>
Tom Christiansen <tchrist@mox.perl.com> wrote:
> [courtesy cc of this posting mailed to cited author]
>
> In comp.lang.perl.misc,
> "John A. Grant" <zjagrantz@znrcanz.gcz.ca> writes:
> : The "--" isn't in my .sig file - the newsreader adds "--", so
> : I don't have the choice.
>
> Then fix your newsreader! Sheesh. Or have the author fix it.
> It's got to be the most trivial of fixes. What ever happened
> to the Good Netkeeping Seal of Approval?
It's still around, but MS OE doesn't pass, and this is hardly it's worse
offense.
--
John Moreno
------------------------------
Date: 22 Jun 1999 17:45:47 -0700
From: Ram Bhamidipaty <ramb@synopsys.com>
Subject: how to get names of all hashes
Message-Id: <djso7jg2x0.fsf@synopsys.com>
Is there a way to get the names of all hashes that
currently exist in my perl program? I'm looking for
something similar to the "info" command in tcl/tk.
Thanks for any tips.
-Ram
------------------------------
Date: Tue, 22 Jun 1999 21:23:58 -0400
From: evil Japh <jeffp@crusoe.net>
Subject: Re: how to get names of all hashes
Message-Id: <Pine.GSO.3.96.990622212126.12242G-100000@crusoe.crusoe.net>
> Is there a way to get the names of all hashes that
> currently exist in my perl program? I'm looking for
> something similar to the "info" command in tcl/tk.
Absolutely. It's in Chapter 5 of "Programming Perl, edition 2" by
O'Reilly.
I will duplicate the desired section for you here. Note: this only
searches for hashes in package main.
{
no strict 'refs';
for $symname (sort keys %main::){
local *sym = $main::{$symname};
print "\%$symname is defined\n" if defined %sym;
}
}
--
Jeff Pinyan (jeffp@crusoe.net)
www.crusoe.net/~jeffp
Crusoe Communications, Inc.
732-728-9800
www.crusoe.net
------------------------------
Date: Tue, 22 Jun 1999 18:34:04 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: how to get names of all hashes
Message-Id: <Pine.GSO.4.02A.9906221832500.1698-100000@user2.teleport.com>
On 22 Jun 1999, Ram Bhamidipaty wrote:
> Is there a way to get the names of all hashes that
> currently exist in my perl program?
No, not really. Most similar programming languages don't offer this,
either.
You could look for global hashes in the symbol table, but I don't think
that's what you want. It's not likely to be useful, either.
What are you trying to accomplish with this information?
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 23 Jun 1999 09:10:57 +0900
From: "Thrane" <thrane@vsl.gifu-u.ac.jp>
Subject: interactive web 3D using Perl?
Message-Id: <7kp8mi$f7m$1@gunews.cc.gifu-u.ac.jp>
hi
wondering if anyone has experience in building 3D interfaces on the web
using Perl? Mostly 3D line vector and polygons that can be rotated/navigated
by the user, texture maps applied, and interfaced with a particle system
front end?
simple example: a wireframe cube that can be rotated in realtime, volume
connected to database that determines it's size value.
I'm looking for a solution for a persistent database system that can build
and display virtual environments built from particle systems on the web.
Can this be done in Perl?
any examples or sources that I can be pointed to? I would really appreciate
the help!
many greetings
scot thrane
virtual system lab, gifu university, japan
thrane@vsl.gifu-u.ac.jp
------------------------------
Date: Wed, 23 Jun 1999 00:11:24 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Newbie - Perl books - which to get?
Message-Id: <ebohlmanFDr770.44o@netcom.com>
David Cassell (cassell@mail.cor.epa.gov) wrote:
:
: > Advanced Level -
: > Effective Perl Programming: Writing Better Programs with Perl - Joseph
: > N. Hall
: > Programming Perl (2nd Edition) - Larry Wall
:
: These two are good. So are the Ram (The Perl Cookbook)
: and the Black Leopard (Advanced Perl Programming). Go
: for all four.
Later this summer, O'Reilly is coming out with a CD-ROM for about $60
with *both* versions of _Learning Perl_, _Perl in a Nutshell_, the Camel,
the Ram, and I *think* the Panther (aka "Black Leopard") as well. Of
course, it might not be the easiest thing to read in the bathroom...
:
: > Perl: The Programmer's Companion - Nigel Chapman
:
: I don't know enough about this one personally to make a
: recommendation, but you can read a quick review of it at
: http://www.perl.com/perl/critiques/index.html .
I've seen only a little of it, but quite a few people have said it's a
very good introduction to Perl for someone who already has a very strong
programming background.
------------------------------
Date: Tue, 22 Jun 1999 20:40:16 -0400
From: "Blair" <bdesio@mindspring.com>
Subject: perl training in Washington DC area?
Message-Id: <7kpadk$bi8$1@nntp1.atl.mindspring.net>
Does anyone know of anyone in the DC area that gives Perl training?
------------------------------
Date: Tue, 22 Jun 1999 17:34:45 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: perl, htaccess, authorization
Message-Id: <Pine.GSO.4.02A.9906221734000.1698-100000@user2.teleport.com>
On Tue, 22 Jun 1999 pweck@ixc.net wrote:
> What do i need to do to keep the directories password protected, but
> at the same time allow the scripts in those directories to be
> accessed?
It sounds as if you want to tell your server to do something. Do you know
how to find the docs, FAQs, and newsgroups about servers? Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 23 Jun 1999 02:24:24 +0100
From: "Troy Knight" <troyknight@troyknight.eurobell.co.uk>
Subject: Re: Server Running Perl - Resources?
Message-Id: <7kpcq3$i2$1@aub.eurobell.net>
TRG Software : Tim Greer <webmaster@chatbase.com> wrote in message
news:376EBBBB.DDF2E924@chatbase.com...
> Troy Knight wrote:
> >
> > This isn't the best place to ask about servers but I guess your all
pretty
> > knowledgable about servers seeing as most people set them up when they
> > program in perl.
>
> I would guess most don't. You should read through more of the posts
> here. :-)
>
> > What kind of a system would be needed to run a server online for one
large
> > website which uses up alot of cgi resources.
>
> I don't know, how well can you write a CGI script? Can you write them
> efficiently? Or do you write slow, buggy programs? Do you plan to make
> the same mistake as a lot of other sites and use free CGI scripts?
>
--If I can program in perl why would I need to use free scripts?
> > A pop, smtp, nntp server would
> > also be running on the same machine with a couple of hundred users.
>
> A couple of hundred users at once? A couple of hundred users at once
> hitting those CGI scripts? Relaying huge emails? downloading 100's of NG
> posts per minute?
>
--Couple of hundred users/accounts, as I said
> > The site
> > would be getting about 5000 visitors a day.
>
> Visitors or hits? What will they be doing? Is this on top of the 100
> other users?
>
--5000 visitors, as it says
> > I have a p166mmx with 64meg of
> > ram and an average speed hd.
>
> What OS? What web server? What sort of connection?
>
> > Any ideas then anyone on whether this could cope with all that load?
>
> I don't know, how well can *you* set up, maintain and run a web server?
> How well can you code CGI scripts? Are you going to do this yourself or
> hire someone to set it up? Why don't you ask the person you plan to hire
> to set it up, of what would work? Do you have someone to set this up for
> you? It sounds to me like you need someone to set it up... Want to hire
> me? You can tell me everything you want to do, plan to do, etc. and I'll
> tell you what you need, and I'll set it up for you.
>
--I've seen better ads!
> You'd be better off asking this in another NG, something more geared
> towards web servers.
--Okay, fair enough.
You made no mention of what you plan to even run? A
> Unix variant? An NT server? A Mac with WebStar? What? You can just as
> easily ask this question in a sendmail NG (Are you going to run
> sendmail, qmail, or?) if you plan to, a TCL NG, a Python NG, a C or C++
> NG, an Apache NG, a _CGI_ NG, or anything else you plan to use/run/have
> on that server.
> --
> Regards,
> Tim Greer: chatmaster@chatbase.com / software@linkworm.com
> Chat Base: http://www.chatbase.com | 250,000+ hits daily Worldwide!
> TRG Software: http://www.linkworm.com | CGI scripting in Perl/C, & more.
> Unix/NT/Novell Administration, Security, Web Design, ASP, SQL, & more.
> Freelance Programming & Consulting, Musician, Martial Arts, Sciences.
------------------------------
Date: Tue, 22 Jun 1999 20:54:20 -0400
From: brian@pm.org (brian d foy)
Subject: Re: Summing an array
Message-Id: <brian-ya02408000R2206992054200001@news.panix.com>
In article <x7pv2o6l7m.fsf@home.sysarch.com>, Uri Guttman <uri@sysarch.com> posted:
>
> my $sum ;
> $sum += $_ foreach @addends ;
>
> can't get much simpler (except in apl where it is "SUM<-ARRAY/+" IIR)
simpler and much faster, even for N=10:
use builtin qw(sum);
my $sum = sum(@array);
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 6101
**************************************
