[23567] in Perl-Users-Digest
Perl-Users Digest, Issue: 5774 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 10 09:05:41 2003
Date: Mon, 10 Nov 2003 06:05:06 -0800 (PST)
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, 10 Nov 2003 Volume: 10 Number: 5774
Today's topics:
Re: [newbie] How to pass in perl variables between web <nobull@mail.com>
Re: Checking environment variable existence (Anno Siegel)
Getting fields into perl script (Hugh Kang)
Re: Getting fields into perl script (Anno Siegel)
Re: Getting fields into perl script (Jens M. Felderhoff)
Interaction between two strings (Ewout)
Re: Interaction between two strings (Anno Siegel)
Re: Interaction between two strings <GlgAs@netscape.net>
Re: Interaction between two strings <noreply@gunnar.cc>
Re: Question about split (Anno Siegel)
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 10 Nov 2003 12:24:34 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: [newbie] How to pass in perl variables between web pages?
Message-Id: <u9ad74pg1p.fsf@wcl-l.bham.ac.uk>
I, Brian McCauley <nobull@mail.com> wrote:
> sub encode {
> encode_base64(compress($cipher->encrypt(freeze(shift))),'');
> }
Oops!
Of course you really want to compress _then_ encrypt. Encrypted data
tends not to compress too well :-)
(Funny thing is that I actually cut and paste encode() out of real
code, so _answering_ a Q on Usenet helped me find a bug in _my_ code).
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 10 Nov 2003 13:18:10 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Checking environment variable existence
Message-Id: <boo36i$j50$2@mamenchi.zrz.TU-Berlin.DE>
James Willmore <jwillmore@remove.adelphia.net> wrote in comp.lang.perl.misc:
> And checking for unset environmental variables, I'm thinking you were
^^^^^^^^^^^^^
Ugh. The term is "environment variables". They're not green...
Anno
------------------------------
Date: 10 Nov 2003 05:35:07 -0800
From: skang@leaguedata.com (Hugh Kang)
Subject: Getting fields into perl script
Message-Id: <257137ea.0311100535.764f5306@posting.google.com>
In Unix script, I use $1 and $2 to get the fields.
For example, when I do,
>./start_test start 10
In start_test script, I check
case $1 in
'start')
.....
TIME=$2
.....
;;
esac
How do I do the same thing with a perl script?
Many thnaks in advance
Hugh
------------------------------
Date: 10 Nov 2003 13:42:37 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Getting fields into perl script
Message-Id: <boo4kd$j50$4@mamenchi.zrz.TU-Berlin.DE>
Hugh Kang <skang@leaguedata.com> wrote in comp.lang.perl.misc:
> In Unix script, I use $1 and $2 to get the fields.
> For example, when I do,
> >./start_test start 10
>
> In start_test script, I check
> case $1 in
> 'start')
>
> .....
> TIME=$2
> .....
> ;;
> esac
>
> How do I do the same thing with a perl script?
Well, Perl doesn't have a case statement, so there isn't a direct
equivalent. (See "perldoc -q case", however.)
This does about the same (untested):
#!/usr/bin/perl
use strict; use warnings;
my $time;
$time = $ARGV[ 2] if $ARGV[ 1] eq 'start';
Anno
------------------------------
Date: 10 Nov 2003 14:58:19 +0100
From: j.m.f.dev.null@gmx.net (Jens M. Felderhoff)
Subject: Re: Getting fields into perl script
Message-Id: <yh9llqoe35w.fsf@klfs017x.klf.siemens.de>
skang@leaguedata.com (Hugh Kang) writes:
> In Unix script, I use $1 and $2 to get the fields.
> For example, when I do,
> >./start_test start 10
>
> In start_test script, I check
> case $1 in
> 'start')
>
> .....
> TIME=$2
> .....
> ;;
> esac
>
> How do I do the same thing with a perl script?
SWITCH: {
...
$ARGV[0] eq 'start' && do {
...
$time = $ARGV[1];
...
last SWITCH;
};
...
}
But, never forget, TMTOWTDI ;)
Cheers
Jens
--
(Intentionally left blank.)
------------------------------
Date: 10 Nov 2003 04:52:35 -0800
From: ewout.boter@planet.nl (Ewout)
Subject: Interaction between two strings
Message-Id: <cc6a0b6.0311100452.4b0f908e@posting.google.com>
In a regex, I want to use some characters from a string that is
supplied as a kind of parameter value. I will give an example to
explain this.
Assume that the parameter value is ABCR. The regex should be such that
for example a string like ABCC should give a match. But if the
parameter value is XYZR, then the string XYZC should give a match. To
summarize: the regex should take part of the pattern from another
string that is supplied separately from the regex. Is there any way to
achieve this?
I have been thinking about the possibility to do some kind of
preprocessing on the regex pattern. For example, I might state that a
string pattern like **2** will take the character on the second
position of the parameter string. In the above example, the string
pattern would be **1****2****3**C (or maybe **1,2,3**C). After doing
the necessary substitutions, I would then present the resulting
(regular!) regex pattern to a regex compiler. Would this be a sound
approach?
For your information: I am programming in ILE RPG on an iSeries
system. I am not at all familiar with Perl etcetera.
Thanks in advance.
Ewout
------------------------------
Date: 10 Nov 2003 13:15:57 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Interaction between two strings
Message-Id: <boo32d$j50$1@mamenchi.zrz.TU-Berlin.DE>
Ewout <ewout.boter@planet.nl> wrote in comp.lang.perl.misc:
> In a regex, I want to use some characters from a string that is
> supplied as a kind of parameter value. I will give an example to
> explain this.
>
> Assume that the parameter value is ABCR. The regex should be such that
> for example a string like ABCC should give a match. But if the
> parameter value is XYZR, then the string XYZC should give a match. To
> summarize: the regex should take part of the pattern from another
> string that is supplied separately from the regex. Is there any way to
> achieve this?
Achieve what?
Your description doesn't show the relationship between the parameter
values and the desired matches. Giving a single example for two cases
is not enough. Apparently, the first three characters of the parameter
have to match literally. What about the fourth one?
> I have been thinking about the possibility to do some kind of
> preprocessing on the regex pattern. For example, I might state that a
> string pattern like **2** will take the character on the second
> position of the parameter string. In the above example, the string
> pattern would be **1****2****3**C (or maybe **1,2,3**C). After doing
> the necessary substitutions, I would then present the resulting
> (regular!) regex pattern to a regex compiler. Would this be a sound
> approach?
That's impossible to answer before you have specified your problem.
You may want a table approach. Build a hash that holds the possible
parameter values as keys and the corresponding regular expressions
as values. Example:
my %regtab = (
ABCR => qr/ABC./,
XYZR => qr/XYZ./,
);
This would fit your examples, but so would a million others.
Anno
------------------------------
Date: Mon, 10 Nov 2003 13:48:49 GMT
From: gilgames <GlgAs@netscape.net>
Subject: Re: Interaction between two strings
Message-Id: <5HMrb.17875$8x2.7454851@newssrv26.news.prodigy.com>
<<
In a regex, I want to use some characters from a string that is
supplied as a kind of parameter value. I will give an example to
explain this.
>>
$pattern='abcd';
$string='abcdaaayz';
if ($string =~ /($pattern)/) {print "Match: ";}
else {print "Nomatch: ";}
print "$string =~ $pattern = $1\n";
prints :
Match: abcdaaayz =~ abcd = abcd
The same with $pattern = 'xyz' prints:
Nomatch: abcdaaayz =~ xyz =
------------------------------
Date: Mon, 10 Nov 2003 14:51:21 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Interaction between two strings
Message-Id: <boo56e$1gifl0$1@ID-184292.news.uni-berlin.de>
Ewout wrote:
> In a regex, I want to use some characters from a string that is
> supplied as a kind of parameter value. I will give an example to
> explain this.
>
> Assume that the parameter value is ABCR. The regex should be such
> that for example a string like ABCC should give a match. But if the
> parameter value is XYZR, then the string XYZC should give a match.
> To summarize: the regex should take part of the pattern from
> another string that is supplied separately from the regex. Is there
> any way to achieve this?
This is one way in Perl that fits your examples:
print "Match\n" if $string =~ /^${\substr $param, 0, 3}/;
> I have been thinking about the possibility to do some kind of
> preprocessing on the regex pattern. For example, I might state that
> a string pattern like **2** will take the character on the second
> position of the parameter string. In the above example, the string
> pattern would be **1****2****3**C (or maybe **1,2,3**C). After
> doing the necessary substitutions, I would then present the
> resulting (regular!) regex pattern to a regex compiler. Would this
> be a sound approach?
It's probably sound to make the preprocessing outside the regex.
> For your information: I am programming in ILE RPG on an iSeries
> system. I am not at all familiar with Perl etcetera.
Then why do you ask for help here?
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 10 Nov 2003 13:35:44 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Question about split
Message-Id: <boo47g$j50$3@mamenchi.zrz.TU-Berlin.DE>
Gunnar Hjalmarsson <noreply@gunnar.cc> wrote in comp.lang.perl.misc:
> Hugh Kang wrote:
> >
> > ($dummy, $word1, $word2, $memsize, $rest) = split;
> > if ( $word1 eq "Memory" ) {
>
> Since you are splitting without a pattern, it surprises me that
> $word1, and not $dummy, is assigned the first word on respective line.
Well, he's reading the binary executablei. :) From the original code:
open(MEMSIZE,"/usr/sbin/prtconf")
By some coincidence, this puts "Memory" from the sprintf format into
$word1.
Anno
------------------------------
Date: Mon, 10 Nov 2003 12:31:24 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <vqv18sbu4k94a7@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 03 Nov 2003 12:37:27 GMT and ending at
10 Nov 2003 10:56:24 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) 2003 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
faq\@(?:.*\.)?denver\.pm\.org
comdog\@panix\.com
Totals
======
Posters: 190
Articles: 650 (303 with cutlined signatures)
Threads: 126
Volume generated: 1295.8 kb
- headers: 596.7 kb (11,113 lines)
- bodies: 653.5 kb (22,046 lines)
- original: 390.4 kb (14,042 lines)
- signatures: 44.9 kb (1,064 lines)
Original Content Rating: 0.597
Averages
========
Posts per poster: 3.4
median: 2.0 posts
mode: 1 post - 89 posters
s: 8.2 posts
Posts per thread: 5.2
median: 4.0 posts
mode: 1 post - 18 threads
s: 4.1 posts
Message size: 2041.4 bytes
- header: 940.1 bytes (17.1 lines)
- body: 1029.5 bytes (33.9 lines)
- original: 615.0 bytes (21.6 lines)
- signature: 70.8 bytes (1.6 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
46 99.9 ( 41.5/ 47.1/ 23.4) Ben Morrow <usenet@morrow.me.uk>
41 87.0 ( 50.4/ 36.6/ 19.3) news@group.com
36 102.2 ( 41.8/ 55.7/ 46.4) tadmc@augustmail.com
29 59.6 ( 22.0/ 37.6/ 19.5) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
25 37.3 ( 22.9/ 12.8/ 5.7) Gunnar Hjalmarsson <noreply@gunnar.cc>
16 37.0 ( 14.8/ 18.0/ 10.2) James Willmore <jwillmore@remove.adelphia.net>
16 28.1 ( 14.2/ 13.0/ 5.8) Sisyphus <kalinaubears@iinet.net.au>
14 32.9 ( 13.5/ 16.3/ 6.7) tassilo.parseval@post.rwth-aachen.de
12 26.3 ( 11.6/ 12.5/ 10.1) abigail@abigail.nl
10 18.5 ( 8.2/ 7.3/ 4.1) Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
9 15.3 ( 8.2/ 6.8/ 4.5) Tore Aursand <tore@aursand.no>
9 19.9 ( 10.0/ 9.4/ 6.1) totally@bogus.email.invalid
8 10.4 ( 6.9/ 3.5/ 1.6) "Jürgen Exner" <jurgenex@hotmail.com>
7 10.3 ( 6.4/ 3.9/ 1.8) Steve Grazzini <grazz@pobox.com>
7 16.6 ( 7.7/ 8.8/ 5.0) "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
7 24.0 ( 7.6/ 16.4/ 2.4) sg47@cse.buffalo.edu
7 8.9 ( 4.7/ 4.3/ 4.2) Default@User.net
6 8.8 ( 5.4/ 3.3/ 1.9) Andreas Kahari <ak+usenet@freeshell.org>
6 11.1 ( 5.9/ 3.9/ 1.6) Uri Guttman <uri@stemsystems.com>
6 12.2 ( 5.0/ 6.6/ 5.2) Michele Dondi <bik.mido@tiscalinet.it>
These posters accounted for 48.8% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
45 99.9 ( 41.5/ 47.1/ 23.4) Ben Morrow <usenet@morrow.me.uk>
34 102.2 ( 41.8/ 55.7/ 46.4) tadmc@augustmail.com
29 59.6 ( 22.0/ 37.6/ 19.5) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
28 87.0 ( 50.4/ 36.6/ 19.3) news@group.com
25 37.3 ( 22.9/ 12.8/ 5.7) Gunnar Hjalmarsson <noreply@gunnar.cc>
16 37.0 ( 14.8/ 18.0/ 10.2) James Willmore <jwillmore@remove.adelphia.net>
16 28.1 ( 14.2/ 13.0/ 5.8) Sisyphus <kalinaubears@iinet.net.au>
14 32.9 ( 13.5/ 16.3/ 6.7) tassilo.parseval@post.rwth-aachen.de
12 26.3 ( 11.6/ 12.5/ 10.1) abigail@abigail.nl
10 18.5 ( 8.2/ 7.3/ 4.1) Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
9 19.9 ( 10.0/ 9.4/ 6.1) totally@bogus.email.invalid
8 15.3 ( 8.2/ 6.8/ 4.5) Tore Aursand <tore@aursand.no>
8 10.4 ( 6.9/ 3.5/ 1.6) "Jürgen Exner" <jurgenex@hotmail.com>
7 16.6 ( 7.7/ 8.8/ 5.0) "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
7 10.3 ( 6.4/ 3.9/ 1.8) Steve Grazzini <grazz@pobox.com>
6 11.1 ( 5.9/ 3.9/ 1.6) Uri Guttman <uri@stemsystems.com>
6 7.7 ( 3.7/ 4.0/ 1.2) Malcolm Dew-Jones <yf110@vtn1.victoria.tc.ca>
6 10.6 ( 4.3/ 6.3/ 3.7) Jay Tilton <tiltonj@erols.com>
6 8.8 ( 5.4/ 3.3/ 1.9) Andreas Kahari <ak+usenet@freeshell.org>
6 12.1 ( 5.3/ 6.3/ 4.0) Brian McCauley <nobull@mail.com>
These posters accounted for 55.0% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
102.2 ( 41.8/ 55.7/ 46.4) 36 tadmc@augustmail.com
99.9 ( 41.5/ 47.1/ 23.4) 46 Ben Morrow <usenet@morrow.me.uk>
87.0 ( 50.4/ 36.6/ 19.3) 41 news@group.com
59.6 ( 22.0/ 37.6/ 19.5) 29 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
37.3 ( 22.9/ 12.8/ 5.7) 25 Gunnar Hjalmarsson <noreply@gunnar.cc>
37.0 ( 14.8/ 18.0/ 10.2) 16 James Willmore <jwillmore@remove.adelphia.net>
32.9 ( 13.5/ 16.3/ 6.7) 14 tassilo.parseval@post.rwth-aachen.de
28.1 ( 14.2/ 13.0/ 5.8) 16 Sisyphus <kalinaubears@iinet.net.au>
26.3 ( 11.6/ 12.5/ 10.1) 12 abigail@abigail.nl
24.0 ( 7.6/ 16.4/ 2.4) 7 sg47@cse.buffalo.edu
22.4 ( 2.4/ 19.6/ 19.0) 4 Greg Bacon <gbacon@hiwaay.net>
19.9 ( 10.0/ 9.4/ 6.1) 9 totally@bogus.email.invalid
18.5 ( 8.2/ 7.3/ 4.1) 10 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
17.1 ( 5.0/ 12.0/ 5.7) 5 Darin McBride <dmcbride@naboo.to.org.no.spam.for.me>
16.8 ( 3.8/ 13.0/ 12.1) 5 J. Romano <jl_post@hotmail.com>
16.6 ( 7.7/ 8.8/ 5.0) 7 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
15.3 ( 8.2/ 6.8/ 4.5) 9 Tore Aursand <tore@aursand.no>
14.8 ( 4.8/ 10.0/ 3.1) 6 Sara <genericax@hotmail.com>
14.2 ( 2.5/ 11.6/ 9.1) 3 "Robert TV" <ducott_99@yahoo.com>
12.2 ( 5.0/ 6.6/ 5.2) 6 Michele Dondi <bik.mido@tiscalinet.it>
These posters accounted for 54.2% of the total volume.
Top 10 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
36 46.4 tadmc@augustmail.com
46 23.4 Ben Morrow <usenet@morrow.me.uk>
29 19.5 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
41 19.3 news@group.com
16 10.2 James Willmore <jwillmore@remove.adelphia.net>
12 10.1 abigail@abigail.nl
14 6.7 tassilo.parseval@post.rwth-aachen.de
16 5.8 Sisyphus <kalinaubears@iinet.net.au>
25 5.7 Gunnar Hjalmarsson <noreply@gunnar.cc>
10 4.1 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
These posters accounted for 38.7% of the original volume.
Top 10 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.834 ( 46.4 / 55.7) 36 tadmc@augustmail.com
0.807 ( 10.1 / 12.5) 12 abigail@abigail.nl
0.568 ( 4.1 / 7.3) 10 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
0.565 ( 10.2 / 18.0) 16 James Willmore <jwillmore@remove.adelphia.net>
0.528 ( 19.3 / 36.6) 41 news@group.com
0.519 ( 19.5 / 37.6) 29 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.497 ( 23.4 / 47.1) 46 Ben Morrow <usenet@morrow.me.uk>
0.444 ( 5.8 / 13.0) 16 Sisyphus <kalinaubears@iinet.net.au>
0.443 ( 5.7 / 12.8) 25 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.414 ( 6.7 / 16.3) 14 tassilo.parseval@post.rwth-aachen.de
Bottom 10 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.834 ( 46.4 / 55.7) 36 tadmc@augustmail.com
0.807 ( 10.1 / 12.5) 12 abigail@abigail.nl
0.568 ( 4.1 / 7.3) 10 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
0.565 ( 10.2 / 18.0) 16 James Willmore <jwillmore@remove.adelphia.net>
0.528 ( 19.3 / 36.6) 41 news@group.com
0.519 ( 19.5 / 37.6) 29 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.497 ( 23.4 / 47.1) 46 Ben Morrow <usenet@morrow.me.uk>
0.444 ( 5.8 / 13.0) 16 Sisyphus <kalinaubears@iinet.net.au>
0.443 ( 5.7 / 12.8) 25 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.414 ( 6.7 / 16.3) 14 tassilo.parseval@post.rwth-aachen.de
10 posters (5%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
24 Verbose warnings
18 Style question: map versus foreach
17 what is @$?
16 Perl HASH problem
16 bit sequence match
13 Changing from capital letters to small letters using perl
13 printing characters
12 Converting a list join to a scaler/string
12 count of 1s in a binary number
11 Bug in 5.8.0? . op is very slow
11 Checking environment variable existence
11 I think what I need is a backreference but it doesn't ever match
11 installing perl
10 Code Help
9 what language is this?
9 Parsing Large Files
9 Newbie question - create a file
9 Need Some Error Help
9 subroutines return values
8 Perl can't locate a .pm in @INC
These threads accounted for 38.2% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
46.5 ( 20.3/ 22.5/ 13.5) 24 Verbose warnings
46.1 ( 16.6/ 28.0/ 9.1) 16 Perl HASH problem
42.9 ( 17.4/ 23.3/ 14.0) 18 Style question: map versus foreach
39.6 ( 17.3/ 21.7/ 10.2) 16 bit sequence match
34.0 ( 2.1/ 32.0/ 32.0) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.4 $)
32.8 ( 16.1/ 14.5/ 6.0) 17 what is @$?
29.8 ( 12.5/ 16.4/ 8.9) 11 installing perl
25.9 ( 9.4/ 15.3/ 6.6) 11 I think what I need is a backreference but it doesn't ever match
25.8 ( 11.8/ 13.2/ 9.8) 12 count of 1s in a binary number
23.0 ( 12.1/ 10.4/ 4.2) 12 Converting a list join to a scaler/string
22.6 ( 5.3/ 16.9/ 11.8) 6 Big problem with @array and Chomp ... I think :o
21.1 ( 8.3/ 12.1/ 6.2) 9 Parsing Large Files
20.9 ( 12.6/ 7.1/ 4.3) 13 Changing from capital letters to small letters using perl
20.6 ( 10.6/ 9.6/ 4.4) 11 Bug in 5.8.0? . op is very slow
20.0 ( 6.4/ 12.8/ 9.6) 8 Perl features
18.9 ( 1.5/ 17.4/ 17.0) 2 Statistics for comp.lang.perl.misc
18.9 ( 12.9/ 5.4/ 3.2) 13 printing characters
18.3 ( 8.0/ 9.7/ 5.5) 9 Need Some Error Help
17.9 ( 6.3/ 11.4/ 8.2) 7 math operations
17.8 ( 9.4/ 7.5/ 4.0) 11 Checking environment variable existence
These threads accounted for 41.9% of the total volume.
Top 14 Threads by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.745 ( 9.8/ 13.2) 12 count of 1s in a binary number
0.606 ( 4.3/ 7.1) 13 Changing from capital letters to small letters using perl
0.601 ( 3.2/ 5.4) 13 printing characters
0.601 ( 14.0/ 23.3) 18 Style question: map versus foreach
0.600 ( 13.5/ 22.5) 24 Verbose warnings
0.545 ( 8.9/ 16.4) 11 installing perl
0.533 ( 4.0/ 7.5) 11 Checking environment variable existence
0.471 ( 10.2/ 21.7) 16 bit sequence match
0.458 ( 4.4/ 9.6) 11 Bug in 5.8.0? . op is very slow
0.449 ( 3.8/ 8.5) 10 Code Help
0.434 ( 6.6/ 15.3) 11 I think what I need is a backreference but it doesn't ever match
0.412 ( 6.0/ 14.5) 17 what is @$?
0.404 ( 4.2/ 10.4) 12 Converting a list join to a scaler/string
0.324 ( 9.1/ 28.0) 16 Perl HASH problem
Bottom 14 Threads by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.745 ( 9.8 / 13.2) 12 count of 1s in a binary number
0.606 ( 4.3 / 7.1) 13 Changing from capital letters to small letters using perl
0.601 ( 3.2 / 5.4) 13 printing characters
0.601 ( 14.0 / 23.3) 18 Style question: map versus foreach
0.600 ( 13.5 / 22.5) 24 Verbose warnings
0.545 ( 8.9 / 16.4) 11 installing perl
0.533 ( 4.0 / 7.5) 11 Checking environment variable existence
0.471 ( 10.2 / 21.7) 16 bit sequence match
0.458 ( 4.4 / 9.6) 11 Bug in 5.8.0? . op is very slow
0.449 ( 3.8 / 8.5) 10 Code Help
0.434 ( 6.6 / 15.3) 11 I think what I need is a backreference but it doesn't ever match
0.412 ( 6.0 / 14.5) 17 what is @$?
0.404 ( 4.2 / 10.4) 12 Converting a list join to a scaler/string
0.324 ( 9.1 / 28.0) 16 Perl HASH problem
14 threads (11%) had at least ten posts.
Top 13 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
34 comp.lang.perl.modules
7 alt.perl
6 comp.databases.oracle.misc
6 comp.databases.oracle.server
6 comp.lang.perl.tk
3 comp.databases.oracle.tools
3 alt.politics.republicans
3 microsoft.public.win32.programmer.wmi
3 alt.politics.democrats
3 comp.os.linux
3 alt.politics
3 comp.lang.java.advocacy
2 comp.lang.perl
Top 20 Crossposters
===================
Articles Address
-------- -------
6 J R Longwill <longwill@psmfc.org>
5 Gunnar Hjalmarsson <noreply@gunnar.cc>
5 Dr Chaos <mbkennelSPAMBEGONE@NOSPAMyahoo.com>
5 The Ghost In The Machine <ewill@sirius.athghost7038suus.net>
5 Superdude <superdude@flavorcountry.com>
4 polarbear <mp34ken@hotmail.com>
4 woof <drubnone@yahoo.com>
4 Keeper <keeper@iosys.no-ip.org>
4 Gary Hartl <the-smtpguy@cogeco.ca>
4 Ron Reidy <r_reidy@comcast.net>
3 James Willmore <jwillmore@myrealbox.com>
2 "Ivan Brugiolo [MSFT]" <ivanbrug@online.microsoft.com>
2 ken@sewingwitch.com
2 "Tintin" <me@privacy.net>
2 Joel Garry <joel-garry@home.com>
2 "Michael Carey" <usenet@giantsquidmarks.com>
2 Michele Dondi <bik.mido@tiscalinet.it>
2 suraj <bhide@yahoo.com>
1 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
1 "Scott Smedley" <ssNO@SPAMaao.gov.au>
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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 V10 Issue 5774
***************************************
