[12849] in Perl-Users-Digest
Perl-Users Digest, Issue: 259 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 26 10:07:15 1999
Date: Mon, 26 Jul 1999 07:05:08 -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 Mon, 26 Jul 1999 Volume: 9 Number: 259
Today's topics:
ANNOUNCE: XML::RSS 0.2 (Jonathan Eisenzopf)
Re: Extracting plain text from email <tchrist@mox.perl.com>
Re: Extracting plain text from email (Tad McClellan)
Re: FAQ 8.45: How do I install a module from CPAN? (Bruce R Miller)
Re: Geekspeak Programming Contest (Larry Rosler)
Re: jpg files blown away (Bart Lateur)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: newlines et al, was Re: remove records from databas <flavell@mail.cern.ch>
Re: Outputting text as entered by user (Anno Siegel)
perl binaries for solaris 2.4 (Life Insurance Corporation of India)
Problem with sockets <tniemi@mail.student.oulu.fi>
Re: random (Anno Siegel)
Re: REAL: help with flock() portability (Stefano Ghirlanda)
Re: reg expression <revjack@radix.net>
Re: reg expression <llornkcor@llornkcor.com>
Re: RegEx: Capitalize 1st char. of string with spaces (Tad McClellan)
Re: Removing characters (Tad McClellan)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Testing MSQL/Perl scripts at home with MS Access/Ac (Layout/Design)
Re: Which group is appropriate? bane_dewitt@my-deja.com
Re: Which group is appropriate? bane_dewitt@my-deja.com
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 26 Jul 99 13:38:19 GMT
From: eisen@pobox.com (Jonathan Eisenzopf)
Subject: ANNOUNCE: XML::RSS 0.2
Message-Id: <379C64CB.90468609@pobox.com>
DLSI=adpO
This is the second alpha release because the API has not
been finalized. The module will be available at your local
CPAN archive. Alternatively, try one of the 2 URLs:
http://www.perl.com/CPAN/authors/id/E/EI/EISEN/XML-RSS-0.2.tar.gz
http://www.perlxml.com/modules/XML-RSS-0.2.tar.gz
This Perl module provides a basic framework for creating and maintaining
RDF Site Summary (RSS) files. This distribution also contains several
examples that allow you to generate HTML from an RSS file.
This might be helpful if you want to include news feeds on your Web
site from sources like Slashot and Freshmeat.
RSS is primarily used by content authors who want to create a
Netscape Netcenter channel, however, that doesn't exclude us from using
it
in other applications.
For example, you may want to distribute daily news headlines to partners
and
customers who convert it to some other format, like HTML.
For the most part the module adheres to the RSS spec as it exists at
http://my.netscape.com/publish/help/quickstart.html.
Unfortunately, the RSS spec also allows one to use any HTML entity
without
first declaring them. Since XML::RSS is based on XML::Parser, you
can only use the default XML entities.
Please send comments, problems, etc. to eisen@pobox.com. I am especially
looking for suggestion for additional functionality.
Jonathan.
xml-dev: A list for W3C XML Developers. To post, mailto:xml-dev@ic.ac.uk
Archived as: http://www.lists.ic.ac.uk/hypermail/xml-dev/ and on CD-ROM/ISBN 981-02-3594-1
To (un)subscribe, mailto:majordomo@ic.ac.uk the following message;
(un)subscribe xml-dev
To subscribe to the digests, mailto:majordomo@ic.ac.uk the following message;
subscribe xml-dev-digest
List coordinator, Henry Rzepa (mailto:rzepa@ic.ac.uk)
------------------------------
Date: 26 Jul 1999 06:30:45 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Extracting plain text from email
Message-Id: <379c54f5@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, miker3@ix.netcom.com (Michael Rubenstein) writes:
:It is a matter of opinion whether these things imply that
:responses should come after quotes.
Your continued attempts at branding design flaws and outright mistakes
"matters of opinion" firmly places you in the same crowd as the cultural
relativists, where everything is merely opinion, and all opinions are
equally valid, and both good and bad have ceased to exist.
Well, that's not reality. You don't get to call something "opinion" just
so we are no longer permitted appraise its merit. The heart of the matter
is that you're sticking up for people who are just plain screwing up.
Continue to support the people; fine. But if you support their mistakes,
you're quite simply wrong.
--tom
--
'Do or do not... there is no try'
- Yoda
------------------------------
Date: Mon, 26 Jul 1999 03:47:31 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Extracting plain text from email
Message-Id: <jq3hn7.ueh.ln@magna.metronet.com>
Michael Rubenstein (miker3@ix.netcom.com) wrote:
: And other people seem to think that common sense says that the
: response comes before the quote. Apparently your opinion is not
: universally recognized as common sense.
So when a followup has 5 levels of quoting, some using one way
and some the other way, the quotes are in neither chronological
nor reverse-chronological order.
They are in no apparent order, like hash keys.
That is bad for communication (and we are already hobbled by
lack of inflection, facial expressions, etc... We don't need
yet more hobbling)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 22 Jul 1999 20:02:47 GMT
From: miller@altaira.cam.nist.gov (Bruce R Miller)
Subject: Re: FAQ 8.45: How do I install a module from CPAN?
Message-Id: <7n7td7$9cs$1@news.nist.gov>
In article <3796e2e5@cs.colorado.edu>,
Tom Christiansen <perlfaq-suggestions@perl.com> writes:
>
> How do I install a module from CPAN?
which reminds me of something I was wondering...
CPAN is a really cool tool; ftp's from somewhere, runs make,
runs make install ..!!!
Hmm, that last bit! If my installation directory is only writable
by root (a not uncommon setup ?), I've got to run the whole CPAN
shell, ftp and everything as root too, right?
which makes me a bit uncomfortable... My root isn't allowed to surf the web.
Or am I missing some clever alternative here?
thanks
--
--
bruce.miller@nist.gov
http://math.nist.gov/~BMiller/
------------------------------
Date: Mon, 26 Jul 1999 06:50:09 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Geekspeak Programming Contest
Message-Id: <MPG.12060764bc181780989d48@nntp.hpl.hp.com>
In article <7nh3cp$6v4$1@lublin.zrz.tu-berlin.de> on 26 Jul 1999
07:40:09 -0000, Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> says...
> Larry Rosler <lr@hpl.hp.com> wrote in comp.lang.perl.misc:
> >[Posted and a courtesy copy sent.]
...
> >How would one characterize the difference between a 'programming
> >mistake' and a (software) bug?
...
> $sum_of_squares = $n*( $n - 1);
>
> we don't know if the programmer misremembered his math (programming
> error) or if he forgot to type in /2 (bug).
Then how would one characterize this:
$sum_of_squares = $n*( $n - 1) / 2;
versus this:
$sum_of_sequence_of_first_n_nonnegative_integers =
$n*( $n - 1) / 2;
:-)
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 26 Jul 1999 13:54:09 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: jpg files blown away
Message-Id: <379c6814.2100441@news.skynet.be>
Joe Frey wrote:
>If it has changed, the program will
>copy it into a different directory and call an exe to operate on the
>file. I've written this much, When I try to open the file after I've
>moved it Photoshop won't recognize it as a jpg. Why is this?
As mentioned before, it's because you don't use bonmode() on the
filehandles.
But you should really look into File::Copy.
use File::Copy;
copy("file1","file2");
Bart.
------------------------------
Date: 26 Jul 1999 13:52:08 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <7nhp68$f6s$2@info2.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 19 Jul 1999 13:40:51 GMT and ending at
24 Jul 1999 22:59:11 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) 1999 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 207 (42.1% of all posters)
Articles: 307 (20.6% of all articles)
Volume generated: 501.2 kb (20.0% of total volume)
- headers: 223.6 kb (4,724 lines)
- bodies: 274.9 kb (9,219 lines)
- original: 214.0 kb (7,365 lines)
- signatures: 2.5 kb (51 lines)
Original Content Rating: 0.778
Averages
========
Posts per poster: 1.5
median: 1 post
mode: 1 post - 148 posters
s: 3.6 posts
Message size: 1671.8 bytes
- header: 745.7 bytes (15.4 lines)
- body: 916.8 bytes (30.0 lines)
- original: 713.7 bytes (24.0 lines)
- signature: 8.2 bytes (0.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
6 7.2 ( 3.7/ 3.4/ 1.9) Mike Eiringhaus <mail@netron.de>
6 9.0 ( 5.3/ 3.7/ 1.8) "e-bin" <NOSPAMebin111@yahoo.com>
6 20.9 ( 4.8/ 16.1/ 14.5) Daniel <dbohling@pacbell.net>
5 6.5 ( 3.2/ 3.3/ 3.0) Brian Lojeck <lojeck@mizar.usc.edu>
5 8.1 ( 4.5/ 3.5/ 2.1) HC <carvdawg@patriot.net>
4 4.2 ( 3.6/ 0.7/ 0.6) jona@ds10.hobby.nl
4 5.5 ( 3.2/ 2.3/ 1.1) Kevin Kinnell <kejoki@netdoor.com>
4 29.2 ( 2.9/ 26.3/ 23.6) "Philip H. Dye" <Philip_Dye@norstanconsult.com>
4 6.8 ( 2.6/ 4.2/ 3.5) Nico Zigouras <zigouras@mail.med.upenn.edu>
4 5.2 ( 2.6/ 2.6/ 0.5) chrisd <cmd@maths.uq.edu.au>
These posters accounted for 3.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
29.2 ( 2.9/ 26.3/ 23.6) 4 "Philip H. Dye" <Philip_Dye@norstanconsult.com>
20.9 ( 4.8/ 16.1/ 14.5) 6 Daniel <dbohling@pacbell.net>
9.0 ( 5.3/ 3.7/ 1.8) 6 "e-bin" <NOSPAMebin111@yahoo.com>
9.0 ( 3.4/ 5.6/ 5.6) 3 moun@usenix.org (Moun Chau)
8.1 ( 4.5/ 3.5/ 2.1) 5 HC <carvdawg@patriot.net>
7.2 ( 3.7/ 3.4/ 1.9) 6 Mike Eiringhaus <mail@netron.de>
6.8 ( 2.6/ 4.2/ 3.5) 4 Nico Zigouras <zigouras@mail.med.upenn.edu>
6.5 ( 3.2/ 3.3/ 3.0) 5 Brian Lojeck <lojeck@mizar.usc.edu>
6.0 ( 1.7/ 4.4/ 1.5) 2 shaunj@my-deja.com
6.0 ( 0.6/ 5.4/ 4.9) 1 adougall@netscape.net
These posters accounted for 4.3% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 5.6 / 5.6) 3 moun@usenix.org (Moun Chau)
0.901 ( 14.5 / 16.1) 6 Daniel <dbohling@pacbell.net>
0.898 ( 23.6 / 26.3) 4 "Philip H. Dye" <Philip_Dye@norstanconsult.com>
0.895 ( 3.0 / 3.3) 5 Brian Lojeck <lojeck@mizar.usc.edu>
0.885 ( 0.6 / 0.7) 4 jona@ds10.hobby.nl
0.830 ( 3.5 / 4.2) 4 Nico Zigouras <zigouras@mail.med.upenn.edu>
0.725 ( 1.4 / 1.9) 3 japhy@pobox.com
0.722 ( 1.9 / 2.6) 3 danny <pcl@dds.nl>
0.718 ( 1.1 / 1.5) 3 Ewan Dunbar <northsky@ix.netcom.com>
0.683 ( 1.5 / 2.1) 3 zqx@siesta.cs.wustl.edu (Zeqing Xia)
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.582 ( 2.1 / 3.5) 5 HC <carvdawg@patriot.net>
0.581 ( 0.8 / 1.4) 3 "Marco Cecconi" <sklivvz@tiscalinet.it>
0.555 ( 1.9 / 3.4) 6 Mike Eiringhaus <mail@netron.de>
0.495 ( 1.8 / 3.7) 6 "e-bin" <NOSPAMebin111@yahoo.com>
0.472 ( 1.6 / 3.3) 3 James Deleon <scoobyshake@earthlink.net>
0.459 ( 1.3 / 2.8) 4 Blair Kissel <blair.kissel@mts.mb.ca>
0.457 ( 1.1 / 2.3) 4 Kevin Kinnell <kejoki@netdoor.com>
0.425 ( 1.2 / 2.9) 3 Darren greer <dgreer@websightsolutions.com>
0.355 ( 0.9 / 2.6) 4 "Jean-Marc Beaudoin" <beaudoin.jean-marc@-NOSPAM-hydro.qc.ca>
0.193 ( 0.5 / 2.6) 4 chrisd <cmd@maths.uq.edu.au>
21 posters (10%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
16 moun@usenix.org (Moun Chau)
4 Ramanika <ramanika@flashmail.com>
3 "CompGuy" <emusick@garagedoor.org>
3 zneg.ngxvaf@ovtsbbg.pbz
3 "John" <irishcream@iname.com>
2 Stuart <moigescr@hotmail.com>
2 HC <carvdawg@patriot.net>
1 "Julio R. Escobar" <escobar@oxy.edu>
1 Bill Wohler <wohler@gbr.newt.com>
1 rgaushell@hotmail.com
------------------------------
Date: Mon, 26 Jul 1999 14:01:57 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: newlines et al, was Re: remove records from database
Message-Id: <Pine.HPP.3.95a.990726134318.9600E-100000@hpplus03.cern.ch>
On 25 Jul 1999, Abigail wrote:
> I realized I should have mentioned \012 and \015
> after I posted it, but then I thought someone else would as well.
>
> man perlipc explains why.
Thanks. That was a useful reference.
Maybe I'm sticking my neck out again, but the version I'm reading here
says:
(If you're on a Mac, you'll also need to change every "\n" in your
code that sends data over the network to be a "\015\012" instead.)
That seems to me to be quite the wrong attitude. It hints that if
you're not on a Mac, then you shouldn't use "\015\012" - which is surely
not at all what it's meaning to say?
Wouldn't it be better for it to say something like:
If you are sending data to the network, then the correct
cross-platform representation of a newline is "\015\012".
and leave it at that (there's already a good discussion of the
platform-dependence issues earlier in the doc, so the implications of
writing "\n" instead probably don't need repeating here, imho).
There's some very useful comments elsewhere in the reference, and also
about tolerating nonstandard newline representations on input. It's
just this one sentence that I'm carping about.
all the best
------------------------------
Date: 26 Jul 1999 14:02:20 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Outputting text as entered by user
Message-Id: <7nhppc$7gd$1@lublin.zrz.tu-berlin.de>
Arul Singam <ansingam@chat.carleton.ca> wrote in comp.lang.perl.misc:
>> > Please email or post to newsgroup.
>
>> I think that either one of the two would have been the default action
>> for almost any newsreader. There really was no need to post that.
>
>Dont you see the "or"? That means it is unneccessary to do "both".
>Get some grammar knowledge in your brain before blabbering.
If you meant to say "Please email or post, but not both", why didn't
you say so? And why do you presume you can stop anyone from doing
both? And why do you quote the complete article, signature included,
when you just want to complain about the little quip up there? And
why do you post an html question in a perl newsgroup? And then go
on to bash the poster who gave you a helpful reply anyway?
*plonk*
Anno
------------------------------
Date: Mon, 26 Jul 1999 13:25:48 GMT
From: liedpmum@bom3.vsnl.net.in (Life Insurance Corporation of India)
Subject: perl binaries for solaris 2.4
Message-Id: <379c6186.30584735@202.54.1.25>
Help!
Anybody knows where I can get perl binaries (any version) for solaris
2.4?
Pl email me at : edpmum@vsnl.com
Thanks a million
Krishnan
------------------------------
Date: Mon, 26 Jul 1999 16:22:15 +0300
From: Tommi Niemi <tniemi@mail.student.oulu.fi>
Subject: Problem with sockets
Message-Id: <Pine.SGI.3.95.990726160213.10032B-100000@paju.oulu.fi>
I have a forking server (the code is from Panther book) and the problem
is, that sometimes I got this error message:
usage $fh->accept([PKG]) at program.pl line 544
and code is here:
use IO::Socket;
$SIG{CHLD} = sub {wait ()};
$main_socket = new IO::Socket::INET (LocalHost => "paju.oulu.fi",
LocalPort => 80,
Listen => 20,
Proto => 'tcp',
Reuse =>1);
die "Socket could no be created: $!\n" unless ($main_socket);
...
..
.
....
while (1) {
while($new_socket = $main_socket->accept()) {
$pid = fork();
die "$!" unless defined($pid);
if ($pid==0) {
while(defined($buf = <$new_socket>)) {
#
# Here's something ....
#
}
}
exit (0);
}
}
$main_sock->close;
Can anyone say, what's wrong here...
-Tommi
------------------------------
Date: 26 Jul 1999 12:12:20 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: random
Message-Id: <7nhjb4$7c2$1@lublin.zrz.tu-berlin.de>
Tony Greenwood <tony@webscripts.org> wrote in comp.lang.perl.misc:
>Hey! anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
>
>>>I can think of one way and thats to put the numbers 2-7 into an array
[put integers with the desired distribution into an array and select
randomly from that]
>>I depends on the exact distribution you want. Your method is the
>>recommended one if you want to approximate an arbitrary distribution.
>
>>I'd stick with your method, it's fine.
>
>It works so I will not try to fix it then.. I just see a large answer
>and look for a smaller one (old habit)
Addendum: After claiming the method sketched above is "the recommended
method" I went back to check Knuth _Seminumerical Algorithms_. (This
is, while dated, still a good repository of standard algorithms.) To my
chagrin, I couldn't find it. His recommendation for this problem is
to divide the interval [0, 1) into sub-intervals of appropriate lengths
and see in which one a random number (parameterless rand style) ends up.
(He also mentions a tricky "method of aliases" which I didn't readily
understand.)
My guess is that the array would be a little faster at the expense
of some space (Btw. a vec in perl tends to be still a bit faster
than an array). The space expense gets high when you want to emulate
an arbitrary distribution with high precision, whereas the interval
method doesn't depend on that.
Just thought I'd mention it.
Anno
------------------------------
Date: 26 Jul 1999 13:31:37 GMT
From: stefano@rerumnatura.zool.su.se (Stefano Ghirlanda)
Subject: Re: REAL: help with flock() portability
Message-Id: <slrn7ppklh.ft1.stefano@rerumnatura.zool.su.se>
Hi,
apologies for the preceeding empty message, my terminal somehow froze when
I was posting and I didn't know what happened after.
Here is the message:
A program that I developed under linux doesn't seem to work on Solaris.
the offendingn code is related to file locking and reads:
sysopen PIPE, $pipe, O_RDONLY or croak "can't open $pipe: $!";
flock PIPE, LOCK_EX or croak "can't lock $pipe: $!";
On solaris a user gets the error:
can't lock /home/ron/.lyxpipe.out: Bad file number at
/usr/local/lib/perl5/site_perl/5.005/LyX/Client.pm line 238
I know that flock() is not the most portable of functions, but my perlport
manpage does not mention any problem with Solaris. Also, I cannot find the
error message in perldiag.
Any help appreciated,
Stefano
--
Stefano Ghirlanda, Zoologiska Institutionen, Stockholms Universitet
Office: D554, Arrheniusv. 14, S-106 91 Stockholm, Sweden
Phone: +46 8 164055, Fax: +46 8 167715, Email: stefano@zool.su.se
Support Free Science, look at: http://rerumnatura.zool.su.se
------------------------------
Date: 26 Jul 1999 12:26:23 GMT
From: revjack <revjack@radix.net>
Subject: Re: reg expression
Message-Id: <7nhk5f$t1f$1@news1.Radix.Net>
Keywords: Hexapodia as the key insight
r j huntington explains it all:
:Abigail (abigail@delanet.com) wrote:
::
:: The problem you describe is asked in variants about 37 times a day.
:: It's also a FAQ.
:Up to there, Abigail has a useful (to the querant) thing to say...
:: Go to school, and learn to read. Then read.
:But there she degrades into gratuitous insults.
:One wonders why she does this. Can she show cause? Or is she just mean?
She has the approbation of her peers. That's not a criticism, just an
observation. Anno just submitted a well-written article describing how
usenet newsgroup cultures evolve, check it out if you want to understand
the "why" of things.
------------------------------
Date: Mon, 26 Jul 1999 07:43:15 -0600
From: "llornkcor" <llornkcor@llornkcor.com>
Subject: Re: reg expression
Message-Id: <7nhoih$17m$1@birch.prod.itd.earthlink.net>
> The problem you describe is asked in variants about 37 times a day.
> It's also a FAQ. Go to school, and learn to read. Then read.
The purpose of a newsgroup is to ask questions and get answers. Of course, I
have on my computer, about 10 perl FAQ's, and of course, I went to school,
and learned how to read. And have READ. of course, I couldn't find any
answers pertaining to the specific issue at hand. That's why I asked. It's
like learning a new language (oh, ya. it IS a language...), trying to make
sense of all the /.,;'][=\-)(&(@&^#$%!_#(+ theres probably SOMEBODY reading
this, that understands what I just typed. But to me, its just that.. random
typing.... If you don't have a reasonable answer, or are tired of seeing
the question, you don't have to post a message insulting me. It's like
SPAM...hit the damn DELETE button !!!
thankyou - that's my 2 ¢.
llornkcor
>
>
> Abigail
> --
> perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'
>
>
> -----------== 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: Mon, 26 Jul 1999 04:06:34 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: RegEx: Capitalize 1st char. of string with spaces
Message-Id: <au4hn7.ueh.ln@magna.metronet.com>
John J. Coupal (coupal@uky.campuscw.net) wrote:
: What I would like to do is be able to capitalize the 1st character of any
: string that may or may not have spaces.
: For example:
: "come back here" translates to "Come back here"
Perl FAQ, part 4:
"How do I capitalize all the words on one line?"
: $a =~ tr/^[\w]/\u/;
^^^^^
Read up on tr///
What goes in there is NOT a regex. It is a list of characters.
: Any help would be appreciated!
Any checking of the Perl FAQ before posting to the Perl newsgroup
would be appreciated!
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 26 Jul 1999 03:57:28 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Removing characters
Message-Id: <8d4hn7.ueh.ln@magna.metronet.com>
Jody Fedor (JFedor@datacom-css.com) wrote:
: Jimtaylor5 wrote in message
: <19990725161814.21146.00001525@ng-fx1.aol.com>...
: >I'm trying to remove every first character of my variables. If it was on
: the
: >end I could use chop, but how would I remove one character at the front
: without
: >leaving a space?
: $var = "12345";
: $var =~ s/.//;
: print $var;
Try it with:
$var = "\n12345";
: Works too!
Works _sometimes_.
$var =~ s/.//s;
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 26 Jul 1999 13:52:08 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7nhp68$f6s$1@info2.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 19 Jul 1999 13:40:51 GMT and ending at
24 Jul 1999 22:59:11 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) 1999 Greg Bacon.
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\@(?:.*\.)?perl\.com
Totals
======
Posters: 492
Articles: 1490 (494 with cutlined signatures)
Threads: 412
Volume generated: 2508.9 kb
- headers: 1120.0 kb (22,693 lines)
- bodies: 1298.4 kb (42,715 lines)
- original: 878.5 kb (30,878 lines)
- signatures: 89.0 kb (1,828 lines)
Original Content Rating: 0.677
Averages
========
Posts per poster: 3.0
median: 1.0 post
mode: 1 post - 288 posters
s: 7.4 posts
Posts per thread: 3.6
median: 3.0 posts
mode: 1 post - 105 threads
s: 3.7 posts
Message size: 1724.2 bytes
- header: 769.7 bytes (15.2 lines)
- body: 892.3 bytes (28.7 lines)
- original: 603.7 bytes (20.7 lines)
- signature: 61.2 bytes (1.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
71 115.4 ( 45.5/ 69.9/ 31.4) anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
68 157.9 ( 75.6/ 52.0/ 48.8) abigail@delanet.com
61 106.1 ( 38.2/ 60.9/ 32.9) lr@hpl.hp.com (Larry Rosler)
54 86.8 ( 43.2/ 36.9/ 15.9) Jonathan Stowe <gellyfish@gellyfish.com>
50 56.4 ( 35.1/ 21.3/ 7.7) "Faisal Nasim" <swiftkid@bigfoot.com>
40 60.1 ( 24.3/ 35.7/ 23.1) tadmc@metronet.com (Tad McClellan)
40 71.5 ( 32.6/ 34.2/ 19.8) David Cassell <cassell@mail.cor.epa.gov>
35 134.3 ( 29.0/101.1/ 91.8) tchrist@mox.perl.com (Tom Christiansen)
32 47.4 ( 25.2/ 20.7/ 13.5) e-lephant@b-igpond.com (elephant)
21 26.3 ( 13.8/ 12.5/ 11.3) fl_aggie@thepentagon.com
These posters accounted for 31.7% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
157.9 ( 75.6/ 52.0/ 48.8) 68 abigail@delanet.com
134.3 ( 29.0/101.1/ 91.8) 35 tchrist@mox.perl.com (Tom Christiansen)
115.4 ( 45.5/ 69.9/ 31.4) 71 anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
106.1 ( 38.2/ 60.9/ 32.9) 61 lr@hpl.hp.com (Larry Rosler)
86.8 ( 43.2/ 36.9/ 15.9) 54 Jonathan Stowe <gellyfish@gellyfish.com>
71.5 ( 32.6/ 34.2/ 19.8) 40 David Cassell <cassell@mail.cor.epa.gov>
60.1 ( 24.3/ 35.7/ 23.1) 40 tadmc@metronet.com (Tad McClellan)
56.4 ( 35.1/ 21.3/ 7.7) 50 "Faisal Nasim" <swiftkid@bigfoot.com>
47.4 ( 25.2/ 20.7/ 13.5) 32 e-lephant@b-igpond.com (elephant)
30.8 ( 16.0/ 12.0/ 5.5) 18 brian@pm.org (brian d foy)
These posters accounted for 34.5% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.966 ( 10.2 / 10.5) 5 Mitch <portboy@home.com>
0.948 ( 11.8 / 12.4) 7 orwant@media.mit.edu
0.947 ( 15.4 / 16.3) 6 Greg Bacon <gbacon@cs.uah.edu>
0.938 ( 48.8 / 52.0) 68 abigail@delanet.com
0.907 ( 91.8 /101.1) 35 tchrist@mox.perl.com (Tom Christiansen)
0.903 ( 11.3 / 12.5) 21 fl_aggie@thepentagon.com
0.901 ( 4.0 / 4.5) 5 modred@shore.net (Garth Sainio)
0.901 ( 14.5 / 16.1) 6 Daniel <dbohling@pacbell.net>
0.895 ( 3.0 / 3.3) 5 Brian Lojeck <lojeck@mizar.usc.edu>
0.824 ( 1.3 / 1.6) 5 jimtaylor5@aol.com (Jimtaylor5)
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.451 ( 1.3 / 3.0) 5 merlyn@stonehenge.com (Randal L. Schwartz)
0.449 ( 31.4 / 69.9) 71 anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
0.431 ( 15.9 / 36.9) 54 Jonathan Stowe <gellyfish@gellyfish.com>
0.428 ( 1.5 / 3.5) 6 jobosw@unx.sas.com
0.416 ( 1.8 / 4.2) 12 backwards.saerdna@srm.hc (Andreas Fehr)
0.363 ( 2.3 / 6.4) 11 Uri Guttman <uri@sysarch.com>
0.360 ( 7.7 / 21.3) 50 "Faisal Nasim" <swiftkid@bigfoot.com>
0.310 ( 1.0 / 3.4) 6 Richard H <rhrh@hotmail.com>
0.286 ( 5.4 / 18.7) 20 Matt <mlopresti@bigfoot.com>
0.216 ( 0.8 / 3.7) 5 keithmur@mindspring.com
59 posters (11%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
39 basename regexp?
29 regular Expression
21 Listing Files
21 TPJ/Earthweb junk mail?
21 How to give Passwords on STDIN
17 output of print map ( { unless (/^#/) {} } ("#") );
16 padding a number
16 getting the decimal portion of a floating point number
16 Geekspeak Programming Contest
13 Has anyone seen this error before
These threads accounted for 14.0% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
87.6 ( 25.1/ 59.8/ 49.7) 29 regular Expression
54.3 ( 30.5/ 21.4/ 11.1) 39 basename regexp?
38.2 ( 17.1/ 18.9/ 12.5) 21 TPJ/Earthweb junk mail?
38.0 ( 14.7/ 21.2/ 11.9) 17 output of print map ( { unless (/^#/) {} } ("#") );
32.7 ( 16.6/ 14.7/ 9.1) 21 How to give Passwords on STDIN
32.7 ( 16.6/ 13.2/ 7.7) 21 Listing Files
31.6 ( 0.9/ 30.7/ 30.7) 1 FMTEYEWTK on Prototypes in Perl
31.5 ( 12.3/ 18.8/ 10.6) 16 getting the decimal portion of a floating point number
31.2 ( 11.9/ 18.3/ 14.3) 16 Geekspeak Programming Contest
30.5 ( 9.7/ 19.4/ 10.5) 12 lexical $_ with threads question?
These threads accounted for 16.3% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.875 ( 1.9/ 2.2) 5 how to avoid truncation error?
0.849 ( 8.9/ 10.5) 5 pipe "|" functionality: ksh can easily do, perl can hardly do?
0.831 ( 49.7/ 59.8) 29 regular Expression
0.809 ( 1.4/ 1.7) 6 perl cgi
0.792 ( 3.5/ 4.4) 6 gethostbyname on NT
0.784 ( 14.3/ 18.3) 16 Geekspeak Programming Contest
0.766 ( 5.9/ 7.7) 10 Perl CGI vs VB ASP
0.753 ( 5.2/ 7.0) 7 fetch url with standard modules?
0.745 ( 8.6/ 11.5) 9 recursive anonymous functions -- problem
0.741 ( 9.4/ 12.7) 6 waitpid crashes perl
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.448 ( 2.9 / 6.5) 6 TextArea fields
0.428 ( 2.1 / 5.0) 6 PERL & SQL
0.421 ( 1.9 / 4.4) 6 Check if 2 dates are in the same week
0.420 ( 1.3 / 3.2) 6 special case : split this string...
0.412 ( 2.8 / 6.8) 8 PGP and Mail
0.399 ( 1.8 / 4.5) 6 Padding numbers with 0's
0.383 ( 4.6 / 12.1) 13 Has anyone seen this error before
0.349 ( 1.0 / 3.0) 5 Q: simple glob
0.345 ( 2.8 / 8.1) 8 Help me ..; databases ...
0.333 ( 3.1 / 9.3) 6 How to simulate shell variable parsing in Perl?
96 threads (23%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
24 comp.lang.perl.modules
20 alt.perl
9 comp.lang.perl
5 comp.lang.c
4 comp.lang.java.programmer
4 alt.html
4 comp.lang.python
4 comp.unix.shell
4 comp.unix.bsd.freebsd.misc
3 comp.lang.eiffel
Top 10 Crossposters
===================
Articles Address
-------- -------
16 moun@usenix.org (Moun Chau)
6 Alain BORGO <alain.borgo@ratp.fr>
5 claird@starbase.neosoft.com (Cameron Laird)
4 abigail@delanet.com
4 Ramanika <ramanika@flashmail.com>
3 jtbell@presby.edu (Jon Bell)
3 "John" <irishcream@iname.com>
3 tchrist@mox.perl.com (Tom Christiansen)
3 "CompGuy" <emusick@garagedoor.org>
3 Oliver Ertl <oe@sob-online.net>
------------------------------
Date: Mon, 26 Jul 1999 12:48:30 +0100
From: "Paul Foran (Layout/Design)" <Paul.Foran@analog.com>
Subject: Re: Testing MSQL/Perl scripts at home with MS Access/Activestate Perl
Message-Id: <379C4B0E.B8C2440D@analog.com>
>
> If your ISP is using Unix, why don't you go for a dual booting option and
> install linux?
How do I install Linux into my PC while keeping Windows98 Operating system??
I believe that you have to partition my Harddrive and make one sector active.
How exactly is this done?
Can I run MSQL with Linux to simulate the ISP's config. Is MSQL free for
perl/CGI development?
Thanks Paul
> The differences between the Win32 port and the Unix/Linux
> port isn't generally significant (although someone will put me right) but at
> least you can be certain the script will run when you upload it.
>
> James Williamson
------------------------------
Date: Mon, 26 Jul 1999 12:05:04 GMT
From: bane_dewitt@my-deja.com
Subject: Re: Which group is appropriate?
Message-Id: <7nhitd$a4h$1@nnrp1.deja.com>
In article <slrn7pn0t8.a21.mike@lindt.fat.dotat.at>,
mike@fat.dotat.at (Mike Bristow) wrote:
> On Sun, 25 Jul 1999 20:22:36 GMT, bane_dewitt@my-deja.com <bane_dewitt@my-deja.com> wrote:
> >Is there any perl language question that _can't_ be answered
> >with "RTFM" and/or "RTFFAQ"?
>
> Yes.
Can anyone provide an example or two?
> Give the newbie an answer and you satisfy his curiosity for
> a question. Show a newbie where the FAQ is and how to seach
> it easily, and you satisfy his curiosity until the newbie
> isn't a newbie any more - and beyond.
I agree. It's a good thing that people who don't know where the FAQs
reside are greeted with open arms. <rolling eyes>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 26 Jul 1999 12:07:05 GMT
From: bane_dewitt@my-deja.com
Subject: Re: Which group is appropriate?
Message-Id: <7nhj15$a67$1@nnrp1.deja.com>
In article <slrn7pn5a1.b7i.abigail@alexandra.delanet.com>,
abigail@delanet.com wrote:
> bane_dewitt@my-deja.com (bane_dewitt@my-deja.com) wrote on MMCLIV
> September MCMXCIII in <URL:news:7nfrm6$7oc$1@nnrp1.deja.com>:
>
> \\ Is there any perl language question that _can't_ be answered
> \\ with "RTFM" and/or "RTFFAQ"?
>
> Yes.
For example?
How frequently does that occur here?
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
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 259
*************************************
