[10248] in Perl-Users-Digest
Perl-Users Digest, Issue: 3841 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 28 11:07:22 1998
Date: Mon, 28 Sep 98 08: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 Mon, 28 Sep 1998 Volume: 8 Number: 3841
Today's topics:
Re: A CGI question about Linux + Apache (David A. Black)
Re: an observation on why python will fail (David A. Black)
ANSIColor+formats doesnt works? (Petr Sturc)
Re: Best inexpensive database? <work@nospam.idea.co.uk>
Re: cat reese > /dev/null (was Re: Perl & Java - differ <work@nospam.idea.co.uk>
Re: Coding Standards? <tchrist@mox.perl.com>
Free Shopping Cart Script <nospam@dial411.com>
Re: How to compile perl? (krOMe)
Installing mailtools package from CPAN (Erik Huelsmann)
Re: Need help with $1 pattern melLA@west.net
Re: Need help with $1 pattern (Kevin Reid)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Perl module for LDAP v3? <bbense+comp.lang.perl.misc.Sep.28.98@telemark.stanford.edu>
Re: Poll: How Did You Learn Perl? (Ken Rich)
Re: Porting Unix perl script to winNT servers (Bjvrn Nilsson)
Problem with Text::ParseWords <jhd@saltmine.radix.net>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: using grep to snag patterns from another file <webmaster@fccjmail.fccj.cc.fl.us>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 28 Sep 1998 09:25:25 EDT
From: dblack@saturn.superlink.net (David A. Black)
Subject: Re: A CGI question about Linux + Apache
Message-Id: <6uo2o5$k76$1@earth.superlink.net>
I think you set the record for the most agressively un-clpm-ish
subject line in history. I've seen more relevant ones with the
words "Torri Spelling" in them.
David Black
dblack@saturn.superlink.net
------------------------------
Date: Mon, 28 Sep 1998 09:14:51 EDT
From: dblack@saturn.superlink.net (David A. Black)
Subject: Re: an observation on why python will fail
Message-Id: <6uo24b$imi$1@earth.superlink.net>
Hello -
"Elaine -HappyFunBall- Ashton" <eashton@bbnplanet.com> writes:
>>Lloyd Wood <eep1lw@surrey.ac.uk> wrote:
>>>It always comes down to the most visible leading advocate and exemplar:
>>Bullshit.
>While I do believe that is a pretty hasty gross generalisation, at the core
>it does have some merit. Larry Wall is somewhat charismatic, seemingly
>diplomatic and has encouraged the diversity of contribution from others to
>make Perl the language that it is. Python has not failed, but has not gained
>the popularity that Perl has primarily because it lacks all of those.
>Mussolini made the trains run on time but at what cost?
I don't know much about Python, but it seems to me that Guido is a very generous
programmer and that there is significant spirit among users. Can't we save the
fascist analogies for Micros**t and such? Surely Perl and Python are basically
on the same side of that great divide.
David Black
dblack@saturn.superlink.net
------------------------------
Date: 28 Sep 1998 13:45:39 GMT
From: sturc@pc038b.fzu.cz (Petr Sturc)
Subject: ANSIColor+formats doesnt works?
Message-Id: <6uo3u3$8ag$1@ns.felk.cvut.cz>
Hi all,
I want to make formated output in colors.
I tried something like this this:
use Term::ANSIColor;
format ......
$a=color('red').$a;$b=color('blue');
while(..){
....
write;
}
But on the output I see only ESC-sequences but
no color!
Any advice welcome!
Thanx Petr Sturc
PS: Linux i586 2.0.34
Perl 5.004_4
------------------------------
Date: Mon, 28 Sep 1998 15:14:31 +0100
From: Kiril <work@nospam.idea.co.uk>
Subject: Re: Best inexpensive database?
Message-Id: <360F99C7.1EC02EE2@nospam.idea.co.uk>
I apoligise for the follow-on-follow-up, but the
original article is nowhere on 'my' server...
That said, Sybase have announced a free SQL-server for Linux,
so you might want to visit htp://www.sybase.com/ ( i think)
Mark-Jason Dominus wrote:
>
> In article <360c07df.368445716@nntp.cts.com>,
> Garrett Casey <nospamno_adms1@cts.com> wrote:
> >I have heard of mySQL and mSQL.
>
> Unless mSQL has advanced significantly in the 18 months since I last
> used it, MySQL is much better on all fronts. I quit using mSQL
> because it returned erroneous answers to queries, and switched to
> MySQL. I discovered that MySQL was faster, cheaper, and had many more
> features.
>
> >Are they good? Do you have any other suggestions?
>
> The well-known commercial databases like Oracle may not be as
> expensive as you think. You should investiagte them before ruling
> them out.
Kiril
------------------------------
Date: Mon, 28 Sep 1998 14:39:37 +0100
From: Kiril <work@nospam.idea.co.uk>
Subject: Re: cat reese > /dev/null (was Re: Perl & Java - differences and uses)
Message-Id: <360F9199.CC0251C1@nospam.idea.co.uk>
I R A Aggie wrote:
>
> In article <yRRO1.2136$Ge.6836178@ptah.visi.com>, George Reese
> <borg@imaginary.com> wrote:
>
> + In comp.lang.java.programmer John Porter <jdporter@min.net> wrote:
>
> + : So I take it that by "a decade" you're just rounding 6 up to the
> + : nearest whole number of decades.
>
> + I have been programming for just shy of 8 years. You can play all
> + sort of games with numbers you like, but it won't change the facts.
>
> That 8 < 10? I like your logic, tho. Technically, I've been hacking
> code for over 18 years now. Round it up, and now its 20 years. Wait
> 6 months, do a rounding and get 21 years. Now round up again, and
> suddenly its 25 years!
>
> Hell, if I had done this when I first started, I'd have several hundred
> years, if not several thousand years of programming experience!
>
> James - I was wondering how one got 5 years of java experience...now I
> know...
Now, if I could only apply this logic to my paycheck.....
Kiril
------------------------------
Date: 28 Sep 1998 13:20:35 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Coding Standards?
Message-Id: <6uo2f3$1cb$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, lemull@unx.sas.com writes:
:Can anyone point me to a set of Coding Standards developed
:specifically for Perl?
http://language.perl.com/style/
--tom
--
Those who do not understand Unix are condemned to reinvent it, poorly.
-- Henry Spencer
------------------------------
Date: Sun, 27 Sep 1998 22:17:52 -0400
From: "Richie Carey" <nospam@dial411.com>
Subject: Free Shopping Cart Script
Message-Id: <6uo5sd$a0j$1@strato.ultra.net>
Hi all...
I've just posted a FREE perl shopping cart script to my site. It is based on
Selena Sol's 'Web Store' but I've enhanced it to use cookies, and I've
developed a Store Manager application that allows all system settings, and
inventory, to be added through a web browser. You can check it out at
http://www.dial411.com
Thanks!
Richie Carey
richie@dial411.com
------------------------------
Date: Mon, 28 Sep 98 17:48:50 GMT
From: Here@nowhere.com (krOMe)
Subject: Re: How to compile perl?
Message-Id: <iwNP1.1832$uR.2692083@newsfeed.slurp.net>
You don't need to compile perl. The way I test my scripts locally is by
running a personal web server. FP 98, I don't try to screw with microsoft web
stuff too much.
http://www.omnicron.ab.ca/httpd is where you can get it. Omnihtp is what it is
called. Go through the program settings, it asks where your virtual and actual
cgi-bin is, then it asks where your perl source is. I am not sure if this is
what you are looking for, but locally this thing works just like it feels off
the web, and yes I am using win95. So win98 should be easier.
my own In article <360c9ead.1537554@news.insync.net>, jsadek@bayou.uh.edu
(Billism) wrote:
>Hello, my friend is running a web server off of his T1 connection with
>Win98 and Front Page 98. The perl scripts were not working, then I
>was told that I need to compile them first. Can someone explain to me
>how to do this and with what? Thank you.
>
>-Bill
>
>reply to me at: jsadek@bayou.uh.edu
------------------------------
Date: 28 Sep 1998 13:51:30 GMT
From: ErikH@Bitsmart.com (Erik Huelsmann)
Subject: Installing mailtools package from CPAN
Message-Id: <wzgSQd1pdrdd-pn2-Vo5cKensUJTu@localhost>
I am trying to install the mailtools package from CPAN. At first
running perl on makefile.pl from the distribution, it crashed,
resulting in a core dump (version 5.004).
Then after I discovered what it was that perl crashed on, I removed
the line. Now the script runs, but it complains with the following
result:
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Checking for Net::SMTP... not found
Checking for Net::Domain... not found
Checking for IO::Handle...ok
Unable to find a perl 5 (by these names: perl miniperl perl perl5
perl5.00455, in these dirs: E:/progos2/sibyl/BIN e:/gnu/bin32
d:/batches/cmds e:/progos2/epm C:/MPTN/BIN C:/IBMCOM E:/IBMLAN/NETPROG
C:/MUGLIB C:/OS2 C:/OS2/SYSTEM C:/OS2/MDOS/WINOS2 C:/OS2/INSTALL C:/
C:/OS2/MDOS C:/OS2/APPS E:/NSC e:/tcpip/bin E:/TCPIP/UMAIL E:/WAL
E:/JAVA11/BIN E:/JAVAOS2/bin e:/apps/tex/bin e:/progos2/emx/bin
e:/progos2/util c:/sysutls/watchcat E:/PERL/BIN E:/PERL/BIN)
Have e:/perllib/lib/os2/5.00455/Config.pm expected
E:/PERLLIB/LIB/os2/5.00455/Config.pm
Your perl and your Config.pm seem to have different ideas about the
architecture
they are running on.
Perl thinks: [5.00455]
Config says: [os2]
This may or may not cause problems. Please check your installation of
perl if you
have problems building this extension.
Warning: I could not locate your pod2man program. Please make sure,
your pod2man program is in your PATH before you execute
'make'
Writing Makefile for Mail
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
The make file written stops on the first target complaining that it
cannot find executables. If I did anything wrong, how can I correct
it, or how should I install the mailtools package?
bye, Erik
--
Want to link your Psion to OS/2? Check out
http://www.bitsmart.com/erikh/PSI.html currently relayed to
http://www.oprit.rug.nl/hulsmann/PSI.html
[Don't mail posts, I will see them here just fine]
------------------------------
Date: Mon, 28 Sep 1998 13:15:27 GMT
From: melLA@west.net
Subject: Re: Need help with $1 pattern
Message-Id: <360f8a7f.5588634@news.west.net>
dblack@saturn.superlink.net (David A. Black) wrote:
>HEllo -
>
>melLA@west.net writes:
>
>>Hi there,
>
>>I 'm having a problem extracting the city name from $string as such:
>
>>$match = 0;
>>$string = "state=Alaska|county=Talkeetna|city=Anchorage|";
>>if ($string =~ /city\s*=\s*(.+)\s*|/i)
>>{
>> $match = 1;
>> $city = $1;
>>}
>>print qq(city \= $city<br>\n);
>
>>But the $city value keeps turning up as undefined although $match = 1.
>>I expected the value in parenthesis to contain $1, the city name. What
>>am I doing wrong here?
>
>The '|' character at the end of your pattern is being interpreted as
>the alternation character. What you're saying to the regex engine,
>in essence, is: "Please match either this: /city\s*=\s*(.+)\s*/i
>or this: //i" It matches the second of those options before it even
>gets to the 's' in 'state'.
>
>So - escape the | with \
>
>
>David Black
>dblack@saturn.superlink.net
>
I'd like to thank everyone who responded. I finally got the reg exp to
work, but... originally,
$string =
"state=Alaska|county=Talkeetna|city=Anchorage|addr=0|zip=0|tel=0|";
The problem now is that my reg exp grabs not only the city name, but
everything else except the last pipe. How can I restrict the reg exp
to stop evaluating at the first pipe so that $1 does not include
almost everything to the end of the string?
Thanks,
Milt
(remove all CAPS from my e-addr)
------------------------------
Date: Mon, 28 Sep 1998 10:40:26 -0400
From: kpreid@ibm.net (Kevin Reid)
Subject: Re: Need help with $1 pattern
Message-Id: <1dg29ar.1ca0h3z1rcglhcN@slip166-72-108-183.ny.us.ibm.net>
<melLA@west.net> wrote:
> I'd like to thank everyone who responded. I finally got the reg exp to
> work, but... originally,
> $string =
> "state=Alaska|county=Talkeetna|city=Anchorage|addr=0|zip=0|tel=0|";
>
> The problem now is that my reg exp grabs not only the city name, but
> everything else except the last pipe. How can I restrict the reg exp
> to stop evaluating at the first pipe so that $1 does not include
> almost everything to the end of the string?
Change (.+) to ([^|]+). That forces it to match only non-| characters.
(Note that a | is not special within a character class, and does not
need to be escaped.)
--
Kevin Reid. | Macintosh.
"I'm me." | Think different.
------------------------------
Date: 28 Sep 1998 14:18:40 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <6uo5s0$bbq$3@info.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 21 Sep 1998 13:59:43 GMT and ending at
28 Sep 1998 06:56:45 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 242 (47.3% of all posters)
Articles: 382 (24.8% of all articles)
Volume generated: 645.2 kb (22.7% of total volume)
- headers: 273.8 kb (5,480 lines)
- bodies: 337.1 kb (11,231 lines)
- original: 259.4 kb (8,957 lines)
- signatures: 34.0 kb (599 lines)
Original Content Rating: 0.770
Averages
========
Posts per poster: 1.6
median: 1.0 post
mode: 1 post - 185 posters
s: 1.9 posts
Message size: 1729.5 bytes
- header: 733.9 bytes (14.3 lines)
- body: 903.6 bytes (29.4 lines)
- original: 695.5 bytes (23.4 lines)
- signature: 91.0 bytes (1.6 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
16 30.2 ( 15.9/ 12.6/ 8.3) richgrise@entheosengineering.com
15 19.8 ( 11.1/ 8.7/ 5.4) bart.mediamind@ping.be (Bart Lateur)
14 20.4 ( 9.8/ 10.6/ 5.5) Eric Von Zee <evonzee@tritechnet.com>
8 11.5 ( 5.4/ 6.2/ 1.3) "Aleksey A. Pavlov" <paaa@uic.nnov.ru>
7 9.6 ( 4.8/ 4.8/ 3.8) "caustic" <caustic@causticinteractive.nospam.com>
6 9.8 ( 3.1/ 6.4/ 6.3) Allan@Due.net (Allan M. Due)
6 10.9 ( 3.4/ 5.6/ 3.4) mike@mike.stok.co.uk (Mike Stok)
6 8.5 ( 4.2/ 4.4/ 3.1) smanes@NOSPAM.HEREmagpie.com (Steve Manes)
5 5.8 ( 3.4/ 1.7/ 1.4) nigel.parker@iee.org
4 6.0 ( 2.5/ 3.5/ 2.3) ff@creative.net
These posters accounted for 5.7% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
30.2 ( 15.9/ 12.6/ 8.3) 16 richgrise@entheosengineering.com
23.3 ( 0.6/ 0.1/ 0.1) 1 Eric Dalrymple <ericdal@gte.net>
20.4 ( 9.8/ 10.6/ 5.5) 14 Eric Von Zee <evonzee@tritechnet.com>
19.8 ( 11.1/ 8.7/ 5.4) 15 bart.mediamind@ping.be (Bart Lateur)
18.9 ( 2.9/ 16.0/ 15.5) 4 Kresimir.Puskaric@siemens.at
11.5 ( 5.4/ 6.2/ 1.3) 8 "Aleksey A. Pavlov" <paaa@uic.nnov.ru>
10.9 ( 3.4/ 5.6/ 3.4) 6 mike@mike.stok.co.uk (Mike Stok)
10.7 ( 3.3/ 7.4/ 5.5) 4 Lee.Lindley@bigfoot.com
9.8 ( 3.1/ 6.4/ 6.3) 6 Allan@Due.net (Allan M. Due)
9.6 ( 4.8/ 4.8/ 3.8) 7 "caustic" <caustic@causticinteractive.nospam.com>
These posters accounted for 5.8% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.4 / 1.4) 3 Joe Spinney <jspin@csd.sgi.com>
1.000 ( 1.0 / 1.0) 3 twei@nmsu.edu
0.991 ( 6.3 / 6.4) 6 Allan@Due.net (Allan M. Due)
0.974 ( 1.5 / 1.6) 3 "Steve Adams" <smadams@ozemail.com.au>
0.966 ( 15.5 / 16.0) 4 Kresimir.Puskaric@siemens.at
0.901 ( 2.6 / 2.9) 3 dragnet@internalysis.com (Marc Bissonnette)
0.820 ( 1.6 / 2.0) 3 Marco =?iso-8859-1?Q?J=E4ger?= <marco.jaeger@dwm.ch>
0.803 ( 3.8 / 4.8) 7 "caustic" <caustic@causticinteractive.nospam.com>
0.791 ( 1.4 / 1.7) 5 nigel.parker@iee.org
0.750 ( 5.5 / 7.4) 4 Lee.Lindley@bigfoot.com
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.662 ( 2.8 / 4.2) 3 "Phlip" <new_email@see.web.page>
0.654 ( 2.3 / 3.5) 4 ff@creative.net
0.654 ( 8.3 / 12.6) 16 richgrise@entheosengineering.com
0.625 ( 5.4 / 8.7) 15 bart.mediamind@ping.be (Bart Lateur)
0.615 ( 1.4 / 2.2) 3 sevo@inm.de
0.606 ( 3.4 / 5.6) 6 mike@mike.stok.co.uk (Mike Stok)
0.601 ( 2.5 / 4.1) 3 Joseph Allen Dane <jdane@hawaii.edu>
0.520 ( 5.5 / 10.6) 14 Eric Von Zee <evonzee@tritechnet.com>
0.324 ( 1.3 / 4.0) 3 Toby Applegate <tapplega@utk.edu>
0.208 ( 1.3 / 6.2) 8 "Aleksey A. Pavlov" <paaa@uic.nnov.ru>
23 posters (9%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
7 sevo@inm.de
6 "L. M. Schmitt" <lothar@u-aizu.ac.jp>
6 Joseph Allen Dane <jdane@hawaii.edu>
6 John Arrowwood <jarrowwx@stt3.com>
6 ssantini@my-dejanews.com
6 postmaster@truevision.net
4 Hunter Kelly <retnuh@pixar.com>
4 arw@pythonpros.com
3 rbbloom@us.ibm.com (Ryan Bloom)
3 Knut Barten <apollo@uni-paderborn.de>
------------------------------
Date: 28 Sep 1998 14:09:14 GMT
From: <bbense+comp.lang.perl.misc.Sep.28.98@telemark.stanford.edu> ;
Subject: Re: Perl module for LDAP v3?
Message-Id: <6uo5aa$99t$1@nntp.Stanford.EDU>
In article <360C2159.B44472D3@saic.com>,
Bruce Mohler <bruce.w.mohler@saic.com> wrote:
>I'm trying to track down a Perl module to communicate with
>an LDAP v3 server.
>
>I'm familiar with perl-ldap but that's for LDAP v2. I'm familiar
>with perldap, but I'd prefer a solution that is "pure" Perl (for NT
>and UNIX portability) rather than one that is a Perl module making
>calls to an external C program.
>
>Anything like this exist?
- - There is only one "pure-perl" ldap implementation. That's Graham Barr's
Net::LDAP
- - He's working on implementing LDAP v3, but I don't know how complete
that implementation is yet. There are two ldap modules that use
calls to an external C interface.
Net::LDAPapi - I highly recommend this, but it's only V2 !
and Mozilla's
Mozzilla::LDAP - I'm not sure of this name ( check www.mozilla.org)
- - This should be V3, for netscape's version of V3.
- - However, you do not NEED a V3 client to talk to a V3 server. V2 clients
work just fine. I've had great success with Net::LDAPapi in production
here at stanford. My code works fine against both V2 and V3 servers.
Of course, if there is some special V3 feature that you need then the
discussion is moot.
- - Booker c. Bense
Version: 2.6.2
iQCVAwUBNg+YhgD83u1ILnWNAQERywP7BY++QPVmUnfYL+RFlBSQrZuwXc3nZoro
mXNodmOZ0wVa8y4uwFIKVUS63g6WnHrvV14hgCeYpcqQEWUvDbQhHS6BFZCifYbl
3r+jfyrxCa3TNRwQa/0yBWKXRdTZlo343czPqzxlY3SuG9EbpOPMgnY8MuidMh1A
Gl+u4y7To2A=
=cgiL
-----END PGP SIGNATURE-----
------------------------------
Date: 28 Sep 1998 14:19:34 GMT
From: kenr@troi.cc.rochester.edu (Ken Rich)
Subject: Re: Poll: How Did You Learn Perl?
Message-Id: <6uo5tm$6704@biko.cc.rochester.edu>
Elementary training: Ran a2p on an awk-ward script of mine and took off.
Intermediate training: A paper copy of the perl 4 man page.
The Tao of Perl indoctrination: Randall Schwartz's JAPH sigs.
------------------------------
Date: Mon, 28 Sep 1998 13:31:49 GMT
From: bjorn.w.nilsson@edt.ericsson.se (Bjvrn Nilsson)
Subject: Re: Porting Unix perl script to winNT servers
Message-Id: <360f8f3f.265844514@news.ericsson.se>
Hi!
Normally it isn't that much of a hassle. But as I am not interested in
buying the script myself in order to find out if you can use it I
cannot tell for sure.
The main problem usually is the location of directories and files. You
have to exchange the "/home/userXXX/dirXXX/" with the NT equivialent
"D:/inetpub/userXXX/dirXXX" (It's OK to use forward slashes from Perls
point of view. If you use backslashes, either single-quote the whole
string or, if you use double-quotes, escape the backslashes with
anoter backslash.)
What can be a problem is if anything is encrypted with the UNIX crypt
command. That is not supported on NT. This problem is addressed in the
FAQ for the WWWBoard from Matts Script Archive:
http://worldwidemart.com/scripts/faq/wwwboard.shtml
What you normally have to change is all instances of sendmail, which
normally isn't supported by NT. (If the script is written in a decent
way, it has some kind of generic "sub send_mail" routine, in which
case it's easy to find. Else you have to search all the scripts for
the word sendmail and replace the routine with something that works on
NT. There are numerous examples on how to do this on the net.) I
normally use the NET::SMTP module to send my mails, which is
documented in e.g. Activestates ActivePerl.
On Sat, 26 Sep 1998 21:38:50 GMT, Sweets@sugarhigh.com (Belle) wrote:
>After several hours of hunting a good shopping cart script, I finally
>found one that looked PERFECT for me. Unfortunately, the script was
>for Unix based servers and may not run on NT servers, which is what my
>host uses. Could someone tell me if it's possible to edit this script
>(http://www.virtualcenter.com/scripts2/WWWOrder2.html) for NT? Any
>help would be appreciated.
>
>A
------------------------------
Date: 28 Sep 1998 14:14:31 GMT
From: Joseph Davidson <jhd@saltmine.radix.net>
Subject: Problem with Text::ParseWords
Message-Id: <6uo5k7$bqs$1@news1.Radix.Net>
Using 5.003 and Text::ParseWords I am having this problem.
I use Parsewords to be able to tokenize a string around quotes. This
enable me to read Eudora address books for www.interguru.com/mailconv.htm,
my addressbook conversion service.
The code fails with the following input.
alias "Judy\John Xxxxx" jhxxxxxB@slxx.net
with the following message
Unmatched quote at (eval 1) line 31
If I delete the slash it works.
I have attempted to trap the problem by deleting the slash, but it doesn't
work
Here is the relevant code, and the output
----------------------- CODE -------------
print "JHD2 $_ \n";
s/\'//g;
s|/|:|g;
$a = tr/"/"/;
#@@@@
print "JHD3 A= $a $_ \n";
if (tr/"/"/%2 !=0) # to prevent unterminated quotes
# (which should not exist, but ocasionaly do)
# from terminating the script with a 500
# server error. The garbled line will remain
# garbled.
{
print "JHD1 $_ \n";
s/ / "/;
}
----------------------- END Code ---------------------------
----------------------------- BEGIN output -----------
JHD2 alias "Judy\John Xxxxx" jhxxxxx@slxx.net
JHD3 A= 2 alias "Judy\John Xxxxx" jhxxxxx@slxx.net
Unmatched quote at (eval 1) line 31
------ END output ----------------------------------------
note that my attempt to get rid of the slash and replace it with a colon
does not work
Thanks
Joe Davidson
----------------------------------------------------------------------
Joseph Davidson Ph.D.
InterGuru -- Internet Engineering
Perl/CGI, E-mail address list conversion service
1501 Dublin Drive, Silver Spring, Md. 20902
voice 301 593 4152 ; fax 301 593 2541
jdavidson@interguru.com, http://www.interguru.com
----------------------------------------------------------------------
------------------------------
Date: 28 Sep 1998 14:18:24 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <6uo5rg$bbq$2@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 21 Sep 1998 13:59:43 GMT and ending at
28 Sep 1998 06:56:45 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@mox\.perl\.com
Totals
======
Posters: 512
Articles: 1539 (695 with cutlined signatures)
Threads: 398
Volume generated: 2838.7 kb
- headers: 1194.2 kb (22,197 lines)
- bodies: 1495.3 kb (46,168 lines)
- original: 965.4 kb (32,881 lines)
- signatures: 147.7 kb (2,715 lines)
Original Content Rating: 0.646
Averages
========
Posts per poster: 3.0
median: 1.0 post
mode: 1 post - 311 posters
s: 6.6 posts
Posts per thread: 3.9
median: 2.0 posts
mode: 1 post - 124 threads
s: 10.0 posts
Message size: 1888.8 bytes
- header: 794.6 bytes (14.4 lines)
- body: 994.9 bytes (30.0 lines)
- original: 642.4 bytes (21.4 lines)
- signature: 98.3 bytes (1.8 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
76 206.8 ( 72.0/108.2/ 69.3) Zenin <zenin@bawdycaste.org>
60 143.4 ( 68.2/ 73.8/ 33.7) John Porter <jdporter@min.net>
44 172.3 ( 50.0/113.2/ 42.5) George Reese <borg@imaginary.com>
43 68.3 ( 38.1/ 30.2/ 22.1) Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
35 57.9 ( 23.5/ 29.9/ 16.5) Jonathan Stowe <gellyfish@btinternet.com>
32 54.5 ( 21.3/ 29.6/ 19.5) lr@hpl.hp.com (Larry Rosler)
29 60.1 ( 27.2/ 27.6/ 11.9) abigail@fnx.com
24 41.1 ( 16.7/ 20.6/ 7.8) Uri Guttman <uri@camel.fastserv.com>
22 36.1 ( 13.3/ 22.7/ 15.6) cberry@cinenet.net (Craig Berry)
20 33.1 ( 15.9/ 12.1/ 6.1) rjk@coos.dartmouth.edu (Ronald J Kimball)
These posters accounted for 25.0% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
206.8 ( 72.0/108.2/ 69.3) 76 Zenin <zenin@bawdycaste.org>
172.3 ( 50.0/113.2/ 42.5) 44 George Reese <borg@imaginary.com>
143.4 ( 68.2/ 73.8/ 33.7) 60 John Porter <jdporter@min.net>
68.3 ( 38.1/ 30.2/ 22.1) 43 Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
60.1 ( 27.2/ 27.6/ 11.9) 29 abigail@fnx.com
57.9 ( 23.5/ 29.9/ 16.5) 35 Jonathan Stowe <gellyfish@btinternet.com>
54.5 ( 21.3/ 29.6/ 19.5) 32 lr@hpl.hp.com (Larry Rosler)
41.1 ( 16.7/ 20.6/ 7.8) 24 Uri Guttman <uri@camel.fastserv.com>
36.2 ( 13.8/ 22.4/ 20.4) 17 Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
36.1 ( 13.3/ 22.7/ 15.6) 22 cberry@cinenet.net (Craig Berry)
These posters accounted for 30.9% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.991 ( 6.3 / 6.4) 6 Allan@Due.net (Allan M. Due)
0.983 ( 4.8 / 4.9) 6 fl_aggie@thepentagon.com (I R A Aggie)
0.934 ( 17.2 / 18.4) 6 Greg Bacon <gbacon@cs.uah.edu>
0.914 ( 20.4 / 22.4) 17 Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
0.842 ( 7.0 / 8.3) 6 Daniel Grisinger <dgris@rand.dimensional.com>
0.830 ( 2.5 / 3.1) 6 Arved Sandstrom <Arved_37@chebucto.ns.ca>
0.805 ( 14.8 / 18.4) 18 mjd@op.net (Mark-Jason Dominus)
0.803 ( 3.8 / 4.8) 7 "caustic" <caustic@causticinteractive.nospam.com>
0.791 ( 1.4 / 1.7) 5 nigel.parker@iee.org
0.775 ( 5.3 / 6.9) 8 scott@softbase.com
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.410 ( 3.9 / 9.6) 8 sb@engelschall.com (Steffen Beyer)
0.396 ( 4.0 / 10.2) 11 phenix@interpath.com (John Moreno)
0.381 ( 0.7 / 1.7) 5 alastair@calliope.demon.co.uk
0.379 ( 7.8 / 20.6) 24 Uri Guttman <uri@camel.fastserv.com>
0.378 ( 3.2 / 8.6) 16 Randal Schwartz <merlyn@stonehenge.com>
0.375 ( 42.5 /113.2) 44 George Reese <borg@imaginary.com>
0.303 ( 0.8 / 2.7) 6 Sam Wang <samwang@freewwweb.com>
0.300 ( 1.9 / 6.4) 8 baliga@synopsys.com
0.208 ( 1.3 / 6.2) 8 "Aleksey A. Pavlov" <paaa@uic.nnov.ru>
0.205 ( 0.9 / 4.2) 5 whatpartofdontemailme@dontyouunderstand
64 posters (12%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
155 Perl & Java - differences and uses
90 Poll: How Did You Learn Perl?
37 cat reese > /dev/null (was Re: Perl & Java - differences and uses)
36 any way to encrypt my script?
27 Where to put cgi-lib.pl
27 help with removing leading zeros with reg-exp
21 even/odd numbers
16 Array of hashes: a better way?
16 Q: Picking an element from a hash (not knowing which!) [Zorn's lemma?]
16 Hashes springing into existence [Was: more regex/pattern substitution]
These threads accounted for 28.7% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
503.6 (176.4/306.6/161.1) 155 Perl & Java - differences and uses
148.3 ( 74.3/ 66.3/ 47.1) 90 Poll: How Did You Learn Perl?
78.1 ( 35.2/ 38.1/ 22.4) 36 any way to encrypt my script?
77.7 ( 40.7/ 31.3/ 13.9) 37 cat reese > /dev/null (was Re: Perl & Java - differences and uses)
57.0 ( 21.8/ 31.3/ 20.5) 27 Where to put cgi-lib.pl
46.2 ( 19.0/ 25.8/ 17.4) 27 help with removing leading zeros with reg-exp
35.9 ( 19.7/ 14.3/ 5.7) 21 even/odd numbers
34.6 ( 13.4/ 18.2/ 12.1) 16 Hashes springing into existence [Was: more regex/pattern substitution]
27.2 ( 9.3/ 16.9/ 10.7) 13 Rotating an array.
26.7 ( 11.2/ 11.9/ 5.3) 16 Array of hashes: a better way?
These threads accounted for 36.5% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.896 ( 13.5/ 15.0) 6 Cookie Help!
0.851 ( 1.9/ 2.2) 5 Does the $string contain "my_text"?
0.836 ( 2.3/ 2.8) 5 How Too?? File Copy from 1 server to the scripts server
0.807 ( 2.4/ 3.0) 5 sock the heck out of port 23
0.803 ( 1.7/ 2.1) 5 grep syntax question
0.792 ( 2.4/ 3.0) 5 Regular Expression Operator Precedence
0.785 ( 5.3/ 6.8) 5 Q: how to search/replace (s/...) extended ascii characters?
0.776 ( 5.8/ 7.4) 6 Redirection Question
0.770 ( 3.0/ 4.0) 5 Need help with $1 pattern
0.755 ( 2.6/ 3.4) 5 removing a-z from a string.
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.499 ( 5.7 / 11.4) 14 changing $ 'variables' in regexprs
0.470 ( 2.4 / 5.2) 5 CHALLENGE: Fastest algo wins.
0.469 ( 2.0 / 4.2) 6 substitute to a new string, leaving first unchaned
0.469 ( 3.1 / 6.6) 6 How to tinker with @_ in threaded Perl?
0.461 ( 3.8 / 8.3) 5 where is Date::Parse (CPAN.pm)?
0.444 ( 5.3 / 11.9) 16 Array of hashes: a better way?
0.443 ( 13.9 / 31.3) 37 cat reese > /dev/null (was Re: Perl & Java - differences and uses)
0.435 ( 4.0 / 9.2) 13 How to read contents of all *.TXT files in directory into one file?
0.403 ( 1.2 / 3.0) 5 send geroge reese (was Re: Call for Participation: Python Conference)
0.401 ( 5.7 / 14.3) 21 even/odd numbers
72 threads (18%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
190 comp.lang.java.programmer
27 comp.lang.python
24 comp.lang.perl.modules
16 comp.lang.perl.moderated
14 comp.infosystems.www.servers.unix
13 comp.lang.python.misc
10 comp.os.linux.networking
10 cz.comp.linux
9 comp.infosystems.www.authoring.html
6 de.comp.perl
Top 10 Crossposters
===================
Articles Address
-------- -------
52 Zenin <zenin@bawdycaste.org>
47 George Reese <borg@imaginary.com>
43 John Porter <jdporter@min.net>
13 Jeremy Hylton <jeremy@cnri.reston.va.us>
9 abigail@fnx.com
9 dformosa@zeta.org.au (David Formosa)
9 bjohnsto_usa_net@my-dejanews.com
7 Uri Guttman <uri@camel.fastserv.com>
7 sevo@inm.de
6 Joseph Allen Dane <jdane@hawaii.edu>
------------------------------
Date: Mon, 28 Sep 1998 09:17:04 -0400
From: "Bill Jones, FCCJ Webmaster" <webmaster@fccjmail.fccj.cc.fl.us>
Subject: Re: using grep to snag patterns from another file
Message-Id: <360F8C50.DC0F8E17@fccjmail.fccj.cc.fl.us>
Since I mistakenly posted this here, please follow-ups in:
comp.sys.sun.misc.
Sorry for the mis-post.
-Sneex-
__________________________________________________________________
Bill Jones FCCJ Webmaster | http://www.fccj.org/cgi/mail?webmaster
__________________________________________________________________
We are the CLPM... Lower your standards and surrender your code...
We will add your biological and technological distinctiveness to
our own... Your thoughts will adapt to service us...
...Resistance is futile...
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3841
**************************************
