[13972] in Perl-Users-Digest
Perl-Users Digest, Issue: 1382 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 15 12:43:18 1999
Date: Mon, 15 Nov 1999 09:10:21 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <942685821-v9-i1382@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 15 Nov 1999 Volume: 9 Number: 1382
Today's topics:
Newbie Perl Question p_michaud@hotmail.com
Re: Newbie Perl Question <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Re: Newbie: Secure DBI connection <berrendo@athena.polito.it>
Re: Perl and commonsense part 2 (Bart Lateur)
Re: Perl and commonsense part 2 (Abigail)
Perl-CPAN CD-ROM? + Best Linux Distrib for Perl? <summer@chest.ac.uk>
Redirect to LOCAL file <cans1@hotmail.com>
Re: Removing all combinations of spaces/tabs at end of <koharik@primenet.com>
Re: Removing all combinations of spaces/tabs at end of <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Re: Removing all combinations of spaces/tabs at end of name2@my-deja.com
Re: Removing all combinations of spaces/tabs at end of <moseley@best.com>
Re: Removing all combinations of spaces/tabs at end of <moseley@best.com>
Re: Removing all combinations of spaces/tabs at end of <sariq@texas.net>
Re: sort lists together (Randal L. Schwartz)
Re: sort lists together <uri@sysarch.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Sys::Syslog - h2ph <navid.vahdat@cityweb.de>
Re: Trying to use a variable as an operator <sariq@texas.net>
Re: Using files <ewinter@pop3.stx.com>
Writing binary files in perl <gte017gNOgtSPAM@prism.gatech.edu.invalid>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 15 Nov 1999 15:33:56 GMT
From: p_michaud@hotmail.com
Subject: Newbie Perl Question
Message-Id: <80p954$55v$1@nnrp1.deja.com>
Hi all,
I was asked to write a small Perl script and since this is my first,
I'm having some trouble.
First of all, the script will be running on a Unix server (not sure
which). I understand that with some servers you can redirect them to a
Perl script when someone tries to access a file that does not exist. I
need to first check to see if the file exists in lowercase characters -
then print an error if that file does not exist.
Since this is my first Perl script I have a couple of questions. First
of all, how do I get the name of the file that the user is looking for?
Does this come through in the QUERY_STRING? Also, how do I test if a
particular file exists?
Thanks!
Pete
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 15 Nov 1999 07:45:56 -0800
From: Mark Bluemel <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Subject: Re: Newbie Perl Question
Message-Id: <03dc21e2.4504ed77@usw-ex0101-006.remarq.com>
In article <80p954$55v$1@nnrp1.deja.com>, p_michaud@hotmail.com wrote:
> Hi all,
> I was asked to write a small Perl script and since this is my
> first,
> I'm having some trouble.
You're likely to get more by posting here... :-)
You should at least go to www.perl.com and follow some of the pointers
there to tutorials on Perl. If you're not an experienced programmer
from some background, you may not find the online stuff adequate. You
really should get, read and inwardly digest at least one of the
published texts - www.perl.com will also give you some pointers on
these.
> First of all, the script will be running on a Unix server (not sure
> which). I understand that with some servers you can redirect them
> to a
> Perl script when someone tries to access a file that does not
> exist.
Really?
> I
> need to first check to see if the file exists in lowercase
> characters -
> then print an error if that file does not exist.
> Since this is my first Perl script I have a couple of questions.
> First
> of all, how do I get the name of the file that the user is looking
> for?
I'm far from convinced that you've actually understood the requirement
- is this by any chance some homework?
> Does this come through in the QUERY_STRING?
I don't know - are you planning to run as a directly invoked program or
a CGI script?
> Also, how do I test if
> a
> particular file exists?
The standard answer here is "perldoc perlfunc", which is why you need
to do some reading...
HTH
--
Mark Bluemel
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Mon, 15 Nov 1999 11:55:52 +0100
From: Romain Berrendonner <berrendo@athena.polito.it>
Subject: Re: Newbie: Secure DBI connection
Message-Id: <382FE6B8.C8F64D98@athena.polito.it>
Craig Vincent ha scritto:
>
> Very sensitive information is to be passed between the two servers and I'm
> looking for a way to secure any information
> being passed from the webhost to the database and vice versa (on port 3306).
You should consider using SSH for this purpose. It is possibile
to redirect a particular TCP port to an encrypted SSH channel.
I don't know the details, but I think It's possible.
Sincerly yours,
--
Romain Berrendonner
mail <mailto:berrendo@athena.polito.it>
PGP <ldap://certserver.pgp.com/>
------------------------------
Date: Mon, 15 Nov 1999 15:10:56 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Perl and commonsense part 2
Message-Id: <3831219b.542604@news.skynet.be>
Abigail wrote:
>Bart Lateur wrote
>;; Which is very fast compared to any other method. However, *who* in is
>;; right mind would test only for existence of a key, if you're free to
>;; choose whatever hash value you like?
>
>The authors of Mastering Algorithms with Perl, and they explain why.
>
>It's faster.
You mean it's significantly faster than straight hash access?
if($nonterminal{$_}) {
... # code for a nonterminal
}
reads a lot easier than
if(exists $nonterminal{$_}) {
... # code for a nonterminal
}
--
Bart.
------------------------------
Date: 15 Nov 1999 10:32:39 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: Perl and commonsense part 2
Message-Id: <slrn830dj9.cvu.abigail@alexandra.delanet.com>
Bart Lateur (bart.lateur@skynet.be) wrote on MMCCLXVII September MCMXCIII
in <URL:news:3831219b.542604@news.skynet.be>:
"" Abigail wrote:
""
"" >Bart Lateur wrote
""
"" >;; Which is very fast compared to any other method. However, *who* in is
"" >;; right mind would test only for existence of a key, if you're free to
"" >;; choose whatever hash value you like?
"" >
"" >The authors of Mastering Algorithms with Perl, and they explain why.
"" >
"" >It's faster.
""
"" You mean it's significantly faster than straight hash access?
That's what *they* claim [1]. (I understand their reasoning, my benchmarks
suggest that exists is slightly *slower*. But perhaps my benchmark isn't
correct). You asked *who* would test for existence though, and I answered
that question.
"" if($nonterminal{$_}) {
"" ... # code for a nonterminal
"" }
""
"" reads a lot easier than
""
"" if(exists $nonterminal{$_}) {
"" ... # code for a nonterminal
"" }
Whatever. That's beside the point. You asked who, you got an answer.
[1] Normally, I would say "read the book". But I'm not sure if this book
is worth the money. (Uri: when I have finished reading the book, I'll
send you a review).
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== 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, 15 Nov 1999 15:22:16 GMT
From: Mark Summerfield <summer@chest.ac.uk>
Subject: Perl-CPAN CD-ROM? + Best Linux Distrib for Perl?
Message-Id: <80p8f4$4m0$1@nnrp1.deja.com>
Does anyone know if CPAN is available on CD-ROM? And if so from where?
Are there any prepared 'bundles' of perl modules that don't come with
the standard distribution, e.g. a 'CGI' bundle, a 'DBI' bundle and so on
each of which has all the CPAN modules in its category, ideally in .rpm
and .deb formats for easy installation? (Would probably need two sets at
the moment one for 5.004 and one for 5.005 since they aren't binary
compatible.)
Which Linux distribution is the best for Perl work -- I'm defining
'best' as being the one with the most Perl modules in addition to the
standard ones, and best environment for Perl coding. At present I use
Debian 2.1 which I find excellent in these regards except for the fact
that it uses 5.004 and there are some features of 5.005, e.g. qr//, that
I'd really like to use.
Thanks.
______________________________________
Mark Summerfield summer@chest.ac.uk
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 15 Nov 1999 10:32:13 -0500
From: "Crawfishy" <cans1@hotmail.com>
Subject: Redirect to LOCAL file
Message-Id: <huWX3.2848$I73.22431@newsfeed.slurp.net>
I normally use the LOCATION header in my cgi's to redirect the browser to a
new page but as I understand it, you must use a full URL for location to
work. Is there a way to use a relative address to redirect. The reason for
this is that if I put full urls and then move the pages/scripts to another
server, I will have to redo all the urls.
So there must be a way to make it more portable... right?
Thanx - George
------------------------------
Date: Mon, 15 Nov 1999 07:08:45 -0700
From: Chris <koharik@primenet.com>
Subject: Re: Removing all combinations of spaces/tabs at end of string
Message-Id: <Pine.BSI.3.96.991115070718.16999H-100000@usr09.primenet.com>
> Date: Mon, 15 Nov 1999 11:09:36 GMT
> From: tony_123@my-deja.com
>
> Hi Folks
>
> I have a string that may contain any combination of spaces or tabs
> after the last character(non space or tab character). How can I remove
> them
>
> Ie all of the following
>
> $MyString='Test \t '
> $MyString='Test '
> $MyString='Test '
> $MyString='Test\t'
> $MyString='Test\t\t\t\t\t\t\t \t \t\t \t'
>
>
> would become
>
> $MyString='Test'
Here is a possbile solutions (no machine handy to test):
$MyString =~ s/\s+$/g;
-Chris
------------------------------
Date: Mon, 15 Nov 1999 06:14:00 -0800
From: Mark Bluemel <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Subject: Re: Removing all combinations of spaces/tabs at end of string
Message-Id: <1415c574.2d0976d5@usw-ex0101-006.remarq.com>
In article
<Pine.BSI.3.96.991115070718.16999H-100000@usr09.primenet.com>, Chris
<koharik@primenet.com> wrote:
> > Date: Mon, 15 Nov 1999 11:09:36 GMT
> > From: tony_123@my-deja.com
> >
> > Hi Folks
> >
> > I have a string that may contain any combination of spaces or
> tabs
> > after the last character(non space or tab character). How can I
> remove
> > them
> >
[Snip]
> Here is a possbile solutions (no machine handy to test):
> $MyString =~ s/\s+$/g;
It's always tempting fate to post untested code... Follow Kernighan's
example and _always_ use real working code.
Hold on, what did you post from if there was no machine handy?
Anyway, running the example given generates "Substitution replacement
not terminated". You missed a "/" - $MyString =~ s/\s+$//g; is what's
needed.
--
Mark Bluemel
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Mon, 15 Nov 1999 15:12:03 GMT
From: name2@my-deja.com
Subject: Re: Removing all combinations of spaces/tabs at end of string
Message-Id: <80p7rv$481$1@nnrp1.deja.com>
Simple.
$MyString =~ s/\s*$//;
Read the FAQ on regexes, the perlre manpage,
mastering regular expressions, the regular
expression section of the camel book, etc. for more
info.
In article <80ople$q9s$1@nnrp1.deja.com>,
tony_123@my-deja.com wrote:
> Hi Folks
>
> I have a string that may contain any combination of spaces or tabs
> after the last character(non space or tab character). How can I remove
> them
>
> Ie all of the following
>
> $MyString='Test \t '
> $MyString='Test '
> $MyString='Test '
> $MyString='Test\t'
> $MyString='Test\t\t\t\t\t\t\t \t \t\t \t'
>
> would become
>
> $MyString='Test'
>
> Cheers
>
> Tony
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 15 Nov 1999 07:18:41 -0800
From: Bill Moseley <moseley@best.com>
Subject: Re: Removing all combinations of spaces/tabs at end of string
Message-Id: <MPG.1299c42baabe6c698987b@nntp1.ba.best.com>
tony_123@my-deja.com (tony_123@my-deja.com) seems to say...
> I have a string that may contain any combination of spaces or tabs
> after the last character(non space or tab character). How can I remove
> them
type
perldoc -q strip
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Mon, 15 Nov 1999 07:34:50 -0800
From: Bill Moseley <moseley@best.com>
Subject: Re: Removing all combinations of spaces/tabs at end of string
Message-Id: <MPG.1299c7f7d3e4b01d98987d@nntp1.ba.best.com>
name2@my-deja.com (name2@my-deja.com) seems to say...
> Simple.
>
> $MyString =~ s/\s*$//;
That does more than strip trailing white space, doesn't it? Doesn't it
replace nothing with nothing, too?
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Mon, 15 Nov 1999 09:29:11 -0600
From: Tom Briles <sariq@texas.net>
Subject: Re: Removing all combinations of spaces/tabs at end of string
Message-Id: <383026C7.E8F55079@texas.net>
Mark Bluemel wrote:
>
> In article
> <Pine.BSI.3.96.991115070718.16999H-100000@usr09.primenet.com>, Chris
> <koharik@primenet.com> wrote:
> > > Date: Mon, 15 Nov 1999 11:09:36 GMT
> > > From: tony_123@my-deja.com
> > >
> > > Hi Folks
> > >
> > > I have a string that may contain any combination of spaces or
> > tabs
> > > after the last character(non space or tab character). How can I
> > remove
> > > them
> > >
> [Snip]
> > Here is a possbile solutions (no machine handy to test):
> > $MyString =~ s/\s+$/g;
>
> It's always tempting fate to post untested code... Follow Kernighan's
> example and _always_ use real working code.
Good advice.
>
> Hold on, what did you post from if there was no machine handy?
>
> Anyway, running the example given generates "Substitution replacement
> not terminated". You missed a "/" - $MyString =~ s/\s+$//g; is what's
> needed.
>
Useless use of 'g'.
The *best* advice is:
Read perlfaq4:
'How do I strip blank space from the beginning/end of a string?'
- Tom
------------------------------
Date: 15 Nov 1999 06:41:20 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: sort lists together
Message-Id: <m1ogcvg6lr.fsf@halfdome.holdit.com>
>>>>> "Abigail" == Abigail <abigail@delanet.com> writes:
Abigail> I must be reading different textbooks than you. Neither
Abigail> Knuth, Cormen, Leiserson and Rivest, Harrel, or Orwant,
Abigail> Hietaniemi and Macdonald have the term 'index sort' in their
Abigail> index.
Maybe because they have an index that's already sorted?
do 'rimshot.pl';
print "Just another Perl hacker and technical comedian,"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 15 Nov 1999 11:13:54 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: sort lists together
Message-Id: <x7ogcvwx4t.fsf@home.sysarch.com>
>>>>> "A" == Abigail <abigail@delanet.com> writes:
A> Uri Guttman (uri@sysarch.com) wrote on MMCCLXVII September MCMXCIII in
A> <URL:news:x7u2mowet3.fsf@home.sysarch.com>:
A> // >>>>> "A" == Abigail <abigail@delanet.com> writes:
A> //
A> // A> I'm not really happy with the name "index sort".
A> //
A> // index sort is the well known name for that variation/transform. the
A> // underlying sort algorithm gets its own name. you can do an index sort
A> // with quick, bubble, shell, etc., sorts. so take your complaint up with
A> // the sort algorithm textbooks and academia.
A> I must be reading different textbooks than you. Neither Knuth, Cormen,
A> Leiserson and Rivest, Harrel, or Orwant, Hietaniemi and Macdonald have
A> the term 'index sort' in their index. Nor can I remember stumbling upon
A> the name in the 10 years I spend at academic institutions.
well, it is not a term i invented and i have heard it from multiple
sources. i don't have a large set of algorithm texts like you do to
research but i bet 2000 quatloos that index sort is a known name for
that variation.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: 15 Nov 1999 14:56:36 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <80p6v4$3fd$1@info2.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 08 Nov 1999 15:06:44 GMT and ending at
15 Nov 1999 07:54:34 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: 459
Articles: 1631 (847 with cutlined signatures)
Threads: 439
Volume generated: 2752.0 kb
- headers: 1253.5 kb (25,361 lines)
- bodies: 1349.4 kb (43,439 lines)
- original: 916.3 kb (31,923 lines)
- signatures: 147.5 kb (3,151 lines)
Original Content Rating: 0.679
Averages
========
Posts per poster: 3.6
median: 1 post
mode: 1 post - 262 posters
s: 10.0 posts
Posts per thread: 3.7
median: 3 posts
mode: 1 post - 105 threads
s: 4.6 posts
Message size: 1727.8 bytes
- header: 787.0 bytes (15.5 lines)
- body: 847.2 bytes (26.6 lines)
- original: 575.3 bytes (19.6 lines)
- signature: 92.6 bytes (1.9 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
126 258.4 ( 94.2/141.1/ 94.7) kragen@dnaco.net (Kragen Sitaker)
99 165.0 ( 77.7/ 75.8/ 44.5) David Cassell <cassell@mail.cor.epa.gov>
75 173.1 ( 82.3/ 58.6/ 55.9) abigail@delanet.com
56 83.8 ( 43.6/ 33.4/ 13.3) Jonathan Stowe <gellyfish@gellyfish.com>
50 85.4 ( 30.6/ 49.0/ 29.8) Larry Rosler <lr@hpl.hp.com>
48 102.3 ( 37.6/ 55.3/ 38.0) mgjv@comdyn.com.au
41 70.7 ( 24.7/ 40.3/ 23.8) tadmc@metronet.com (Tad McClellan)
22 29.3 ( 16.9/ 10.8/ 6.6) simon@brecon.co.uk
20 42.3 ( 18.1/ 18.3/ 7.9) Uri Guttman <uri@sysarch.com>
20 31.6 ( 16.2/ 15.2/ 9.9) bart.lateur@skynet.be (Bart Lateur)
These posters accounted for 34.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
258.4 ( 94.2/141.1/ 94.7) 126 kragen@dnaco.net (Kragen Sitaker)
173.1 ( 82.3/ 58.6/ 55.9) 75 abigail@delanet.com
165.0 ( 77.7/ 75.8/ 44.5) 99 David Cassell <cassell@mail.cor.epa.gov>
102.3 ( 37.6/ 55.3/ 38.0) 48 mgjv@comdyn.com.au
85.4 ( 30.6/ 49.0/ 29.8) 50 Larry Rosler <lr@hpl.hp.com>
83.8 ( 43.6/ 33.4/ 13.3) 56 Jonathan Stowe <gellyfish@gellyfish.com>
70.7 ( 24.7/ 40.3/ 23.8) 41 tadmc@metronet.com (Tad McClellan)
45.1 ( 20.2/ 24.3/ 18.8) 19 "Alan J. Flavell" <flavell@mail.cern.ch>
42.3 ( 18.1/ 18.3/ 7.9) 20 Uri Guttman <uri@sysarch.com>
33.1 ( 10.9/ 18.6/ 9.9) 16 Eric The Read <emschwar@rmi.net>
These posters accounted for 38.5% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.2 / 1.2) 6 Re'em Bar <reembar@netvision.net.il>
1.000 ( 0.7 / 0.7) 7 "Jean-Patrick Madelon" <balance08@bow.intnet.mu>
0.962 ( 15.7 / 16.3) 6 Greg Bacon <gbacon@cs.uah.edu>
0.956 ( 55.9 / 58.6) 75 abigail@delanet.com
0.942 ( 10.5 / 11.1) 9 "Chris" <chris@chrismail.connectfree.co.uk>
0.916 ( 4.5 / 4.9) 7 Vincent Murphy <vincent.murphy@cybertrust.gte.com>
0.838 ( 2.9 / 3.4) 5 "joneill" <joneill@pgicompanies.com>
0.795 ( 7.1 / 8.9) 6 Ben Osman <ben@smooth.co.uk>
0.793 ( 8.9 / 11.2) 9 Jean-Louis Leroy <jll@skynet.be>
0.776 ( 18.8 / 24.3) 19 "Alan J. Flavell" <flavell@mail.cern.ch>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.457 ( 6.8 / 14.9) 20 Ala Qumsieh <aqumsieh@matrox.com>
0.448 ( 6.3 / 14.0) 15 sholden@cs.usyd.edu.au
0.448 ( 3.4 / 7.5) 14 bmccoy@lan2wan.com
0.448 ( 3.1 / 7.0) 11 Dan Sugalski <dan@tuatha.sidhe.org>
0.439 ( 1.8 / 4.2) 5 beans@bedford.net (Thunderdust (TomH))
0.431 ( 7.9 / 18.3) 20 Uri Guttman <uri@sysarch.com>
0.398 ( 13.3 / 33.4) 56 Jonathan Stowe <gellyfish@gellyfish.com>
0.370 ( 1.6 / 4.3) 5 "Randy Smith" <randys@NOSPAMamigo.net>
0.266 ( 1.3 / 4.9) 6 Seshadri <seshadri@ptc.com>
0.243 ( 0.7 / 3.0) 5 mbudash@wcws.com (Michael Budash)
60 posters (13%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
47 perl as first language?
20 Perl and commonsense part 2
19 PERLHUMOR: self-printing resume
17 Perl Extensions. Arrgh.
17 Perl Wizards
17 Generating pi
16 Senior Software Engineer (Perl)-Positions Available
16 list (array) programming question
14 Virus
14 Newbee needs some date functions . . .
These threads accounted for 12.1% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
129.9 ( 46.4/ 76.3/ 57.6) 47 perl as first language?
55.2 ( 15.9/ 37.2/ 27.5) 20 Perl and commonsense part 2
37.2 ( 15.9/ 19.0/ 12.9) 19 PERLHUMOR: self-printing resume
31.3 ( 11.6/ 17.6/ 11.6) 16 Senior Software Engineer (Perl)-Positions Available
30.4 ( 11.5/ 16.7/ 11.7) 16 list (array) programming question
29.1 ( 12.3/ 14.9/ 7.7) 14 Newbee needs some date functions . . .
28.4 ( 12.8/ 13.0/ 6.7) 17 Perl Wizards
27.6 ( 15.2/ 12.2/ 5.6) 17 Perl Extensions. Arrgh.
25.3 ( 13.3/ 9.3/ 6.3) 17 Generating pi
25.0 ( 10.7/ 11.2/ 6.3) 13 sort lists together
These threads accounted for 15.2% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.893 ( 5.9/ 6.6) 6 Newbie: Need help parsing html file for links
0.838 ( 3.7/ 4.4) 5 Help with IF statements
0.834 ( 1.7/ 2.1) 5 Image type conversion???
0.809 ( 1.8/ 2.3) 6 Scoping
0.809 ( 11.2/ 13.8) 7 Looking for Perl cgi that can handle 'accounts'...hard 2 find...why?
0.794 ( 4.2/ 5.2) 10 how to create a random id?
0.793 ( 2.1/ 2.6) 5 How do I turn on NUM-LOCK on NT system?
0.759 ( 5.6/ 7.3) 5 pattern matching packages
0.755 ( 57.6/ 76.3) 47 perl as first language?
0.752 ( 2.0/ 2.6) 7 GURU HELP NEEDED FOR NEWBIE
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.496 ( 1.6 / 3.3) 8 @ISA
0.493 ( 4.0 / 8.1) 8 How do U parse from the end of the line?
0.482 ( 1.9 / 4.0) 7 How can I vist a number of websites and email addys
0.468 ( 3.4 / 7.2) 12 freeing memory
0.465 ( 1.9 / 4.0) 9 Batch Program Execution
0.461 ( 5.6 / 12.2) 17 Perl Extensions. Arrgh.
0.453 ( 3.6 / 8.0) 11 new line break???
0.448 ( 2.6 / 5.7) 8 Perl forgot 3 lines of the script
0.422 ( 2.0 / 4.9) 8 how to parse dir recursively for files?
0.298 ( 0.8 / 2.8) 5 FAQ 4.67: How can I use a reference as a hash key?
106 threads (24%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
46 comp.lang.perl.modules
10 comp.software.year-2000
10 comp.lang.perl.tk
9 alt.perl
7 comp.lang.perl
6 de.comp.lang.perl
3 comp.databases
3 comp.databases.rdb
3 microsoft.public.inetserver.iis
3 comp.infosystems.www.servers.ms-windows
Top 10 Crossposters
===================
Articles Address
-------- -------
11 David Cassell <cassell@mail.cor.epa.gov>
5 Jonathan Stowe <gellyfish@gellyfish.com>
5 mgjv@comdyn.com.au
4 Eugene Grosbein <eugen@svzserv.kemerovo.su>
4 "Alan J. Flavell" <flavell@mail.cern.ch>
4 abigail@delanet.com
3 Jeff Zucker <jeff@vpservices.com>
3 Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
3 Aparna Ramachandran <aparnar@imap4.asu.edu>
3 kragen@dnaco.net (Kragen Sitaker)
------------------------------
Date: Mon, 15 Nov 1999 15:35:51 +0100
From: Navid Vahdat <navid.vahdat@cityweb.de>
Subject: Sys::Syslog - h2ph
Message-Id: <38301A47.3BA227B4@cityweb.de>
When using Sys::Syslog the package wants me to use h2ph to get him
syslog.ph. When I do so, he gets various problems. The last one is with
stdarg.h. Has anyone experienced similar problems?
I'm using SuSe Linux 6.2
------------------------------
Date: Mon, 15 Nov 1999 08:59:22 -0600
From: Tom Briles <sariq@texas.net>
Subject: Re: Trying to use a variable as an operator
Message-Id: <38301FCA.5A6AD897@texas.net>
"Brett W. McCoy" wrote:
>
> On Sun, 14 Nov 1999 02:44:49 GMT, jradford@my-deja.com
> <jradford@my-deja.com> wrote:
>
> >I am wondering how to make the following code
> >work, I would like to be able to change the
> >"$operator" variable to other operators on the
> >fly, and still have it work:
> >
> >$operator = 'eq';
> >
> >if("text" $operator "text") {
> > do_something;
> >}
>
> You'd need to bundle your expression up into a string passed to eval.
>
No, you wouldn't.
I thought that it was a mantra here, but I guess not. Let's make it
one...repeat after me:
eval STRING is evil... eval STRING is evil...
Scott Lanning gave an example using a dispatch table. Of course he also
gave an 'eval STRING' example, but we should all ignore that.
(Larry Rosler explains some reasons that 'eval STRING is evil' in
response to Scott's post.)
- Tom
------------------------------
Date: Mon, 15 Nov 1999 09:28:59 -0500
From: "Eric Winter" <ewinter@pop3.stx.com>
Subject: Re: Using files
Message-Id: <80p5a8$bh8@post.gsfc.nasa.gov>
Andrew,
I think this is covered in the FAQ, but assuming your file is open on
the handle INPUT, you could use something like this:
...
while (<INPUT>) {
@mydata = split;
# Do stuff with @mydata, which contains one column per entry.
}
...
By default, split() splits the contents of $_ on whitespace. The rest is up
to you :^).
Eric Winter
Andrew Longworth <Andrew_Longworth@bigfoot.com> wrote in message
news:382fff37@isoit370.bbn.hp.com...
> Hi, I have a problem with a file. There is a text file that contains
> information that I need to use in a script. There are sometime spaces and
> newlines and tabs around the text.
> How can I ignore these and simply retrieve the data?
>
>
>
------------------------------
Date: Mon, 15 Nov 1999 08:47:26 -0800
From: vsam1 <gte017gNOgtSPAM@prism.gatech.edu.invalid>
Subject: Writing binary files in perl
Message-Id: <067edcc0.ddc17b36@usw-ex0107-050.remarq.com>
Is there any function in Perl that writes the binary equivalent
of the characters you want into binary files. I tried "pack" but it
doesn't seem to give me the desired result when I try to view the file
using ghex.
Any help will be greatly appreciated.
Thanx.
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 1382
**************************************
