[8140] in Perl-Users-Digest
Perl-Users Digest, Issue: 1757 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 29 03:07:15 1998
Date: Thu, 29 Jan 98 00:00:36 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 29 Jan 1998 Volume: 8 Number: 1757
Today's topics:
Re: FAQ too big (Was: Re: PERL forking) (Martin Vorlaender)
Re: Help with SORT <joseph@5sigma.com>
Re: Looking for a really basic mailto/form script (Martin Vorlaender)
Re: Perl CGI real-time database application (brian d foy)
Problem entering URL in HTTP::Request (stewart samuel bushman)
Re: Problem entering URL in HTTP::Request (brian d foy)
Re: Problem entering URL in HTTP::Request (stewart samuel bushman)
Re: Profiler for Perl4 (yup. Perl4) (brian d foy)
Re: Question about answering (older) questions in c.l.p <rjk@coos.dartmouth.edu>
Re: Split <rjk@coos.dartmouth.edu>
Re: Survival Of perl <tchrist@mox.perl.com>
Text Parsing and AI help <MetatonCSI@worldnet.att.net>
Re: Text Problems With Explorer 4.0 (brian d foy)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 29 Jan 1998 06:36:03 +0100
From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)
Subject: Re: FAQ too big (Was: Re: PERL forking)
Message-Id: <34d01543.524144494f47414741@radiogaga.harz.de>
Tom Christiansen (tchrist@mox.perl.com) wrote:
: aml@world.std.com (Andrew M. Langmead) writes:
: :OK, so many Windows users don't realize that ...
: :And these people would rather post to Usenet to find their answers
: :rather than do _anything_ to get themselves out of this situation?
: :Then can someone remind my why I spend my time here?
: Excellent question. Notice I kill as much as I can related that
: would appear related to POBs and KLBs.
Exactly my opinion, too, with regard to PoBs. What the hell is a "KLB"??
cu,
Martin
--
| Martin Vorlaender | VMS & WNT programmer
Ceterum censeo | work: mv@pdv-systeme.de
Redmondem delendam esse. | http://www.pdv-systeme.de/users/martinv/
| home: martin@radiogaga.harz.de
------------------------------
Date: Thu, 29 Jan 1998 00:01:04 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: Help with SORT
Message-Id: <34D028D6.301E1452@5sigma.com>
First, note that as numbers, 1.1 and 1.10 are the same thing.
Here's an option (using my shiny new Sort::Fields module):
use Sort::Fields;
my @list = qw(0 1 1.1 1.10 1.2 2.1 2 0.1);
{
local $^W; # otherwise "0", "1" etc will generate warnings
print join " ", fieldsort q/\./, ['1n', '2n'], @list;
}
-joseph
Dave Downin wrote:
>
> Help! I'm trying to sort a list into sort of an index fashion. I have the
> following code which doesn't do the full job:
>
> #!/usr/bin/perl
>
> @list = (0,1,1.1,1.10,1.2,2.1);
--
Joseph N. Hall, prop., 5 Sigma Productions mailto:joseph@5sigma.com
Author, Effective Perl Programming . . . . . http://www.effectiveperl.com
Perl Training . . . . . . . . . . . . . . . http://www.perltraining.com
------------------------------
Date: Thu, 29 Jan 1998 06:44:41 +0100
From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)
Subject: Re: Looking for a really basic mailto/form script
Message-Id: <34d01749.524144494f47414741@radiogaga.harz.de>
Martin Vorlaender (martin@RADIOGAGA.HARZ.DE) wrote:
: (Regards to Chipmunk - I like your style)
I just realized I copied Chip Salzenberg's style. Sorry.
(I like the style of both of you)
cu,
Martin
--
| Martin Vorlaender | VMS & WNT programmer
Ceterum censeo | work: mv@pdv-systeme.de
Redmondem delendam esse. | http://www.pdv-systeme.de/users/martinv/
| home: martin@radiogaga.harz.de
------------------------------
Date: Thu, 29 Jan 1998 01:46:25 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Perl CGI real-time database application
Message-Id: <comdog-ya02408000R2901980146250001@news.panix.com>
Keywords: from just another new york perl hacker
In article <886028210.399179788@dejanews.com>, Sarah.Kamal@cgy.valmet.com posted:
>The application has to display data from a UNIX server on a PC. I was
>thinking that I would write a perl cgi script for this and display with
>an html page of tables. The real problem is that the data on the page
>has to update continuously while the page is open and I'm not sure how a
>cgi script can run continuously.
this isn't a perl specific issue. the folks in
comp.infosystems.www.authoring.cgi may be of assitance.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: 29 Jan 1998 05:48:28 GMT
From: sbushman@students.uiuc.edu (stewart samuel bushman)
Subject: Problem entering URL in HTTP::Request
Message-Id: <6ap57c$qg2$1@vixen.cso.uiuc.edu>
I'm trying to just get a script to call up a web page and download the
text (easy, huh?) Well, I'm having problems with the initial URL call,
everything else works fine. The text of the call is:
my $req = new HTTP::Request POST=>'http://quote.yahoo.com/q?s=orcl';
Entering that URL into Netscape brings up the desired page, but apparantly
either the question mark or the equal sign is prohibiting perl from
entering the URL correctly. Any ideas?
-stu
--
|
Stewart S. Bushman | The more I study religions the more convinced I become
sbushman@uiuc.edu | that man never worshipped anything but himself.
| - Sir Richard Francis Burton
------------------------------
Date: Thu, 29 Jan 1998 01:44:50 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Problem entering URL in HTTP::Request
Message-Id: <comdog-ya02408000R2901980144500001@news.panix.com>
Keywords: from just another new york perl hacker
[ there is no need to post the same message twice under different
subject lines. ]
In article <6ap57c$qg2$1@vixen.cso.uiuc.edu>, sbushman@students.uiuc.edu (stewart samuel bushman) posted:
>I'm trying to just get a script to call up a web page and download the
>text (easy, huh?) Well, I'm having problems with the initial URL call,
>everything else works fine. The text of the call is:
>
> my $req = new HTTP::Request POST=>'http://quote.yahoo.com/q?s=orcl';
that works fine for me. perhaps your problem is somewhere else.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: 29 Jan 1998 06:41:47 GMT
From: sbushman@students.uiuc.edu (stewart samuel bushman)
Subject: Re: Problem entering URL in HTTP::Request
Message-Id: <6ap8bb$sus$1@vixen.cso.uiuc.edu>
Keywords: from just another new york perl hacker
comdog@computerdog.com (brian d foy) writes:
Here's the rest of the code, if you think it may be there:
# Create a user agent object
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);
# Create a request
my $req = new HTTP::Request POST=>'http://quote.yahoo.com/q?s=orcl';
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');
# Pass request to the user agent and get a response back
my $res = $ua->request($req);
# Check the outcome of the response
if ($res->is_success) {
print $res->content;
} else {
print "Bad luck this time\n";
}
>[ there is no need to post the same message twice under different
>subject lines. ]
>In article <6ap57c$qg2$1@vixen.cso.uiuc.edu>, sbushman@students.uiuc.edu (stewart samuel bushman) posted:
>>I'm trying to just get a script to call up a web page and download the
>>text (easy, huh?) Well, I'm having problems with the initial URL call,
>>everything else works fine. The text of the call is:
>>
>> my $req = new HTTP::Request POST=>'http://quote.yahoo.com/q?s=orcl';
>that works fine for me. perhaps your problem is somewhere else.
>--
>brian d foy <comdog@computerdog.com>
>CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
>Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
--
|
Stewart S. Bushman | The more I study religions the more convinced I become
sbushman@uiuc.edu | that man never worshipped anything but himself.
| - Sir Richard Francis Burton
------------------------------
Date: Thu, 29 Jan 1998 01:53:53 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Profiler for Perl4 (yup. Perl4)
Message-Id: <comdog-ya02408000R2901980153530001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6ap7lr$154$1@towncrier.cc.monash.edu.au>, bren@fangorn.cs.monash.edu.au (Brendan Macmillan) posted:
>Perhaps you should change the name of this newgroup, then, to
>comp.lang.perl5.misc? And then people who read about how helpful
>the perl community won't be misled?
there is no Perl 5, it's just Perl.
a better suggestion would be comp.lang.perl.archaic which won't
have a V6 problem like the suggestion above.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: Thu, 29 Jan 1998 01:22:11 -0500
From: Chipmunk <rjk@coos.dartmouth.edu>
Subject: Re: Question about answering (older) questions in c.l.p.*
Message-Id: <34D02013.73E0619D@coos.dartmouth.edu>
Steve Linberg wrote:
>
> [summary of 30 line message:
> 1. found answer to an old question
> 2. ponders people searching dejanews, not find answer to their question, and giving up
> 3. wonders where to provide answer without cluttering newsgroups
> ]
Here's a crazy idea. Instead of cluttering up the newsgroup with a rambling
message about
cluttering up the newsgroup, you could have just posted the answer you found
and solved the
problem in line 2.
:-)
amused,
Chipmunk
------------------------------
Date: Thu, 29 Jan 1998 01:14:17 -0500
From: Chipmunk <rjk@coos.dartmouth.edu>
Subject: Re: Split
Message-Id: <34D01E38.734AE2A1@coos.dartmouth.edu>
Zachary Brown wrote:
>
> Moshe Aaron Allen <moshea@jen.co.il> wrote:
> > I'm need to split() a pararaph after every five words. Can anyone help?
>
> $paragraph =~ s/(\s.*?\s.*?\s.*?\s.*?\s.*?)/$1\n\n/g;
Non-greedy quantifiers are definitely not what you want to use here.
In particular, that last .*? will *never* match anything.
The other .*?'s will be happy to match nothing, allowing the entire regexp
to match something as simple as " " (five spaces).
This would be closer to what the original poster wants:
$paragraph =~ s/\G(\s*\S+(?:\s+\S+){4})/$1\n\n/g;
Chipmunk
------------------------------
Date: 28 Jan 1998 16:20:40 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Survival Of perl
Message-Id: <6anlso$7gf$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, tadmc@flash.net (Tad McClellan) writes:
:FAQs and off-topic posts are "noise". When the noise level crosses
:a person's threshold, they stop participating in the newsgroup.
:
:Objecting to such noise is SOP across nearly all Usenet newsgroups.
:There is nothing particularly Perl-ish about that.
Here is a two column listing of my killfile. I hope it helps.
--tom
/Resource Kit/:+ /tchrist/f:T+
/\bprk\b/:+ /xref:.*:.*:.*:.*:.*:/Hxref:j
/\bpython/:+ /!!!/:j
/\btcl/:+ /(none)/:j
/book/:+ /PerlII*S\.dll/:j
/camel/:+ /Windows/:j
/class/:+ /\bDOS\b/:j
/commercial/:+ /\bHELP\b/:j
/compil/:+ /\bMS\b/:j
/courses/:+ /\bNT\b/:j
/fast[: ]*cgi/:+ /\bVMS\b/:j
/java/:+ /\bcounters?\b/:j
/learning perl/:+ /\be*macs*\b/:j
/llama/:+ /\bform\b/:j
/mdim/:+ /\bforms?\b/:j
/multi-*dim/:+ /\bjob\b/:j
/o.reilly/:+ /\bnewb[ieys]*\b/:j
/perl conf/:+ /\bpc\b/:j
/perl resource kit/:+ /\burl\b/:j
/perl\.com/:+ /\vms\b/:j
/perl\.org/:+ /^!*US-/:j
/python/:+ /^test/:j
/reilly/:+ /attachment/:j
/tcl/:+ /browser/:j
/train/:+ /cgi/:j
/training/:+ /dosperl/:j
/tutorial/:+ /download/:j
\bMS\b/c:j /fast money/:j
/\bJPL\b/c:+ /help!/:j
/DOS\b/c:j /hp-*ux/:j
/FREE/c:j /html/:j
/IIS/c:j /install prob/:j
/MISSING PERSON/c:j /install/:j
/NT/c:j /installation prob/:j
/\bM*IIS\b/c:j /irix/:j
/\bMS\b/c:j /jesus/:j
/\bPC\b/c:j /macintosh/:j
/^Subject:[Re: ]*[^a-z]*$/c:j /macperl/:j
/Andy Dougherty/f:+ /make money/:j
/Chip Salzenberg/f:+ /microsoft/:j
/Dean Roehrich/f:+ /money fast/:j
/Dominus/f:+ /no subject/:j
/Eric Arnold/f:+ /novice/:j
/Friedl/f:+ /ntperl/:j
/Gurusamy Sarathy/f:+ /oracle/:j
/Robert J Seymour/f:+ /oraperl/:j
/Sriram Srinivasan/f:+ /perl *4/:j
/Tim.Bunce/f:+ /please read/:j
/abigail/f:+ /quick money/:j
/drew.*eckhardt/f:+ /recruiter/:j
/orwant/f:+ /server error/:j
/todd.* miller/f:+ /solaris/:j
/Ategra/f:j /sybase/:j
/Dave Beckstrom/f:j /sybperl/:j
/David Formosa/f:j /upload/:j
/Silicon Alley Connections/f:j /urgent/:j
/dformosa@st.nepean.uws.edu.au/f:j /wanted/:j
/linda lollipop/f:j /web/:j
/spam/f:j /win *32/:j
/Larry Wall/f:T+ /win *95/:j
/Malcolm Beattie/f:T. /win3\.1/:j
/Tom Christiansen/f:T+ /winnt/:j
/randal.*schwartz/f:T. /www/:j
/sharon.*hopkins/f:T. /Larry Wall/:T+
--
Tom Christiansen tchrist@jhereg.perl.com
Verbosity leads to unclear, inarticulate things. -- Dan Quayle
------------------------------
Date: 29 Jan 1998 07:44:19 GMT
From: "William Lapides" <MetatonCSI@worldnet.att.net>
Subject: Text Parsing and AI help
Message-Id: <6apc0j$e85@bgtnsc01.worldnet.att.net>
Is anybody aware of any Text Parsing .Lib out there?
Im attempting to make my own AI aka Elizia, with the twist of being a
conspiracy theory nut. I've been hacking away at the text parser and Ive
only got simplistic solutions. Any help or guidance would be much
appreciated.
ken@metatronics.com
------------------------------
Date: Thu, 29 Jan 1998 01:49:41 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Text Problems With Explorer 4.0
Message-Id: <comdog-ya02408000R2901980149410001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6ap4vo$lv$1@news.greatbasin.net>, webmaster@builderpress.com posted:
>I may be jumping in late on a previous discussion, but this problem
>only recently came to light. I recently learned that a few folks
>submitting to my cgi forms were having problems with their data being
>posted
and this is a perl issue because...?
see a newsgroup that discusses browsers for issues dealing with
browsers, or a group that discusses HTML for questions about
forms, or a group that discusses CGI for questions about CGI.
(go figure).
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
it's really getting noisy in here
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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 V8 Issue 1757
**************************************
