[13122] in Perl-Users-Digest
Perl-Users Digest, Issue: 532 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Aug 14 23:07:35 1999
Date: Sat, 14 Aug 1999 20: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 Sat, 14 Aug 1999 Volume: 9 Number: 532
Today's topics:
Re: code references to builtin functions (Anno Siegel)
Re: containing results???confused <mcmike123@worldnet.att.net>
Re: containing results???confused <bwalton@rochester.rr.com>
Re: detecting if the same script is already running ? <flavell@mail.cern.ch>
Re: detecting if the same script is already running ? <elaine@chaos.wustl.edu>
Re: detecting if the same script is already running ? (Anno Siegel)
Re: HARASSMENT -- Monthly Autoemail (I R A Darth Aggie)
Re: HTTP redirect..not working <sunfox@sunwerx.com>
Re: Language survey (Anno Siegel)
Re: Language survey <tchrist@mox.perl.com>
Re: Language survey (I R A Darth Aggie)
Re: mod_perl is in the Fortune 500 (brian d foy)
Re: Nastiness contrary to the spirit of perl? (I R A Darth Aggie)
Re: Nastiness contrary to the spirit of perl? (I R A Darth Aggie)
Re: New User Q: MultiLine Match (Anno Siegel)
Re: Newbie question about $_ (Abigail)
Re: Newbie question about $_ <elaine@chaos.wustl.edu>
Re: Perl penetration into Fortune 500? (brian d foy)
Re: Perl penetration into Fortune 500? (brian d foy)
Re: Please repost URL encoded directions for protected <revjack@radix.net>
search script in need of help <mcmike123@worldnet.att.net>
Re: Sendmail parameter FAQ (Anno Siegel)
Wacky Programming Tales (Was Re: Why use Perl when we'v <bradh@mediaone.net>
Re: Wacky Programming Tales <tchrist@mox.perl.com>
Re: Why post trolls to comp.lang.perl.misc when we've g <dgris@moiraine.dimensional.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 15 Aug 1999 03:00:21 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: code references to builtin functions
Message-Id: <7p5ag5$v23$1@lublin.zrz.tu-berlin.de>
Ronald J Kimball <rjk@linguist.dartmouth.edu> wrote in comp.lang.perl.misc:
>Abigail <abigail@delanet.com> wrote:
>
>> What's the purpose of the hash? You get an extra level of indirection,
>> more characters to type, and you lose many of the features 'use strict;'
>> gives you.
>>
>>
>> my %trigtab = (
>> sin => sub { sin shift},
>> cos => sub { cos shift},
>> );
>>
>> # Oops, didn't create.
>> $trigtab {tan} -> ($some_angle);
>>
>> That gives a runtime error, while the following gives a compile time error:
>>
>> $sin = sub {sin shift};
>> $cos = sub {cos shift};
>>
>> # Oops, didn't create.
>> $tan -> ($some_angle);
>
>Err, but how do you call the function, given that the name was passed in
>as a string from the command line?
>
>With your way, you have to use symbolic refs, which means turning strict
>'refs' off for that part of the code.
Exackly. Moreover, since the name of the function to be called is
only known at run time, there's simply no way to make failure to
define code for one of the possibilities a compile time error.
Anno
------------------------------
Date: Sat, 14 Aug 1999 20:12:42 -0400
From: "mike" <mcmike123@worldnet.att.net>
Subject: Re: containing results???confused
Message-Id: <7p50jq$mng$1@bgtnsc02.worldnet.att.net>
Bob Walton wrote in message <37B5F640.66EA988A@rochester.rr.com>...
this is what ive done and im getting 500 errors, im calling the script
directly through the browser.
#! /usr/bin/perl
$content=get("http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext&
q=$mike");
content-type:text/html\n\n;
print <<EndOfHTML;
<html>
<head><title>meta test</title>
<body>
<p align="center">$content</p>
</body><html>
EndOfHTML
;
>Mike, actually, it can be done in about 10 seconds:
>
>use LWP::Simple;
>$content=get("http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext
&q=mike");
>
>print $content;
>
>will get the contents of Altavista's first page on "Mike" in variable
$content,
>and then print it.
>
------------------------------
Date: Sat, 14 Aug 1999 22:39:43 -0400
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: containing results???confused
Message-Id: <37B6286F.FACBAA1B@rochester.rr.com>
mike wrote:
> Bob Walton wrote in message <37B5F640.66EA988A@rochester.rr.com>...
>
> this is what ive done and im getting 500 errors, im calling the script
> directly through the browser.
>
> #! /usr/bin/perl
>
> $content=get("http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext&q=$mike");
> content-type:text/html\n\n;
> print <<EndOfHTML;
> <html>
> <head><title>meta test</title>
> <body>
>
> <p align="center">$content</p>
>
> </body><html>
>
> EndOfHTML
> ;
>
> >Mike, actually, it can be done in about 10 seconds:
> >
> >use LWP::Simple;
> >$content=get("http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext
> &q=mike");
> >
> >print $content;
> >
> >will get the contents of Altavista's first page on "Mike" in variable
> $content,
> >and then print it.
> >
Mike, debug it running Perl directly first. *Then* when it is working, start
attempting to use it as a CGI script. There are many reasons why your script is
generating a 500 error:
1. It won't compile as shown because the "content-type:..." is above your print
statement rather than below it -- you'll get a syntax error. Maybe it has to
start with an uppercase C besides?
2. You forget the "use LWP::Simple;" line. Without that, Perl has no idea what
"get" is. And, of course, you have to have the LWP::Simple module installed.
3. The "$mike" variable was not defined.
4. The 'q=$mike");' is supposed to be on the end of the previous line (unless
it already is -- between newsreader senders and viewers, it is hard to tell for
sure). LWP::Simple won't appreciate the newline in the URL.
When you get a 500 error, look in your server's log file to see what happened.
And let us know what happened if you want help. Use the -w switch in Perl.
Without information on what was wrong, it is difficult or impossible to debug.
Also, if you are going to echo the web page out as part of your web page, you
had best parse off the headers and trailers first before adding it to your HTML.
------------------------------
Date: Sun, 15 Aug 1999 01:28:32 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: detecting if the same script is already running ?
Message-Id: <Pine.HPP.3.95a.990815012715.21171A-100000@hpplus03.cern.ch>
On 14 Aug 1999, Bart Simpson wrote:
> Create a flag file before sleeping. When the script first runs, if the flag
> file exists, exit.
I din't believe you can do that portably without creating a race
condition.
> You could flock a flag file instead, then if the script is run again, when
> it reaches the flock line, it will sit and wait for the first to finish.
flock doesn't _have_ to wait. There are other options.
------------------------------
Date: Sat, 14 Aug 1999 22:02:12 -0400
From: Elaine -HFB- Ashton <elaine@chaos.wustl.edu>
Subject: Re: detecting if the same script is already running ?
Message-Id: <37B61F88.2991D838@chaos.wustl.edu>
marcza@my-deja.com wrote:
> Now someone is either starting this script or a second instance of it
> (again).
> How do I check if another instance of this same script is already
> running (or currently in sleep mode) ? ->In this case the script should
> exit.
Well, it might help to know what this script does and why you have it
loop over sleep. Personally, I use cron for anything that needs to run
with any interval greater than 5 minutes.
If you need to check for that process, simply write out a pid file and
do a 'ps -ef | grep `cat pid`' and see if it returns with anything. If
there is more than one you can grep for the name of it which is less
reliable unless the name is pretty unique.
Sounds like you need to do a 'man cron' or use at on NT.
e.
------------------------------
Date: 15 Aug 1999 02:36:39 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: detecting if the same script is already running ?
Message-Id: <7p593n$uvt$1@lublin.zrz.tu-berlin.de>
Elaine -HFB- Ashton <elaine@chaos.wustl.edu> wrote in comp.lang.perl.misc:
>marcza@my-deja.com wrote:
>> Now someone is either starting this script or a second instance of it
>> (again).
>> How do I check if another instance of this same script is already
>> running (or currently in sleep mode) ? ->In this case the script should
>> exit.
>
>Well, it might help to know what this script does and why you have it
>loop over sleep. Personally, I use cron for anything that needs to run
>with any interval greater than 5 minutes.
>
>If you need to check for that process, simply write out a pid file and
>do a 'ps -ef | grep `cat pid`' and see if it returns with anything. If
>there is more than one you can grep for the name of it which is less
>reliable unless the name is pretty unique.
Not that ps -ef | grep `cat pid` is exactly reliable. A ps line
teems with numbers, each of them waiting to match a given pid.
if ( kill 0, $pid ) { # it's alive (or at least undead)
would be how I'd do it.
Anno
------------------------------
Date: 15 Aug 1999 02:09:53 GMT
From: fl_aggie@thepentagon.com (I R A Darth Aggie)
Subject: Re: HARASSMENT -- Monthly Autoemail
Message-Id: <slrn7rc8fj.5k9.fl_aggie@thepentagon.com>
On Sat, 14 Aug 1999 02:34:09 GMT, Gil Harvey <gh@netquick.net>, in
<37b4d4b0.25250093@news.interpath.net> wrote:
+ Tom, I love your books, I bought them, when I want to hear
+ from you I will buy your next book, don't send me unxolicted email.
You realize that by posting to Usenet, you are implicitly permitting
email responses?
James
--
Consulting Minister for Consultants, DNRC
The Bill of Rights is paid in Responsibilities - Jean McGuire
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html>
------------------------------
Date: Sun, 15 Aug 1999 00:50:59 GMT
From: "Sunfox" <sunfox@sunwerx.com>
Subject: Re: HTTP redirect..not working
Message-Id: <T9ot3.86425$U42.109675@news1.rdc1.bc.home.com>
Print this out instead:
print "Content-type: text/html\n";
print "Location: http://www.foo.com/index.html\n\n";
Works for me.
Arthur Cinader wrote in message <7p4f60$phi$1@news.panix.com>...
>When a form succeeds, I wan to redirect to another url. I wan to avoid
>having to use any separate modules, etc.
>
>Here is what I am putting now:
>
>print "HTTP/1.0 302 Found\n";
>print "Location: http://www.foo.com/index.html\n\n";
>
>I'm getting the following error in my weblogs:
>
>apache: [Sat Aug 14 15:09:51 1999] [error] [client 204.90.78.7] [server
>www.foo.com] malformed header from script. Bad header=HTTP/1.0 302 Found:
>/htdocs/cgi-bin/fooform.cgi
>
>Thanks for any help!
>
>Arthur
>
>
------------------------------
Date: 15 Aug 1999 00:37:03 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Language survey
Message-Id: <7p523f$uoh$1@lublin.zrz.tu-berlin.de>
Tom Christiansen <tchrist@mox.perl.com> wrote in comp.lang.perl.misc:
>At the risk of advocacy, please spend 10 seconds on
>
> http://www.recordingwebsite.com/language.html
>
>I have nothing to do with it; just came across it.
>
>Oh, please don't hack the HTML to add Perl to the OO part.
>It doesn't look as though it would do any good. :-)
Well, they don't say how the voters were recruited. Together with
a total population of some 200 voters this bit of statistics doesn't
say very much.
Sometimes I wish Perl wasn't so damn popular. Is there a decent
Forth interpreter for Linux?
Anno
------------------------------
Date: 14 Aug 1999 19:15:31 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Language survey
Message-Id: <37b614b3@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) writes:
:Well, they don't say how the voters were recruited.
They posted a massively crossposted article, including to the
defunct comp.lang.perl group.
:Together with a total population of some 200 voters this bit of
:statistics doesn't say very much.
Quite right. But if they're going to do such a silly thing,
they shouldn't be surprised that half the answers are Perl. :-)
--tom
--
"I find this a nice feature but it is not according to the documentation.
Or is it a BUG?" "Let's call it an accidental feature. :-)" --Larry Wall
------------------------------
Date: 15 Aug 1999 02:35:03 GMT
From: fl_aggie@thepentagon.com (I R A Darth Aggie)
Subject: Re: Language survey
Message-Id: <slrn7rc9up.5k9.fl_aggie@thepentagon.com>
On 14 Aug 1999 19:15:31 -0700, Tom Christiansen <tchrist@mox.perl.com>, in
<37b614b3@cs.colorado.edu> wrote:
+ In comp.lang.perl.misc,
+ anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) writes:
+ :Well, they don't say how the voters were recruited.
+
+ They posted a massively crossposted article, including to the
+ defunct comp.lang.perl group.
Ah, so the sample is self-selecting?
+ :Together with a total population of some 200 voters this bit of
+ :statistics doesn't say very much.
+ Quite right.
No, it sez volumes: unscientific, unsound, biased, and complete
BALDERDASH.
James
--
Consulting Minister for Consultants, DNRC
The Bill of Rights is paid in Responsibilities - Jean McGuire
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html>
------------------------------
Date: Sat, 14 Aug 1999 22:59:41 -0400
From: brian@pm.org (brian d foy)
Subject: Re: mod_perl is in the Fortune 500
Message-Id: <brian-ya02408000R1408992259410001@news.panix.com>
In article <37B5E275.50D26AF8@chaos.wustl.edu>, elaine@chaos.wustl.edu posted:
> brian d foy wrote:
> >
> > after a quick server of the web servers of the Fortune 500 companies,
> > i found several using mod_perl:
>
> Who needs the fortune 500 when the Atlantic Monthly (Sept.) carries an
> article about Linux? ;) Reasonably done no less.
the audience i want to reach doesn't read the Atlantic Monthly :)
> And mod_perl isn't a good metric for Perl usage as companies often don't
> run their own web servers and leave it to places like GTEI who are owned
> by Netscape Enterprise Server. However, GTEI uses Perl extensively
well, that's only the stuff i got done last night. if i can start
correalating whois data with that, then find out what those companies
are using, Perl Mongers can make statements like "98% of Fortune 500
web sites rely on Perl", and those statements can end up in InfoWeek.
however, if i had a $100k, i'd just pay one of the big research firms
to do this. :)
--
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: 15 Aug 1999 02:18:42 GMT
From: fl_aggie@thepentagon.com (I R A Darth Aggie)
Subject: Re: Nastiness contrary to the spirit of perl?
Message-Id: <slrn7rc904.5k9.fl_aggie@thepentagon.com>
On Sat, 14 Aug 1999 01:15:37 GMT, Id Est <id-est@home.com>, in
<slrn7r9gnc.5nn.id-est@erato.bigredrockeater.com> wrote:
Please learn to properly quote, which means providing an attribution line.
I've noticed this with @home users, is this an artifact of your ISP? if
so, complain loudly and longly.
[me]
+ >So, when I tell you to Read the Fine Manual, or Perlfaq4, I'm picking
+ >on you? Interesting...
+ telling somebody to RTFM isn't bullying, but spewing pompous drek like the
+ following is something quite different ...
+ >> @@ I have a PERL script that does different actions based on the argument
+
+ >The language isn't called PERL. Please read the FAQ and spell the
+ >language correctly.
Perl is perl. It has *never* been PERL. Words mean things. Otherwise,
you end up with situations where allegedly smart people will ask you
to "define alone".
+ >Very interesting. What colour is your database?
Dilbert reference.
+ >Too late. You already posted it. By posting it to this group, you are
+ >entitled to be flamed.
+ >^^^^^^^^^^^^^^^^^^^^^
This is true of any newsgroup...
+ >> Is it possible to tell a browser to download a file and redirect the browser
+ >> to another URL, or in failing that, open a new window that prompts the
+ >> download and send the original window to a new URL?
And this has *what* to do with Perl, perl, or even PERL?
+ >Or are you just looking for someone who gives you the answer, without you
+ >doing anything?
That too often is the case...
+ and so on endlessly ad nauseum ...
And so the newbies flow in.
+ sure looks like bullying to me.
Ok, it's bullying. Be a good little Usenaut, and answer all the newbie
questions for the next month.
James
--
Consulting Minister for Consultants, DNRC
The Bill of Rights is paid in Responsibilities - Jean McGuire
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html>
------------------------------
Date: 15 Aug 1999 02:21:38 GMT
From: fl_aggie@thepentagon.com (I R A Darth Aggie)
Subject: Re: Nastiness contrary to the spirit of perl?
Message-Id: <slrn7rc95k.5k9.fl_aggie@thepentagon.com>
On Sat, 14 Aug 1999 12:57:31 +0200, Thomas Schmickl <schmickl@magnet.at>, in
<37B54B9B.719CD01@magnet.at> wrote:
+ comp.lang.perl.misc.users (this is the group where I and the other 99 percent
+ non_arrogant, friendly, polite and non-agressive posters will look up)
I've seen a number of people complain about this newsgroup, and the way
people give answers.
Almost none of them try to answer questions. Please, feel free to pick
up the slack. That's the great thing about Usenet: if you don't like
something, go out and fix it.
So stop yer belly-aching and start DOING SOMETHING.
James
--
Consulting Minister for Consultants, DNRC
The Bill of Rights is paid in Responsibilities - Jean McGuire
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html>
------------------------------
Date: 15 Aug 1999 02:28:22 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: New User Q: MultiLine Match
Message-Id: <7p58k6$uui$1@lublin.zrz.tu-berlin.de>
Kevin Newman <knewman@mcs.com> wrote in comp.lang.perl.misc:
>Hi All,
>
>How can I match the following string:
>
>1
>---string---
>
>I've read the Perl FAQ on multiline matching and am still not sure how
>to do it.
>
>Here is an attempt
>
>$/ = '';
If you do that, looping over <> below doesn't make sense. The first
<> will read the whole file, there's nothing left to loop over.
> while ( <> ) {
> while ( /^1 /gm )
Here you're trying to match a line that begins with 1, followed by a
blank. The blank doesn't seem to be in the data you show above, but
who knows what happens to trailing blanks during news transfer.
You should look for something like m/^1\n---/gm to loop over pairs of
lines.
> print "Found a match $.\n";
> }
> }
The $. variable isn't going to do you much good here, since you're not
reading lines. You'll have to use your own counter.
>Also, since this pattern that I want to match exist withing a file that
>I am manipulating, do I have to reset the [INPUT_RECORD_SEPARATOR] $/
>back to $/ = \n ?
I don't see what you're getting at here. After the first read action
on your file you have everything in one string. Changing $/ after the
fact won't change that.
Anno
------------------------------
Date: 14 Aug 1999 19:57:55 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Newbie question about $_
Message-Id: <slrn7rc46i.a5.abigail@alexandra.delanet.com>
Elaine -HFB- Ashton (elaine@chaos.wustl.edu) wrote on MMCLXXIV September
MCMXCIII in <URL:news:37B5E115.7AE4A7E1@chaos.wustl.edu>:
,, Ronald J Kimball wrote:
,, > > A> Danger, Will Robinson, danger! Exterminate! Exterminate! Exterminate!
,, > >
,, > > lost in space; nomad the son of kirk space probe;
,, >
,, > No, the Daleks in Dr. Who.
,,
,, Don't forget Robby the Robot from Lost in Space. Unless the Daleks made
,, a guest appearance to rid the show of Dr. Smith. :)
I never saw Lost in Space, so 'Exterminate!' might have been used there
as well. However, my 'Exterminate!' was quoted from the Daleks.
,, > > A> Fear is the path
,, > > A> to the dark side. Fear leads to anger. Anger leads to hate. Hate leads
,, > > A> to suffering. I sense much fear in you.
,, >
,, > SW: The Phantom Menace.
,,
,, Close...but it was The Empire Strikes Back...Yoda speaking to Luke in
,, the hut.
It's certainly from the Phantom Menace. It might also be from the Empire
Strikes Back, but then Yoda would just be repeating himself.
Check the IMDB.
Abigail
--
sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sat, 14 Aug 1999 21:55:27 -0400
From: Elaine -HFB- Ashton <elaine@chaos.wustl.edu>
Subject: Re: Newbie question about $_
Message-Id: <37B61DF4.7F60CB87@chaos.wustl.edu>
Abigail wrote:
> ,, Don't forget Robby the Robot from Lost in Space. Unless the Daleks made
> ,, a guest appearance to rid the show of Dr. Smith. :)
>
> I never saw Lost in Space, so 'Exterminate!' might have been used there
> as well. However, my 'Exterminate!' was quoted from the Daleks.
It is definitely a Dr. Who thing. You didn't miss much of anything by
skipping Lost in Space.
> ,, Close...but it was The Empire Strikes Back...Yoda speaking to Luke in
> ,, the hut.
>
> It's certainly from the Phantom Menace. It might also be from the Empire
> Strikes Back, but then Yoda would just be repeating himself.
Probably just repeating himself just as every SW movie has the line
"I've got a bad feeling about this". All I can remember about the last
one was how much I wished Jar Jar would STFU. :)
> Check the IMDB.
Hmmm...not listed for ESB.
e.
------------------------------
Date: Sat, 14 Aug 1999 22:53:22 -0400
From: brian@pm.org (brian d foy)
Subject: Re: Perl penetration into Fortune 500?
Message-Id: <brian-ya02408000R1408992253220001@news.panix.com>
In article <37B5D264.9F9B2C3@rochester.rr.com>, Bob Walton <bwalton@rochester.rr.com> posted:
> > please send
> > responses to fortune500@perlmongers.org.
> >
> > thanks :)
>
> Brian, mail to the above address bounces. Maybe you mean
> fortune500@pm.org?
no, that's the right address. i just need to configure the mailhost
before i give these things out. :)
--
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: Sat, 14 Aug 1999 22:55:22 -0400
From: brian@pm.org (brian d foy)
Subject: Re: Perl penetration into Fortune 500?
Message-Id: <brian-ya02408000R1408992255220001@news.panix.com>
In article <37B5A76B.63A5334C@vpservices.com>, Jeff Zucker <jeff@vpservices.com> posted:
> brian d foy wrote:
> >
> > Perl Mongers is putting together a survey to measure Perl's
> > penetration into the Fortune 500 companies.
> The plea: I think it's great that PM is doing research on the actual use
> of Perl in large institutions and I understand that the fortune 500 is a
> nice easy list to start from as well as the one most likely to impress
> those who are impressed by such things. But let me urge you to include
> large not-for-profit and public sector institutions in your research.
well, if i had a research staff and a large budget i could do everything.
however, i'm just biting off manageable chunks.
if you aren't going to help, please don't plea. i urge *you* to survey
not-for-profit and public sector institutions. i can't do all of this
alone after all. sorry i have to say that, but now that i'm the focus
for Perl Mongers people tend to say "you should do this" rather than
"i can help you do this".
--
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: 15 Aug 1999 00:16:58 GMT
From: revjack <revjack@radix.net>
Subject: Re: Please repost URL encoded directions for protected directories
Message-Id: <7p50tq$abh$1@news1.Radix.Net>
Keywords: Hexapodia as the key insight
<tt>brian d foy</tt> explains it all:
:In article <37b5b7ea.23722372@news.tor.metronet.ca>, maclell@col.ca posted:
:> Some one posted here a little while ago how to allow people access to
:> I spent three hours searching for the answer at Deja.com, but it has
:> become useless since they have redone everything.
:you can get it to act like it did before by making your own search
:form and making sure that you select the Deja Classic search
:results:
: http://www.smithrenaud.com/public/dejanews.html
By an uncanny coincidence, I just wrote one of those last night. To make
finding things easier, I took the result page from DN and reformatted it
as very rudimentary (Lynx-friendly) HTML and sent that as the result to
the browser. In addition, it removed decimals from the article numbers,
which has the effect of offering multipart articles as one article (This
means you have to remove duplicate URLs, no big deal). And finally, I
employed this on the link URL:
s/CONTEXT.*/fmt=text/
This makes the URL link to the text-only version of the article, which I
find much easier to read.
Just a few things to think about if you ever tinker with it again.
------------------------------
Date: Sat, 14 Aug 1999 22:02:03 -0400
From: "mike" <mcmike123@worldnet.att.net>
Subject: search script in need of help
Message-Id: <7p570r$dk3$1@bgtnsc01.worldnet.att.net>
this is what ive done and im getting 500 errors, im calling the script
directly through the browser.
#! /usr/bin/perl
$content=get("http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext&
q=mike");
content-type:text/html\n\n;
print <<EndOfHTML;
<html>
<head><title>meta test</title></head>
<body>
<p align="center">$content</p>
</body><html>
EndOfHTML
;
# end of code
if someone could point me in the right direction of a good resource about
creating a search engine
or just knows what im doing wrong please post the solutions
------------------------------
Date: 15 Aug 1999 01:15:27 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Sendmail parameter FAQ
Message-Id: <7p54bf$uq9$1@lublin.zrz.tu-berlin.de>
<marcza@my-deja.com> wrote in comp.lang.perl.misc:
>Sendmail has several parameters e.g.
>open(MAIL, "|/usr/lib/sendmail -oi -t -odq");
>
>Is there anywhere in the web a short introduction
>about all possible parameters ?
man sendmail
Anno
------------------------------
Date: 14 Aug 1999 22:37:08 -0400
From: Brad Howes <bradh@mediaone.net>
Subject: Wacky Programming Tales (Was Re: Why use Perl when we've got Python?!)
Message-Id: <wjy7lmxbwh7.fsf_-_@bradh.ne.mediaone.net>
Sorry to intrude on this love fest...
sholden@pgrad.cs.usyd.edu.au (Sam Holden) writes:
<snip>
> It's like someone who starts a C program with :
>
> #define BEGIN {
> #define END }
>
Hey! I actually worked on a project where someone did this! Also in their
funky include file was
#define AND &&
#define OR ||
It was the most bizarre thing I ever saw -- not so much the include file,
but the resulting code. As if a Pascal moths had come in, eaten at some
code and left little Wirth fragments sprinkled around. Has anyone else
encountered such strange programming behavior?
...now back to my language is bigger/longer/wider/stiffer than yours
--
Brad Howes bradh@mediaone.net
------------------------------
Date: 14 Aug 1999 20:43:05 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Wacky Programming Tales
Message-Id: <37b62939@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
Brad Howes <bradh@mediaone.net> writes:
: #define AND &&
: #define OR ||
[verba deleta]
:Has anyone else
:encountered such strange programming behavior?
Gosh yes. I think it was the rogue source that had something like:
#define until(expr) while(!expr)
#define otherwise break; default:
I don't remember whether it also had these, but I have
seen them elsewhere:
#define forever() for(;;)
#define unless(expr) if(!expr)
We had this extremely elusive (like, he never came in) hot-shot compiler
guy back on Convex who *insisted* upon using these in the compiler builds.
His ranking/stature was such that he got away with it, despite most of
our tormented cries.
--tom
--
/* Force them to make up their mind on "@foo". */
--Larry Wall, from toke.c in the v5.0 perl distribution
------------------------------
Date: 14 Aug 1999 18:22:21 -0600
From: Daniel Grisinger <dgris@moiraine.dimensional.com>
Subject: Re: Why post trolls to comp.lang.perl.misc when we've got comp.lang.python?!
Message-Id: <m3g11l7v0i.fsf@moiraine.dimensional.com>
gerg@shell.ncal.verio.com (Greg Andrews) writes:
> Why indeed?
Because numerous studies (for which I won't provide actual
citations) and extensive statistical analysis (which I won't
disclose) have thoroughly demonstrated that flamewars in
perl newsgroups are exactly 4.2 times more entertaining
than flamewars in python newsgroups.
HTH.
HAND.
dgris
--
To program is to be.
------------------------------
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
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 532
*************************************
