[12788] in Perl-Users-Digest
Perl-Users Digest, Issue: 198 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 20 09:07:32 1999
Date: Tue, 20 Jul 1999 06:05:09 -0700 (PDT)
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, 20 Jul 1999 Volume: 9 Number: 198
Today's topics:
Re: #!/usr/bin/perl -w switch esoterica (Lars Gregersen)
Re: 3D modeling with Perl? (Reini Urban)
cant install Thread module smnayeem7346@my-deja.com
Re: Future of Perl (Reini Urban)
Re: How should I sort by different fields? <Webdesigner@NewWebSite.com>
How to get total line numbers in a text file ? <factory@factory.co.kr>
Re: How to simulate shell variable parsing in Perl? shaunj@my-deja.com
Re: Looking for a free web hosting with perl <steven_crazyman@worldnet.att.net>
MS-HTML demoroniser <ralawrence@my-deja.com>
Re: MS-HTML demoroniser <gellyfish@gellyfish.com>
Re: perl implementation: list data structure (Reini Urban)
Re: Problem with forking smnayeem7346@my-deja.com
Re: Problem with forking <gellyfish@gellyfish.com>
problem with searching database <mitt@uninet.ee>
Reading password via Socket Connection stuckenbrock@my-deja.com
Re: submit -> image <anzej@skavt.net>
Re: submit -> image <anzej@skavt.net>
Re: submit -> image <flavell@mail.cern.ch>
Re: Tiny error in perlfaq5 (Reini Urban)
Re: TPJ/Earthweb junk mail? <dave@dave.org.uk>
Re: TPJ/Earthweb junk mail? (Jon Orwant)
Re: weird getc behaviour (Michael Rubenstein)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 20 Jul 1999 12:08:01 GMT
From: lg@kt.dtu.dk (Lars Gregersen)
Subject: Re: #!/usr/bin/perl -w switch esoterica
Message-Id: <37946630.97820679@news.dtu.dk>
On Mon, 19 Jul 1999 15:16:40 -0700, ks@anse.org wrote:
>Hm, well it would make sense, however I'm only removing the -w (I
>swear!). Arg. Perhaps there are wee gremlins in our system -- last
>week perl wouldn't recognize the ord() function. Durn'd thing kept
>telling me it was unrecognizable. Then, all of a sudden, it stopped
>complaining. This keeps happening and I'm going to go more insane.
I will also vote for the Gremlins thing! Or maybe it is just an error
you made ;-) Are you moving the file between DOS and Unix? Wrong line
feeds seem to disturb the shells on Unix and this is hard to spot
since most editors these days silently ignore/fix the problem.
Lars
------------------------------
Lars Gregersen (lg@kt.dtu.dk)
http://www.gbar.dtu.dk/~matlg
------------------------------
Date: Tue, 20 Jul 1999 12:22:48 GMT
From: rurban@xarch.tu-graz.ac.at (Reini Urban)
Subject: Re: 3D modeling with Perl?
Message-Id: <37946a06.447299432@judy.x-ray.local>
kj0 <kj0@mailcity.com> wrote:
>I'd like to write a small application to visualize and rotate 3D
>objects (specifically, simple representations of molecules). I'd like
>to do this using as much Perl as possible (and conversely, avoiding
>learning new languages/applications as much as possible). Are there
>any tools or source code on the web that would facilitate this
>programming task?
there's a VRML module.
--
Reini Urban
http://xarch.tu-graz.ac.at/autocad/news/faq/autolisp.html
------------------------------
Date: Tue, 20 Jul 1999 10:47:03 GMT
From: smnayeem7346@my-deja.com
Subject: cant install Thread module
Message-Id: <7n1k35$oeo$1@nnrp1.deja.com>
Does anyone know why I cannot install the Thread module. I went to the
threads directory and installed it using perl Makefile.pl, make,
make test, make install.
however when i try to use it in the program it says cant find in @INC.
and one more question is how do i install this module under winNT? it
gives error when i try perl makefile.pl
Please someone help me here :(
Nayeem
smnayeem@agni.com
Programmer, Agni Systems Ltd.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 20 Jul 1999 12:41:31 GMT
From: rurban@xarch.tu-graz.ac.at (Reini Urban)
Subject: Re: Future of Perl
Message-Id: <37946de5.448290267@judy.x-ray.local>
Jeffrey@ix.netcom.com (Jeffrey) wrote:
>A language isn't fucking useful if you can't get a job programming in it.
if money is your only concern go with the crowd.
either C++, struggling with MFC, or COBOL for the pending Y2K fixes.
but is this the only point for usefulness?
--
Reini
------------------------------
Date: Tue, 20 Jul 1999 11:59:50 GMT
From: Floyd Morrissette <Webdesigner@NewWebSite.com>
Subject: Re: How should I sort by different fields?
Message-Id: <7n1obi$pm0$1@nnrp1.deja.com>
In article <slrn7otaak.c9j.abigail@alexandra.delanet.com>,
abigail@delanet.com wrote:
>
> FAQ.
>
> Abigail
http://language.perl.com/newdocs/pod/perlfaq4.html would have been a
better answer and definitely more helpful.
--
Get your web site from http://www.NewWebSite.com
Consultation is always free.
Help with cgi scripts.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 20 Jul 1999 19:22:30 +0900
From: "Yeong Mo/Director Hana co." <factory@factory.co.kr>
Subject: How to get total line numbers in a text file ?
Message-Id: <7n1i3n$u40$1@news1.kornet.net>
if matchs one word in a line, how to get total matched lines number ?
something like the following;
($ex0, $categorys, $ex2) = split(/&&/, "$line");
if ($categorys eq "001") {
print "001 matchs total "16" lines ";
}
Thanks in advance
------------------------------
Date: Tue, 20 Jul 1999 11:40:04 GMT
From: shaunj@my-deja.com
Subject: Re: How to simulate shell variable parsing in Perl?
Message-Id: <7n1n6j$pch$1@nnrp1.deja.com>
Solved!!!
Thanks to Jonathan who focused my mind in the right area. Thats the
politest RTFM I have seen for a while ...
The solution:
------>snip snip<-------
open(DATA,"tb.txt");
while (<DATA>) {
my ($key,$parm1,$parm2,$parm3,$therest) = split (' ',$_,5) ;
chomp($therest);
print "k=$key therest=$therest\n";
}
------>end snip<--------
The key to solving this problem is the LIMIT (third) parameter to
split. As the documentation states, if it is omitted then it defaults
to one more than the number of variables in the list. It appears that
if you set it to the number of variables (in this case 5) then the
shell behavour I was looking for is seen ie the rest of input line is
stored in $therest.
Many thanks to all who responded, I can now get on with some real work!
Shaun.
In article <37943889@newsread3.dircon.co.uk>,
Jonathan Stowe <gellyfish@gellyfish.com> wrote:
> shaunj@my-deja.com wrote:
> > In article <37938e32.7932507@news.demon.co.uk>,
> > dave@dave.org.uk (Dave Cross) wrote:
> >> On Mon, 19 Jul 1999 13:08:33 GMT, shaunj@my-deja.com wrote:
> >>
> >> >This may seem a trivial question to some but (as a reletive
newbie to
> >> >Perl) I am struggling to find the answer.
> >> >
> >> >Consider this ksh snippet ...
> >> >
> >> >while read key parm1 parm2 parm3 therest
> >> >do
> >> > ... use the variables as required
> >> >
> >> >done < sometextfile
> >> >
> >> >where ..
> >> >
> >> >sometextfile contains ..
> >> >
> >> ># Comment lines containing some descriptive information which
> >> ># may or may not be ignored by the program logic
> >> ># followed by some parameters which need to be parsed
> >> >
> >> >key parm1 parm2 parm3
> >> >k2 parm1 parm2 parm3 The Rest of the text
> >> >
> >> >------------------------
> >> >
> >>
> >> Something like the following perhaps:
> >>
> >> open(PARMS, 'sometextfile') || die "Can't open somtextfile: $!\n";
> >>
> >> while (<PARMS>) {
> >> my ($key, $parm1, $parm2, $parm3, $the_rest = split /\s+/;
> >>
> >> # Do stuff
> >> }
> >>
> > Dave, This is Shaun (the original poster). Your solution is as
close as
> > I've got but doesn't work. I can see how to do it (using lots of
> > concatanation constructs) but feel that perl *MUST* have something
up
> > its sleeve to simulate the behavour I require. Using your code as an
> > example, I would like $the_rest to contain the remaining text from
the
> > input line (no matter how may words exits).
> >
>
> Read the perlfunc entry for split - this describes how the third
argument
> controls *what* will go in $the_rest ...
>
> /J\
> --
> "I thought homogenous culture was a kind of yogurt used to alleviate
> thrush" - Ben Elton
>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 20 Jul 1999 07:52:55 -0500
From: "Steve Wagner" <steven_crazyman@worldnet.att.net>
Subject: Re: Looking for a free web hosting with perl
Message-Id: <7n1rnq$aj9$1@bgtnsc02.worldnet.att.net>
I dont know of any free ones but http://www.cgi101.com is at $10.00 a month
and has free scripts and a cgi/perl tutorial.
Dylan Beattie <dmb197@ecs.soton.ac.uk> wrote in message
news:Pine.LNX.3.96.990720100142.11158C-100000@soolin.ecs.soton.ac.uk...
> On Sun, 18 Jul 1999, Bob Walton wrote:
>
> > Juan Riera wrote:
> >
> > > Hello,
> > > Does anybody knows about any free web site hosting that admits perl
cgi
> > > programming? I would like to test a home site - home developped.
> >
> > ...
> > Why don't you put up your own web server on your own computer? There
are
> > free ones available.
>
> For development purposes, fine - but many of us can't host a site from our
> own machines 'cos we're on 56K dialup accounts at 1p/minute... :( I'd
> also be interested to know if there's any providers out there who offer
> free server space and CGI scripts - anyone?
>
> Thanks,
>
> D.
>
> ===========================================
> Dylan Beattie dmb197@zepler.org
> Computer Science, University of Southampton
> ICQ:34865704 http://www.zepler.org/~dmb197/
> ===========================================
>
------------------------------
Date: Tue, 20 Jul 1999 11:37:14 GMT
From: Richard Lawrence <ralawrence@my-deja.com>
Subject: MS-HTML demoroniser
Message-Id: <7n1n1a$paa$1@nnrp1.deja.com>
Whilst I fully applaud the idea of the demoroniser script I can't
exactly see the entire Microsoft corporation quaking in its boots until
someone actually makes it so that any old joe off the street can run
the script without having to fix it first.
I save it, I change #!/bin/perl to #!/usr/bin/perl, I run, I get:
syntax error at ./demoron.pl line 28, near ">"
syntax error at ./demoron.pl line 28, near """
Bareword "n" not allowed while "strict subs" in use at ./demoron.pl
line 36.
Unquoted string "n" may clash with future reserved word at ./demoron.pl
line 36.
Bareword "quot" not allowed while "strict subs" in use at ./demoron.pl
line 36.
Unquoted string "quot" may clash with future reserved word at
./demoron.pl line
36.
Operator or semicolon missing before " at ./demoron.pl line 36.
Ambiguous use of & resolved as operator & at ./demoron.pl line 36.
String found where operator expected at ./demoron.pl line 38, near "ord
$1, ($AR
GV eq '-' ? 'standard input'"
(Do you need to predeclare ord?)
syntax error at ./demoron.pl line 38, near "ord $1, ($ARGV eq '-' ?
'standard in
put'"
syntax error at ./demoron.pl line 92, near ">"
Bareword "x82" not allowed while "strict subs" in use at ./demoron.pl
line 106.
Bareword "quot" not allowed while "strict subs" in use at ./demoron.pl
line 106.
Unquoted string "quot" may clash with future reserved word at
./demoron.pl line
106.
Operator or semicolon missing before " at ./demoron.pl line 106.
Ambiguous use of & resolved as operator & at ./demoron.pl line 106.
syntax error at ./demoron.pl line 106, near "; ="
./demoron.pl has too many errors.
Nice idea. Shame it doesn't work.
Rich
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 20 Jul 1999 13:15:30 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: MS-HTML demoroniser
Message-Id: <37946862@newsread3.dircon.co.uk>
Richard Lawrence <ralawrence@my-deja.com> wrote:
> Whilst I fully applaud the idea of the demoroniser script I can't
> exactly see the entire Microsoft corporation quaking in its boots until
> someone actually makes it so that any old joe off the street can run
> the script without having to fix it first.
>
> I save it, I change #!/bin/perl to #!/usr/bin/perl, I run, I get:
>
> syntax error at ./demoron.pl line 28, near ">"
> syntax error at ./demoron.pl line 28, near """
>
<snip bunch of errors>
> Nice idea. Shame it doesn't work.
>
Nice troll, shame it wont work - the errors you have are most probably
caused by you cutting and pasting the text badly as it works perfectly
fine for me - it also appears that this is not the final version -
please see <http://www.perl.com/language/misc/demoroniser.html>.
/J\
--
"If they want a circus, they have come to the right person" - Neil
Hamilton
------------------------------
Date: Tue, 20 Jul 1999 12:37:00 GMT
From: rurban@xarch.tu-graz.ac.at (Reini Urban)
Subject: Re: perl implementation: list data structure
Message-Id: <37946ab7.447476617@judy.x-ray.local>
Tom Christiansen <tchrist@mox.perl.com> wrote:
>:How about random accesses? Are they O(1), like C arrays, or O(n), like linked
>:lists?
>:
>:When you insert, is this a simple modification of a couple of pointers? or
>:does it have more overhead, like copying a chunk of the sequence?
>:
>:Are these regular linked-lists? doubly linked-lists, structs containing stuff
>:like length, last-node...?
it's an pre-allocated continuous array of pointers (to scalars or SVs),
with a fill-pointer, same as adjustable lisp vectors. out of a pool of
pre-allocated sv's.
the preallocated size for each AV is mostly larger than the actual array
size, so that push or unshift operations don't need to copy, realloc(),
that often.
so the cost of insertion depends on actual size and the number of the to
be inserted scalars. better init the array having the expected end-size,
set it to () and insert then. when a certain "magic size" is exceeded it
has to realloc() = copy to a larger region. this size may be fooled at
init.
insertion at the front or end is just a simple manipulation of pointers
to the front and the end.
if the source code is too hard to read, try
perldoc perlguts
"Working with AVs"
I also highly recommend "Advanced Perl Programming" by Sriram
Srinivasan.
--
Reini Urban
http://xarch.tu-graz.ac.at/autocad/news/faq/autolisp.html
------------------------------
Date: Tue, 20 Jul 1999 10:59:28 GMT
From: smnayeem7346@my-deja.com
Subject: Re: Problem with forking
Message-Id: <7n1kqc$okt$1@nnrp1.deja.com>
Actually I quoted it off from the Camel directly. If you still think
this is the problem, any suggestion as to what I should replace it with?
In article <7mv0cj$h8l$1@server1.powernet.net>,
lwp@mail.msen.com wrote:
> It seems to me you have an infinite loop in your &REAPER
> : while ($child = waitpid(-1, WNOHANG)) {
> What condition do you think would ever terminate this while() ?
>
> On Sat, 17 Jul 1999 08:19:36 GMT, smnayeem7346@my-deja.com wrote:
> : I am having some difficulties doing forking, when I try to connect
to my
> : server program for the 2nd time it hangs up.
> Lou Poppler lwp@mail.msen.com http://www.msen.com/~lwp/
>
> NT makes the easy stuff easy, and the rest impossible.
> Unix makes everything possible, but nothing too easy.
>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 20 Jul 1999 12:29:00 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Problem with forking
Message-Id: <37945d7c@newsread3.dircon.co.uk>
smnayeem7346@my-deja.com wrote:
> I am having some difficulties doing forking, when I try to connect to my
> server program for the 2nd time it hangs up.
It is not the forking that is the problem it is the fact that you are creating
possibly multiple listening sockets - I'm not quite sure what you are trying
to do but you certainly dont need to do it - see, for example, my post
<http://www.deja.com/[ST_rn=ps]/getdoc.xp?AN=459720599&fmt=text>
For a working example.
/J\
--
"The chef's salty balls have dropped" - Christopher Price, BBC NEWS 24
------------------------------
Date: Tue, 20 Jul 1999 15:57:29 +0300
From: "Peter" <mitt@uninet.ee>
Subject: problem with searching database
Message-Id: <37947256$0$191@diablo.uninet.ee>
how to make that kind of database search.
For example, the database is simple text tile containing:
name, yearsold, country
how to force script to search and give mie result of how many
20 years old people are liveing in som country.
So, the search script must filter yearsold and country.
If you can help me, pleese do it.
And an example is welcome too.
All Best,
Tarmo Mitt
mitt@uninet.ee
------------------------------
Date: Tue, 20 Jul 1999 12:06:34 GMT
From: stuckenbrock@my-deja.com
Subject: Reading password via Socket Connection
Message-Id: <7n1oo4$pro$1@nnrp1.deja.com>
Hi there
I have the problem, that I want to read a password over a Socket without
writing it on the screen at the (Telnet-)Clientside. For normal
Terminalinput this works with the Term::ReadKey Module but this
doesn't seem to work with a socket.
I also tried system("stty -echo")... same effect.
Would be nice if anyone got an Idea.
Thanks
Sören
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 20 Jul 1999 12:05:51 +0200
From: "Anzej Becan" <anzej@skavt.net>
Subject: Re: submit -> image
Message-Id: <7n1i2g$one$1@planja.arnes.si>
> : Till now I use in perl script Submit button, but now I would like to use
> : image button.
> :
> : now I have:
> : <INPUT type="Submit" name="izpis_delnic" Value="Portfelj">
> : for image I tried to use:
> : <INPUT type="image" src="button1.gif" name="izpis_delnic"
> Value="Portfelj">
>
> You cannot pass 'value' directive with image!
Of course :-)) I fixed this but still nothing. See next reply below.
Anzej
------------------------------
Date: Tue, 20 Jul 1999 12:11:46 +0200
From: "Anzej Becan" <anzej@skavt.net>
Subject: Re: submit -> image
Message-Id: <7n1i2j$one$2@planja.arnes.si>
> > Till now I use in perl script Submit button, but now I would like to use
> > image button.
> You dont use a 'perl script Submit Button' because Perl has no such
creature
> I think you want to ask in a newsgroup that has hhtml in its name.
I use form:
<FORM method=post action="script.cgi">
...
<INPUT type="image" src="button1.gif" name="izpis_delnic>
and then use in script:
if ($form {'izpis_delnic'})
{
#do this statments
...
}
But this condition doesn't pass. In type="submit" it does!
Anzej
------------------------------
Date: Tue, 20 Jul 1999 13:02:05 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: submit -> image
Message-Id: <Pine.HPP.3.95a.990720125332.14070A-100000@hpplus03.cern.ch>
On Tue, 20 Jul 1999, Anzej Becan wrote:
> > I think you want to ask in a newsgroup that has hhtml in its name.
(And then igmored the advice.)
I think you need to ask in a newsgroup that has HTML or CGI in its
name. Your question is about HTML, not about Perl.
> I use form:
>
> <FORM method=post action="script.cgi">
> ...
> <INPUT type="image" src="button1.gif" name="izpis_delnic>
^typo
> and then use in script:
>
> if ($form {'izpis_delnic'})
...
> But this condition doesn't pass.
Quite right. When you decide to use INPUT TYPE=IMAGE, it's useful to
refer to the documentation for INPUT TYPE=IMAGE. Coding by guesswork
and superstition is sure to land you up with problems.
http://www.w3.org/TR/REC-html40/interact/forms.html#h-17.4.1
image
[...]
When a pointing device is used to click on the image, the form is
submitted and the click coordinates passed to the server. The x
value is measured in pixels from the left of the image, and the y
value in pixels from the top of the image. The submitted data
includes name.x=x-value and name.y=y-value where "name" is
the value of the name attribute, and x-value and y-value are the x
and y coordinate values, respectively.
------------------------------
Date: Tue, 20 Jul 1999 13:01:45 GMT
From: rurban@xarch.tu-graz.ac.at (Reini Urban)
Subject: Re: Tiny error in perlfaq5
Message-Id: <3794719b.449240754@judy.x-ray.local>
bart.lateur@skynet.be (Bart Lateur) wrote:
> $hits = int((time() - 850_000_000) / (1_000 * (1-rand)));
>
>BTW what's the use of rand(EXPR), if it gives a result that is exactly
>the same as EXPR*rand?
this is bad. see knuth, 2nd vol.
multiplication often introduces not randomness, esp. in the last bits.
that's why 1000*rand should not used, rather rand 1000 instead.
in our code it is harmless(?) but may get used to it.
rand(1000) || 1 seems to be the fastest.
rand(1000) + 1 should be okay as well. at least this is more readable.
[?] harmless in locking code?
okay, the random quality is somewhat critical to locking code, esp. with
a low resolution of microseconds and 15 randbits only.
this led to the netscape ssl hack btw.
--
Reini Urban
http://xarch.tu-graz.ac.at/autocad/news/faq/autolisp.html
------------------------------
Date: Tue, 20 Jul 1999 11:52:23 GMT
From: Dave Cross <dave@dave.org.uk>
Subject: Re: TPJ/Earthweb junk mail?
Message-Id: <7n1ntk$pig$1@nnrp1.deja.com>
In article <brian-ya02408000R1907991936040001@news.panix.com>,
brian@pm.org (brian d foy) wrote:
> In article <ORWANT.99Jul19165100@rising-sun.media.mit.edu>,
orwant@media.mit.edu posted:
>
> > In article <x7vhbgfsn7.fsf@home.sysarch.com> Uri Guttman
<uri@sysarch.com> writes:
>
> > jon, i am sorry to hammer you, but ya could been a contendah!!
> >
> > Hammer away. I'm going to continue to do my job and edit Perl
articles.
>
> Jon is cool. Earthweb is not.
>
> Jon is still cool. Don't hammer Jon. Hammer Earthweb. write to
> the publisher to voice your displeasure: Mike Green
<mgreen@earthweb.com>.
> let him know that absentee publishers aren't cool and that he should
> listen to his editors.
>
> and, now that TPJ is big money, they should start paying real money
> for articles.
>
> as dha told me earlier today:
>
> Earthweb bites,
> but Perl programmers bite back.
You know that Earthweb has an online Perl discussion group at
<http://discussions.earthweb.com/cgi-bin/dnewsweb?cmd=xover&group=earthw
eb.perl.general&utag=>
It might be worth raising some of these isssues there as well.
Dave...
--
Dave Cross
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 20 Jul 1999 12:02:44 GMT
From: orwant@repo-man.media.mit.edu (Jon Orwant)
To: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: TPJ/Earthweb junk mail?
Message-Id: <ORWANT.99Jul20080244@repo-man.media.mit.edu>
In article <1dv7t4u.1vjz0eu1fsd57jN@p52.tc18.metro.ma.tiac.com> rjk@linguist.dartmouth.edu (Ronald J Kimball) writes:
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Newsgroups: comp.lang.perl.misc
Date: Tue, 20 Jul 1999 00:35:02 -0400
Organization: Tamias Striatus
Lines: 10
Well, as long as we're on the topic...
The very first issue of the Perl Journal published by EarthWeb has a
magic 8-ball on the cover. Is the 8-ball's message a coincidence?
The cover art (an eight ball predicting "Outlook not so good") has to
do with the two articles in the issue about sending mail from Perl.
Microsoft's Imperial Mail Wizard is Outlook. Hence the photo caption
inside the magazine, "The spirits care not for Microsoft's mailer."
I'd been planning that cover for nearly a year -- the idea came
from a friend's brother who works for the Evil Empire:
> I was working on a project investigating PDA's for kids (wireless chat,
> digital pictures, fun apps) and one of the apps we were tossing around was a
> magic 8-ball-like fortune teller. For preliminary research I grabbed an
> 8-ball from a friend and sat down pen in hand to transcribe what came up to
> make a short list for my functinoal specification. "Outlook Not So Good"
> was the first fortune to come up. I stared at it in a state of somewhat
> shock as I failed to parse correctly... Then I recall thinking "Geez,
> wonder what it'll say about my product?"
So I appreciate the thought, but it wasn't meant to be a comment on
EarthWeb. Of course, postmodernism has taught us that there is no
objective reality and that we all forge our own interpretations,
usually with long words and often in French, about what reality we
perceive. So I don't want to color your interpretation. Except to
say that it's wrong. :-)
-Jon
--
------------------------------
Date: Tue, 20 Jul 1999 11:04:18 GMT
From: miker3@ix.netcom.com (Michael Rubenstein)
Subject: Re: weird getc behaviour
Message-Id: <379a5792.688339760@nntp.ix.netcom.com>
On 20 Jul 1999 00:08:19 GMT, ebohlman@netcom.com (Eric Bohlman)
wrote:
>: while ($char = getc INFILE) {
>
>This is what's causing your problem. If getc() returns a '0' or a
>whitespace character, you'll drop out of the loop. Perl's stream IO
>functions return undef when the input runs out; test for that instead:
Since when does a whitespace character test as false?
--
Michael M Rubenstein
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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 V9 Issue 198
*************************************
