[11935] in Perl-Users-Digest
Perl-Users Digest, Issue: 5535 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat May 1 12:07:12 1999
Date: Sat, 1 May 99 09:00:17 -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 Sat, 1 May 1999 Volume: 8 Number: 5535
Today's topics:
Re: $ENV...Explained <gellyfish@gellyfish.com>
Re: a complex associative array problem <gellyfish@gellyfish.com>
Re: An explanation of sort <gellyfish@gellyfish.com>
Re: checking the existence of a directory (Michel Dalle)
Re: Clearing Screen (Larry Rosler)
Re: Counting files in a dir. <sculder@mully.com>
Re: How to flush CGI output? <gellyfish@gellyfish.com>
Re: MLM perl script <uri@sysarch.com>
Re: Newsfeed and Local Weather <uri@sysarch.com>
Re: Newsfeed and Local Weather <tchrist@mox.perl.com>
Re: Perl @INC <tchrist@mox.perl.com>
Re: Perl on a 386 with 2 MB RAM??? (Juho Cederstrom)
Re: Please Help :-( (Michel Dalle)
Possible to modify gif/jpeg images with Perl?? <eichner@gmx.de>
Re: RegEx for matching Mbx "From " delimeter <nicholas.brenckle@yale.edu>
Sorting numbers <basvreek@xs5all.nl>
Re: using perl to manage passwords? <flavell@mail.cern.ch>
Who is Just another Perl hacker? (Juho Cederstrom)
Re: Who is Just another Perl hacker? <tchrist@mox.perl.com>
Won't write to file in the middle of CGI script <hornes@rpi.edu>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 1 May 1999 13:54:12 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: $ENV...Explained
Message-Id: <7gf124$2r6$1@gellyfish.btinternet.com>
On Fri, 30 Apr 1999 22:25:35 -0400 Pierre-Luc wrote:
> Here are all I know :
>
> AUTH_TYPE
<snip useless list of possible CGI environment variables>
Fine but whats the point in guessing.
A) I posted a link to the CGI specification that is definitive on
this matter. For those whose news servers have over-zealous
expiry policies that is : <http://hoohoo.ncsa.uiuc.edu> .
B) I posted a script that would show the existing variables.
for those too challenged to attempt to try it out - the output
on my system is :
SERVER_SOFTWARE = Apache/1.3.3 (Unix) mod_perl/1.17
GATEWAY_INTERFACE = CGI/1.1
DOCUMENT_ROOT = /usr/local/httpd/htdocs
REMOTE_ADDR = 127.0.0.1
SERVER_PROTOCOL = HTTP/1.0
SERVER_SIGNATURE =
REQUEST_METHOD = GET
QUERY_STRING =
HTTP_USER_AGENT = Lynx/2.7.2 libwww-FM/2.14
PATH = /sbin:/bin:/usr/sbin:/usr/bin
HTTP_ACCEPT = text/html, text/plain, audio/x-pn-realaudio, image/*, image/jpeg,
text/sgml, video/mpeg, image/jpeg, image/tiff, image/x-rgb, image/png, image/x
-xbitmap, image/x-xbm, image/gif, application/postscript, */*;q=0.01
REMOTE_PORT = 1117
HTTP_ACCEPT_LANGUAGE = en
SCRIPT_NAME = /cgi-bin/printenv
HTTP_ACCEPT_ENCODING = gzip, compress
SCRIPT_FILENAME = /usr/local/httpd/cgi-bin/printenv
SERVER_NAME = gellyfish.btinternet.com
REQUEST_URI = /cgi-bin/printenv
SERVER_PORT = 80
HTTP_HOST = localhost
HTTP_NEGOTIATE = trans
SERVER_ADMIN = you@your.address
Now please take this CGI stuff to the proper newsgroup.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 1 May 1999 14:49:56 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: a complex associative array problem
Message-Id: <7gf4ak$2rv$1@gellyfish.btinternet.com>
On Thu, 29 Apr 1999 21:13:39 GMT du_bing@my-dejanews.com wrote:
>
>
> I fixed the problem myself.
>
Although it might seem a minor thing, it is generally considered polite
in these cases to post back the solution to the group in order that those
who might find themselves in a similar position can find the answer.
Oh and so we jaded hackers can have a little fun at your expense picking
your code to bits ;-}
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 1 May 1999 14:46:51 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: An explanation of sort
Message-Id: <7gf44r$2rs$1@gellyfish.btinternet.com>
On Thu, 29 Apr 1999 17:13:10 -0700 David Cassell wrote:
> Larry Rosler wrote:
>>
>> In article <3728D0A6.FA11976F@home.com> on Thu, 29 Apr 1999 21:37:12
>> GMT, Rick Delaney <rick.delaney@home.com> says...
>> > Jerome O'Neil wrote:
>> > >
>> > > Larry Rosler wrote:
>> > > >
>> > > > wouldn't be as silly and seems considerably more perspicuous.
>> > >
>> > > I'm well versed in silly, but how would I know if I'm being perspicous?
>> > > Or, if I were being perspicious, what would I be?
>> >
>> > Don't they have dictionaries in Seattle? I'm not sure if there's a joke
>> > in those misspellings or not. I guess I'm not very perspicacious. :-)
>>
>> Perspicuity is a virtue for programs (except JAPHs and Obscure Perl
>> contests, of course). Perspicacity is a virtue for programmers. Maybe
>> the latter should be added to The Larry's list of three.
>>
>> Non-native English speakers might find these words more familiar than
>> some of us natives, especially if they have backgrounds in Latin (which
>> most of us don't).
>
> But most of us should, IMHO. They both come from the Latin
> _perspicere_ . Not to be confused with _spicare_ or _specere_ .
> Or spick-and-span.
>
> Surely all Perl programmers should have to take a foreign language
> to get their `certification'. :-)
>
Well all those from non-English speaking natives have to learn English
or they get flamed here for not reading the documentation.
Anyhow I got a seriously cheesy 'certificate' through the post from
Tek-Metrics: remember them ?
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 01 May 1999 14:58:57 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: checking the existence of a directory
Message-Id: <7gf4pv$56g$1@xenon.inbe.net>
In article <372adee9@newsread3.dircon.co.uk>, "Paul Davies" <cobalt@dircon.co.uk> wrote:
[snip]
>How do I check for the existence of the directory in Perl?
-d
Michel.
--
aWebVisit - extracts visitor information from WWW logfiles and shows
the top entry, transit, exit and 'hit&run' pages, the links followed
inside your website, the time spent per page, the visit duration etc.
For more details, see http://gallery.uunet.be/Michel.Dalle/awv.html
------------------------------
Date: Sat, 1 May 1999 08:12:03 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Clearing Screen
Message-Id: <MPG.1194b99bc361748e989986@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <372A425C.C05E567D@home.com> on Fri, 30 Apr 1999 23:55:51
GMT, Kenneth Rose <kenrose@home.com> says...
> Quick question...have a contest tomorrow and wondering if this can be
> done: clearing the screen.
perlfaq8: "How do I clear the screen?"
Too late for your contest?
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sun, 2 May 1999 00:31:18 +0930
From: "Grade level 3" <sculder@mully.com>
Subject: Re: Counting files in a dir.
Message-Id: <KQDW2.5590$116.8148@news2.ozemail.com.au>
Thats what I love about this Newsgroup, you get absolutely roasted for
asking a dumb question, but at the same time you are often giving quite
useful answers.
(I was less scared of my english teacher than some of you guys, and hell you
aren't even in the same room <grin>)
As a certain cartoon character once said 'I love you guys.'
David Cassell wrote in message <372500D2.6DEBD1BC@mail.cor.epa.gov>...
>stevenabell wrote:
>>
>> Dear All,
>>
>> If the answers to some of my questions are in the FAQs then I'm
>> afraid that you'll have to forgive me. I did look through them a
>> week or so ago, but since then I don't seem to have been able to get
>> back in, and a few rather urgent problems have come up since.
>> So, any help on any of the following would be *terrific* :)
>
>I take it this means you're reading them off www.perl.com instead
>of your own hard disk. That's the slow and painful way. If your
>sysadmin did a decent job, you should be able to read the Perl
>manpages using `man'. And if you have a reasonably up-to-date
>Perl, you should be able to use `perldoc' too. Type
>
>perldoc perldoc
>
>And you *should* get a help page for perldoc. Otherwise,
>complain that you're being held back in your work because the
>version of Perl hasn't been kept up-to-date.
>
>> 1. Is it possible in Perl to count the number of files in a directory
>> and assign that to a variable? Because the files are situated in a
>> UNIX directory, I did think of doing something like:
>
>In the docs on your hard disk, you'll find a lot of material on
>opendir() and readdir(). Look at the exmaples there.
>
>> `ls testdir/*.* > list`
>> and then count the number of lines in "list", but surely there's
>> another way? (I don't even know the correct syntax for the above to
>> work)
>
>And this doesn't get the right answer anyway. Don't you want to
>count files that start with `.'? Do you want to count symlinks?
>directories? Look at the filetest functions in the perlfunc manpage.
>[look for -X No, really!]
>
>> 2. I have a number of files which I must perform a UNIX function on.
>> Well, in fact it's a Shell application, called "stoplist". What I need
>> to do is apply "stoplist" to each document and then place the treated
>> documents in another directory. The original number of files to be
>> treated will always vary, but will always be grouped together in the
>> same directory. So for example, if we have the following files:
>> [example snipped]
>
>You might want to look at the File::Find module, and check out
>its example code. Write it up, and if you get stuck you can show us
>your code and ask for some more advice.
>
>
>> 3. [another snip]
>> what I need to do is rename each file according to the length of its
>> path, so that they are renamed as follows:
>
>Your paths #1 and #3 are the same length. How do you get differences
>there? I don't follow this at all.
>
>> 4. I have a Perl script [another snip]
>> . Simplified, the script looks something like:
>>
>> if {$var eq "red"}
>> &return;
>> exit;
>> else {$var eq "blue"}
>> exit;
>>
>> sub return
>> {
>> print "<HTML>......"
>> }
>
>I don't think so. This won't even compile. What does your
>*real* code look like? You might want to look at the perlsyn page
>and see what if statements look like in Perl. And the section on
>`switch' in Perl. And don't you think it's a bad idea to name your
>subroutine `return' when it just prints?
>
>> Even though I have the "exit"s in the script, when it generates the
>> results it still doesn't bomb out.
>
>I think it does `bomb out', in at least one sense of the word.
>But Perl won't even run what you have so far.
>
>> Like I said, if the answers to any of these are in the FAQs, then
>> please accept my apologies. Any replies / solutions would make it a
>> [one more snip]
>
>Please, if you don't know Perl, either code this in a language you
>do know, or else get some expert consulting help. You won't be
>able to get all your coding done here. In fact, most people in this
>newsgroup expect posters to have `done their homework first', so to
>speak.
>
>David
>--
>David Cassell, OAO cassell@mail.cor.epa.gov
>Senior Computing Specialist phone: (541) 754-4468
>mathematical statistician fax: (541) 754-4716
------------------------------
Date: 1 May 1999 13:23:35 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: How to flush CGI output?
Message-Id: <7gev8n$2o7$1@gellyfish.btinternet.com>
On Fri, 30 Apr 1999 13:20:38 +0300 Juho Cederstrom wrote:
> On 29 Apr 1999 21:28:11 GMT,
> JUNYI J LIN <jlmy@orion> wrote:
>> #!/usr/bin/perl
>
> # Put here:
> use IO::Handle;
> STDOUT->autoflush( 1 );
>
Great :
-r--r--r-- 1 root root 12113 Oct 7 1998 IO/Handle.pm
All for
$| = 1;
Thats about a 1:2000 ratio of redundancy or am I missing something ?
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 01 May 1999 10:48:34 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: MLM perl script
Message-Id: <x73e1g6e2l.fsf@home.sysarch.com>
>>>>> "JS" == Jonathan Stowe <gellyfish@gellyfish.com> writes:
JS> On 30 Apr 1999 23:43:18 -0400 Uri Guttman wrote:
>>>>>>> "c" == cpl11 <cpl11@netcom.ca> writes:
>>
c> Where I can find a good MLM program perl scripts
c> thanks for information
>>
>> i have one you can buy by sending me $1000 and putting your name into
>> /dev/null. it is guaranteed to work as i will get your money and your
>> name will be on the top of the list in /dev/null. so send your money
>> today, don't delay, wire it, snail mail it, but send it now!!
>>
JS> <snip proposal for most excellent MLM script :>
the really funny thing is that i had been planning for a long time to
write such a viral letter as a great joke and send it to some lists. its
title would have been "$$$MAKE ME MONEY FAST$$$$!!!!! and it would have
been a more elaborate and better written document with my real
address. it would have warnings it is a joke in there but if some
suckers actually sent me money, then all the better! so i consider that
post a first draft of my great SLM (single level since it make ME money
fast!) letter.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 01 May 1999 10:41:46 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Newsfeed and Local Weather
Message-Id: <x77lqs6edx.fsf@home.sysarch.com>
>>>>> "TC" == Tom Christiansen <tchrist@mox.perl.com> writes:
TC> [courtesy cc of this posting sent to cited author via email]
TC> In comp.lang.perl.misc,
TC> Uri Guttman <uri@sysarch.com> writes:
TC> Congratulations, Uri! You have missed the point entirely.
why, thank you, tom!
actually i ignored the point. i saw that it was a script to embed man
doc templates into perl scripts, showing that larry liked embedded man
in perl. it was probably before pod was around as his lack of use of
perl5 stuff would indicate. i just felt like commenting on the actual
perl code anyway. it did seem to need critiquing and if any hapless
newbie saw it an assume that if larry wall wrote code like that then
they should copy it, i would be irresponsible. i hope he (or anyone)
doesn't use this as using pod will give you man formats as well as
others and be more legible to boot. having used very old versions of
roff (on RT-11!!) man years ago, i appreciate pod for its readability
and simplicity. i would not want to write nroff directly again if i
could avoid it.
uri (who is not as blind as i may act)
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 1 May 1999 09:04:41 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Newsfeed and Local Weather
Message-Id: <372b1809@cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Uri Guttman <uri@sysarch.com> writes:
:actually i ignored the point. i saw that it was a script to embed man
:doc templates into perl scripts, showing that larry liked embedded man
:in perl. it was probably before pod was around as his lack of use of
:perl5 stuff would indicate. i just felt like commenting on the actual
:perl code anyway. it did seem to need critiquing and if any hapless
:newbie saw it an assume that if larry wall wrote code like that then
:they should copy it, i would be irresponsible. i hope he (or anyone)
:doesn't use this as using pod will give you man formats as well as
:others and be more legible to boot. having used very old versions of
:roff (on RT-11!!) man years ago, i appreciate pod for its readability
:and simplicity. i would not want to write nroff directly again if i
:could avoid it.
Gosh, that's hard to read. Try it this way instead:
Actually, I ignored the point. I saw that it was a program to embed
man doc templates into Perl programs, showing that Larry liked
embedded man in Perl. It was probably before pod was around as
his lack of use of perl5 stuff would indicate. I just felt like
commenting on the actual Perl code anyway. It did seem to need
critiquing, and if any hapless neophyte were to see it and assume
that just because Larry Wall wrote code like that, they should
copy that wrapman, then I would be irresponsible. I hope Larry
(or anyone) doesn't use this as using pod will give you man formats
as well as others -- and be more legible to boot. Having used very
old versions of roff (on RT-11!!) many years ago, I appreciate pod
for its readability and simplicity. I would not want to write nroff
directly again if I could avoid it.
I don't see how it is that you should be feeling irresponsible, but
whatever.
--tom
--
"When you type to UNIX, a gnome deep in the system is gathering your
characters and saving them in a secret place." - Unix 6th edition manual
------------------------------
Date: 1 May 1999 08:36:35 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Perl @INC
Message-Id: <372b1173@cs.colorado.edu>
In alt.unix.wizards, some dork who doesn't deserve an answer because he
screwed up his signature writes:
:Can anyone tell me how to change the default perl include directories as
:found in @INC in perl? I know how to alter it within a perl script but
:need the system default settings changed. We upgraded our server (RedHat
:5.3) recently and perl is no longer in the same directory (stupid
:sysadmin) and the @inc array still points to the old dirs.
You have several choices:
1) rebuild perl from scratch, and do it right.
2) make symbolic links from where it is to where it thinks it is.
3) patch the binary, if you can.
4) install a PERL5LIB envariable in the system startup scripts.
5) do a loopback nfs mount to the right place.
The only correct thing to do is #1.
--tom
--
Hiccough has the sound of cup.
My advice is to give up!!!
------------------------------
Date: Fri, 30 Apr 1999 19:25:57 +0300
From: cederstrom@kolumbus.REMOVE_THIS.fi (Juho Cederstrom)
Subject: Re: Perl on a 386 with 2 MB RAM???
Message-Id: <slrn7ijmcl.12o.cederstrom@vortex.cede.net>
On 30 Apr 1999 12:57:59 GMT,
Sam Holden <sholden@pgrad.cs.usyd.edu.au> wrote:
> >Yes. It is spelled "Linux".
> Perl under linux with only 2MB of RAM...
Well, if there's large enough swap partition, it might work. But of
course it's slow.
--
# This perl script will show juhoc's real email address
$_ = 'my e-mail address is NOT fi@cederstrom.kolumbus';
s/N\S+\s//g;s/(\S+)\@(\w+)\.(\w+)$/$2\@$3\.$1\n/;print;
------------------------------
Date: Sat, 01 May 1999 15:07:03 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: Please Help :-(
Message-Id: <7gf595$56g$2@xenon.inbe.net>
In article <4WCW2.255$%x.39@wards>, "Sandwell" <JK@sandwell98.free-online.co.uk> wrote:
>Dear All,
>
>How do you do the following using Perl on a Ulinix server...
>
>1. From a HTML form take all the filled in bits by the user and then assign
>them in the perl script, for example a name in the form is 'Email'.
>
>2. How do you show a HTML form with the email address in it, so the HTML
>page shows the user -
>
>"You email address - "
Hmmm, excellent question. I never heard this one before... :-(
Why don't you try the following :
1) send this question to comp.infosystems.www.authoring.cgi
2) read up a little bit on Perl and CGI
3) use a CGI module to do the work for you
4) go to the CGI Resource Index for 1500+ scripts that do it all for you
5) get out of here quickly
Your friendly neighbour,
Michel.
--
aWebVisit - extracts visitor information from WWW logfiles and shows
the top entry, transit, exit and 'hit&run' pages, the links followed
inside your website, the time spent per page, the visit duration etc.
For more details, see http://gallery.uunet.be/Michel.Dalle/awv.html
------------------------------
Date: Sat, 1 May 1999 14:17:07 +0100
From: "darkstar" <eichner@gmx.de>
Subject: Possible to modify gif/jpeg images with Perl??
Message-Id: <7geusm$lrr$1@black.news.nacamar.net>
Hi all,
i want to modify a gif or a jpg image with perl. I must resize an existing
image. Is this possible with perl or have you any ideas?
Thanks for any help
Michael
------------------------------
Date: Sat, 01 May 1999 09:56:51 -0400
From: Nicholas Brenckle <nicholas.brenckle@yale.edu>
Subject: Re: RegEx for matching Mbx "From " delimeter
Message-Id: <372B0823.C82FE36D@yale.edu>
Not exactly. Becase I need the data that may (or may not) be in the line.
There may (or may not) be an email address in all of its many forms followed
by a date. (or is it the other way around? Can your email address get a date
without you?) And so I need to not only match ( /^From /) but then need to
pull the data, if its there, from it. So how do I do that? Remember that some
of the data is optional. Can I use || in a RegEx?
-Nick
Ronald J Kimball wrote:
> Nicholas Brenckle <nicholas.brenckle@yale.edu> wrote:
>
> > SO: The problem is my pattern matching doesnt conform to the RFC (Anyone
> > know the right number?) for mbx format and I miss a few here and there.
> > Does anyone have a suggested expression for this line?
>
> Don't you just need to match "From " at the beginning of a line?
>
> --
> _ / ' _ / - aka -
> ( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
> / http://www.tiac.net/users/chipmunk/
> "It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sat, 1 May 1999 17:53:49 +0200
From: "Bas van Reek" <basvreek@xs5all.nl>
Subject: Sorting numbers
Message-Id: <7gf810$hev$1@weber.a2000.nl>
I wrote a search script that gives points to the search results,
after that it (reverse) sorts the results by the points.
But now comes the problem :
eg. The sorted result looks like this :
10
110
21
2200
300
As you can see, the sorting routine sorts on the first number.
I have found a work-around to solve this by adding
underslashes _ to the lower numbers
in the example the sorted result now looks like this.
__10
__21
_110
_300
2200
This works fine, but isn't there a simpler solution ?
(if you reply by email change the 5 into 4)
------------------------------
Date: Sat, 1 May 1999 15:12:20 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: using perl to manage passwords?
Message-Id: <Pine.HPP.3.95a.990501150733.3696C-100000@hpplus01.cern.ch>
On Sat, 1 May 1999, Steve MacLellan wrote:
> On Fri, 30 Apr 1999 11:52:10 -0400, tadmc@metronet.com (Tad McClellan)
> wrote:
>
> > I'm sure many in the group would not want to see how to do
> > that because they do not care about the WWW.
>
> I'm new here; new to Perl.
And to usenet, it seems.
> You must be the leader?
Q.E.D.
> > This is the Perl newsgroup. We talk about Perl type stuff here.
[vapouring omitted]
> Let's get one thing straight. I'm a forty year old man who isn't going
> to let some snot nose pompous asshole tell me what I can post and what
> I can't.
Everybody loves a netiquette-buster. You're probably convinced in your
own mind that you've struck another blow for free speech. Sigh.
------------------------------
Date: Sat, 1 May 1999 11:41:43 +0300
From: cederstrom@kolumbus.REMOVE_THIS.fi (Juho Cederstrom)
Subject: Who is Just another Perl hacker?
Message-Id: <slrn7ilfi6.2n8.cederstrom@vortex.cede.net>
Keywords: JAPH Just another Perl Hacker
I'm worried. About myself.
[ this was a long ago, but... ]
In message <371CAAB6.6846BFE5@mail.cor.epa.gov>,
David Cassell <cassell@mail.cor.epa.gov> wrote:
> You'll know you've become a Perl programmer when you read them and
> laugh, and agree with the underlying point.
> And then it will be too late for you.
> You'll find yourself making fun of toy OSes and java programmers.
> You'll find yourself making disparaging remarks about people who
> think Perl is just for CGI, or just for shell programming.
> You'll find yourself wondering what Larry would do in your place.
> And then it will be too late! You'll be one of us, never able to
> return! <nefarious laugh goes here>
Well, it seems that I'm almost a Perl programmer. I think that most
things are easiest to do with Perl. I've even controlled my room's LED
"trafic lights" in Perl. I agree with the underlying points of
Abigail's posts. I make fun of toy OSes. Etc. Well, I can't make fun of
Java programmers, because I like Java also. Not as much as Perl, but
anyway. You can't make Perl applets (yet?), so Perl isn't answer to
everything (in my life). This doesn't bother me.
But when do I become Just another Perl hacker? Who are they? I've read
the FAQ, but it doesn't answer my question. If I replace my email
signature with JAPH, do I break some kind of law?
Or is Just another Perl Hacker a person who just hacks Perl?
--
# This perl script will show juhoc's real email address
$_ = 'my e-mail address is NOT fi@cederstrom.kolumbus';
s/N\S+\s//g;s/(\S+)\@(\w+)\.(\w+)$/$2\@$3\.$1\n/;print;
------------------------------
Date: 1 May 1999 09:09:14 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Who is Just another Perl hacker?
Message-Id: <372b191a@cs.colorado.edu>
Keywords: JAPH Just another Perl Hacker
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
cederstrom@kolumbus.REMOVE_THIS.fi writes:
:But when do I become Just another Perl hacker? Who are they?
+------------------------------+
| Seven Levels of Perl Mastery |
+------------------------------+
Novice
1. Thinks CGI and Perl are interchangeable terms.
2. Still thinks Perl looks like bad C code viewed over a noisy modem.
3. Is insecure about the concept of dollar signs.
4. Thinks Perl should be more like sh or tcl.
5. Has heard of the ``Unix mindset'', but hopes it's a treatable
condition.
6. Can't figure out how to read input from the keyboard.
7. Thinks regular expressions are somebody cursing.
8. Wonders why no one can give him a straight answer about whether Perl is
compiled or interpreted.
Initiate
1. Has begun to learn about $_ -- and doesn't like it a bit.
2. Thinks -w flag is a waste of time.
3. Thinks Perl should be more like C++ or Java.
4. Is still trying to figure why Perl has two different kinds of arrays.
5. Knows how to use perlbug, but sends in bogus bug reports.
6. Has been bitten by implicit context conversions, but hasn't caught on
yet.
7. Can't keep == separate from eq, and thinks that + should concatenate
strings.
User
1. Thinks Perl is just for text processing.
2. Uses the Perl debugger.
3. Has used other people's modules.
4. Wonders what an object is.
5. Knows their way around CPAN.
6. Knows the difference between local and my.
7. Uses <DATA>.
8. Is still trying to figure what references are for.
9. Thinks Perl should be more like scheme or eiffel.
10. Submits real bug reports with perlbug.
Expert
1. Write JAPHs to impress their friends and annoy their coworkers.
2. Begins all programs with use strict.
3. Thinks Perl should just be Perl.
4. Has taken enough advantage of cryptocontext to annoy others.
5. Knows how to create records and objects with hash refs.
6. Uses syscall to get at undocumented operating system calls.
7. Curses the flexibility of the Perl object system.
8. Uses /e in substitutes.
9. Has begun to wonder what typeglobs are for.
10. Has written their own modules in Perl.
11. Begins to look at all data in terms of regular expressions.
12. Understands why regexes can't match nested data.
13. Rewrites minor utilities in Perl.
Hacker
1. Writes games in Perl.
2. Has written extension modules in C.
3. Uses AUTOLOAD and closures in curious ways.
4. Appreciates the aethetics of the Schwartzian Transform.
5. Delights in the flexibility of the Perl object system.
6. Has written their own pod2XXX translator.
7. Understands the output from Perl -Dflags.
8. Accesses the Perl symbol table directly.
9. Submits bug reports with working patches.
10. Edits files using a special Perl-embedded version of vi or emacs.
11. Has contributed modules, manpages, and tools to the standard Perl
distribution.
Guru
1. Can answer any Perl question instantly.
2. Can write anything in Perl -- and does.
3. Takes advantage of undocumented language features.
4. Writes code that gives even Larry pause.
5. Implements opaque objects and compiled regexes using closures.
6. Can read and understand the output of the perl-to-C compiler.
7. Embeds Perl interpreters in larger applications.
8. Has written their own -d:debugger module.
9. Used object-oriented programming before it existed.
10. Is debating taking their turn with the patch pumpkin.
Wizard
1. Is on a first-name basis with Larry's wife.
2. Has written or rewritten major areas in the Perl compiler or
interpreter.
3. Is thinking about rewriting the regex engine, the memory allocator, or
the garbage collector.
4. Doesn't write games in Perl, because they realize that Perl itself is
the game.
--
Real programmers can write assembly code in any language. :-)
--Larry Wall in <8571@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: Sat, 1 May 1999 11:19:09 -0400
From: "Steve Horne" <hornes@rpi.edu>
Subject: Won't write to file in the middle of CGI script
Message-Id: <7gf5pa$stm$1@newsfeeds.rpi.edu>
Hi --
I am having a very strange and inexplicable (to me) problem. I have a cgi
script where if I run it from the prompt, it runs fine and will output the
files it should, but if I run it from a webpage as a CGI, it keeps having a
problem creating a file.
The following line is the one that creates the problem:
open (FILE, ">$fn") || print "Problemo!";
where $fn is the filename. Like I said, it works fine from the prompt, it
just won't work when I run it from the web. When I did "print `pwd`", the
current directories are the same for both cases. I am new at Perl, so I'm
sorry if this is something that is blatantly obvious. Thanks in advance!!
-- Steve Horne
------------------------------
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 5535
**************************************
