[23784] in Perl-Users-Digest
Perl-Users Digest, Issue: 5988 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 29 11:05:49 2003
Date: Mon, 29 Dec 2003 08:05:05 -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, 29 Dec 2003 Volume: 10 Number: 5988
Today's topics:
Formatting a Variable (Mike)
Re: Formatting a Variable (Anno Siegel)
How to delete single character in a string scalar (Long Li)
Re: How to delete single character in a string scalar <jurgenex@hotmail.com>
Re: How to delete single character in a string scalar <jurgenex@hotmail.com>
Re: Install Perl module on Windows <HelgiBriem_1@hotmail.com>
Pass hash to a subroutine (Nick Li)
Re: Pass hash to a subroutine <jurgenex@hotmail.com>
Regular Expression assistance <steve@nospamdunnhq.com>
Re: Regular Expression assistance <gnari@simnet.is>
Re: Regular Expression assistance <steve@nospamdunnhq.com>
Re: Regular Expression assistance <gnari@simnet.is>
Re: Regular Expression assistance <steve@nospamdunnhq.com>
Re: retrieve webpage with POST <dean.banko@globalnet.hr>
Re: retrieve webpage with POST <noreply@gunnar.cc>
Re: search interval (Anno Siegel)
Re: Slow script <tore@aursand.no>
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Re: Use a Perl_Interpreter and NOT call it my_perl? Us <matthew.garrish@sympatico.ca>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 29 Dec 2003 01:42:16 -0800
From: csdude@hotmail.com (Mike)
Subject: Formatting a Variable
Message-Id: <46cdc619.0312290142.b4e085b@posting.google.com>
Hi,
I need to check that a number entered fits a specific format, and if
it doesn't, then I need to modify that variable to fit the format. For
instance, I need for the user to enter a number like 0123456.7
(specifically needing 7 numbers, followed by a . and another number).
The FORMAT function doesn't do what I thought. In Java (as much as I
hate Java), Format would do this in one line. Is there a command that
I'm overlooking in Perl that would do this for me?
TIA,
Mike
------------------------------
Date: 29 Dec 2003 09:48:07 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Formatting a Variable
Message-Id: <bsot8n$sb9$1@mamenchi.zrz.TU-Berlin.DE>
Mike <csdude@hotmail.com> wrote in comp.lang.perl.misc:
> Hi,
>
> I need to check that a number entered fits a specific format, and if
> it doesn't, then I need to modify that variable to fit the format. For
> instance, I need for the user to enter a number like 0123456.7
> (specifically needing 7 numbers, followed by a . and another number).
^^^^^^^ ^^^^^^
"digit(s)"
> The FORMAT function doesn't do what I thought. In Java (as much as I
> hate Java), Format would do this in one line. Is there a command that
> I'm overlooking in Perl that would do this for me?
my $formatted = sprintf "%09.1f", $number;
See perldoc -f sprintf.
Anno
------------------------------
Date: Mon, 29 Dec 2003 15:15:22 GMT
From: lilong76@yahoo.com.cn (Long Li)
Subject: How to delete single character in a string scalar
Message-Id: <3ff043f1.806509@news.bentium.com>
Hi,
I want to delete a character in a string scalar, for example, $str =
"abcabcabc", how can I delete the second "c" in $str, I mean after
deletion, $str becomes "abcababc".
Thanks.
------------------------------
Date: Mon, 29 Dec 2003 15:24:20 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: How to delete single character in a string scalar
Message-Id: <EGXHb.3941$R_4.172@nwrddc03.gnilink.net>
Long Li wrote:
> I want to delete a character in a string scalar, [...]
perldoc -f substr
Or you can convert your string into an array of characters, then use
splice(), and then join() it back together.
Or use s to replace the third character with nothing (something along the
line of s/^(..)./$1/)
Or ....
jue
------------------------------
Date: Mon, 29 Dec 2003 16:05:00 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: How to delete single character in a string scalar
Message-Id: <MgYHb.9459$E17.3539@nwrddc02.gnilink.net>
Long Li wrote:
> I want to delete a character in a string scalar, for example, $str =
> "abcabcabc", how can I delete the second "c" in $str, I mean after
> deletion, $str becomes "abcababc".
Coming to think of it: your question is not quite clear. You don't specify
the criteria by which you determine which character should be deleted.
- do you want to delete the n-th character in that string, e.g. in your
example the sixth character?
- do you want to delete the n-th character that has a specific value, e.g.
the second "c", no matter what its position within the string?
- do you want to delete the n-th character in that string, but only if it
has a specific value?
- ....?
Depening on your criteria the possible solution will be very different.
jue
------------------------------
Date: Mon, 29 Dec 2003 13:14:30 +0000
From: Helgi Briem <HelgiBriem_1@hotmail.com>
Subject: Re: Install Perl module on Windows
Message-Id: <uq90vvk8b39ki8qo4ct2basg0vcn0j0j3f@4ax.com>
On Wed, 24 Dec 2003 08:29:45 +0100, Stéphane Métais
<stephane.metais-pourriel@laposte.net> wrote:
>I need to add a few PERL modules to my ActivePerl 5.6.1 distribution.
>Some of them require a c-compiler
>Since my hosts are not dev stations, they don't have any C-compiler.
>
>Could you please advise me for a "light weight" c-compiler which could
>be easyly installed before perl modules ?
You don't need a C compiler.
Use PPM (Perl Package Manager) which comes with the Activeperl
distribution.
The syntax is
C:\>ppm install MODULE
If that doesn't work, you probably need to configure
a proxy. Set the environment variable HTTP_PROXY
to something like
http://proxy.yourdomain:portnumber
If you need packages that are not in the Activestate
repository, read
C:\>ppm help repository
on how to set others.
------------------------------
Date: 29 Dec 2003 06:53:09 -0800
From: ningli2000@hotmail.com (Nick Li)
Subject: Pass hash to a subroutine
Message-Id: <bfc81ac6.0312290653.42d996ea@posting.google.com>
Hi,
I would like to know how to pass a hash to a subroutine, which
evaluates its values and return a value.
Thanks in advance.
Nick
------------------------------
Date: Mon, 29 Dec 2003 15:10:55 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Pass hash to a subroutine
Message-Id: <3uXHb.3887$R_4.2857@nwrddc03.gnilink.net>
Nick Li wrote:
> I would like to know how to pass a hash to a subroutine, which
> evaluates its values and return a value.
Hmmmm, just do it.
Where is the problem? I.e. show us your code or actually a minimal sample
program that exhibits your problem.
You read "perldoc perlsub", didn't you?
jue
------------------------------
Date: Mon, 29 Dec 2003 09:23:03 -0000
From: "Steve Dunn" <steve@nospamdunnhq.com>
Subject: Regular Expression assistance
Message-Id: <UnSHb.12489$FN.9281@newsfep4-winn.server.ntli.net>
I'm wondering if anyone can help with the following problem:
I have the following text:
<DOCUMENT>
<TYPE>EX-5
<SEQUENCE>3
<DESCRIPTION>OPINION OF
BRADLEY ARANT, ET AL.
<TEXT>
.
And I have the following (multi-line) regular expression:
^<([^/].+?[^/])>([\S ]+)
This correctly matches any line that contains "<tag>any characters" but not
"</tag>" or "<tag>". The following captures are returned from the
expression:
1 => TYPE
2 => EX-5
1 => SEQUENCE
2 => 3
1 => DESCRIPTION
2 => OPINION OF
I now need to modify the expression to take into account multi-line content.
To give an example, the current expression matches "<DESCRIPTION>OPINION OF"
but it needs to match "<DESCRIPTION>OPINION OF 'new line' BRADLEY ARANT, ET
AL."
Many thanks in advance,
Steve.
------------------------------
Date: Mon, 29 Dec 2003 09:54:59 -0000
From: "Ragnar Hafstað" <gnari@simnet.is>
Subject: Re: Regular Expression assistance
Message-Id: <bsotm8$vjt$1@news.simnet.is>
"Steve Dunn" <steve@nospamdunnhq.com> wrote in message
news:UnSHb.12489$FN.9281@newsfep4-winn.server.ntli.net...
> I'm wondering if anyone can help with the following problem:
>
> I have the following text:
>
> <DOCUMENT>
snipped vaguely xml-like text ...
> And I have the following (multi-line) regular expression:
>
> ^<([^/].+?[^/])>([\S ]+)
>
first , a warning:
regular expressions will only work for simple xml-like stuff.
i hope you do not have tag nesting or attributes.
>
>
> I now need to modify the expression to take into account multi-line
content.
> To give an example, the current expression matches "<DESCRIPTION>OPINION
OF"
> but it needs to match "<DESCRIPTION>OPINION OF 'new line' BRADLEY ARANT,
ET
> AL."
a few methods come to mind:
1) if the file is small (not huge) , you can slurp it in, and use something
like
m!^<([^/].+?[^/])>([^<]+)!s
2) set the input record separator to '<' and work with that
3) when you read a line not starting with '<', add it to previous item
what have you tried?
gnari
------------------------------
Date: Mon, 29 Dec 2003 10:26:34 -0000
From: "Steve Dunn" <steve@nospamdunnhq.com>
Subject: Re: Regular Expression assistance
Message-Id: <sjTHb.12510$FN.3818@newsfep4-winn.server.ntli.net>
Hi Ragnar,
Thanks. I'm not using perl just the regular expression (in .NET). It's
not XML (nor HTML), but some half-baked attempt at mark-up that was thought
of shortly after the dinosaurs became extinct! There are no nested tags
within the text, but empty tags must be ignored (in the example below,
<DOCUMENT> is an empty tag). The files are very small, and 'slurping' (like
the expression!) is one possibility if I can't get the regex to work.
Thanks again,
Steve.
"Ragnar Hafstað" <gnari@simnet.is> wrote in message
news:bsotm8$vjt$1@news.simnet.is...
> "Steve Dunn" <steve@nospamdunnhq.com> wrote in message
> news:UnSHb.12489$FN.9281@newsfep4-winn.server.ntli.net...
> > I'm wondering if anyone can help with the following problem:
> >
> > I have the following text:
> >
> > <DOCUMENT>
> snipped vaguely xml-like text ...
> > And I have the following (multi-line) regular expression:
> >
>
> > ^<([^/].+?[^/])>([\S ]+)
> >
>
> first , a warning:
> regular expressions will only work for simple xml-like stuff.
> i hope you do not have tag nesting or attributes.
> >
> >
> > I now need to modify the expression to take into account multi-line
> content.
> > To give an example, the current expression matches "<DESCRIPTION>OPINION
> OF"
> > but it needs to match "<DESCRIPTION>OPINION OF 'new line' BRADLEY ARANT,
> ET
> > AL."
>
> a few methods come to mind:
>
> 1) if the file is small (not huge) , you can slurp it in, and use
something
> like
> m!^<([^/].+?[^/])>([^<]+)!s
>
> 2) set the input record separator to '<' and work with that
>
> 3) when you read a line not starting with '<', add it to previous item
>
>
> what have you tried?
>
> gnari
>
>
>
------------------------------
Date: Mon, 29 Dec 2003 11:43:31 -0000
From: "Ragnar Hafstað" <gnari@simnet.is>
Subject: Re: Regular Expression assistance
Message-Id: <bsp41o$vrp$1@news.simnet.is>
"Steve Dunn" <steve@nospamdunnhq.com> wrote in message
news:sjTHb.12510$FN.3818@newsfep4-winn.server.ntli.net...
> Hi Ragnar,
> Thanks. I'm not using perl just the regular expression (in .NET).
It's
well, i do not know if many here are familiar with it.
are you processing the file line by line?
> not XML (nor HTML), but some half-baked attempt at mark-up that was
thought
> of shortly after the dinosaurs became extinct! There are no nested tags
> within the text, but empty tags must be ignored (in the example below,
> <DOCUMENT> is an empty tag).
in your example there was no end tags (</xxx>), so I am not sure of the file
format.
if you can collect the file into one string without linebreaks, you probably
can do a
match with
<([^/].+?[^/])>([^<]+)
gnari
P.S.:
in this newsgroup, it is considered bad form to top-post, i.e. to
put a reply/followup at the top of the message, and quote the whole thread
below, it is better to quote relevant parts along with replys and comments
(a bit like I am doing in this message)
if the conversation develops into a thread, the top-posting becomes more and
more irritating.
------------------------------
Date: Mon, 29 Dec 2003 13:12:24 -0000
From: "Steve Dunn" <steve@nospamdunnhq.com>
Subject: Re: Regular Expression assistance
Message-Id: <YKVHb.12565$FN.4552@newsfep4-winn.server.ntli.net>
Hi Gnari,
"Ragnar Hafstað" <gnari@simnet.is> wrote in message
news:bsp41o$vrp$1@news.simnet.is...
> "Steve Dunn" <steve@nospamdunnhq.com> wrote in message
> news:sjTHb.12510$FN.3818@newsfep4-winn.server.ntli.net...
> > Hi Ragnar,
> > Thanks. I'm not using perl just the regular expression (in .NET).
> It's
>
> well, i do not know if many here are familiar with it.
> are you processing the file line by line?
I am processing the text as one whole string. I've implemented a
work-around that 'slurps' line by line, although I'm not happy with it.
>
> > not XML (nor HTML), but some half-baked attempt at mark-up that was
> thought
> > of shortly after the dinosaurs became extinct! There are no nested tags
> > within the text, but empty tags must be ignored (in the example below,
> > <DOCUMENT> is an empty tag).
>
> in your example there was no end tags (</xxx>), so I am not sure of the
file
> format.
End tags for these elements do not exist in this mark-up (I haven't got a
clue as to why not, but as I said, it was designed before the wheel !)
>
> if you can collect the file into one string without linebreaks, you
probably
> can do a
> match with
> <([^/].+?[^/])>([^<]+)
Thanks for this. It works great although doesn't take into account the '<'
being on a new-line. It is returning the desired results, but will break if
there's any '<' characters in the text (and this 'mark-up' has no
escaping(!))
>
> gnari
Steve.
>
> P.S.:
> in this newsgroup, it is considered bad form to top-post, i.e. to
> put a reply/followup at the top of the message, and quote the whole thread
> below, it is better to quote relevant parts along with replys and comments
> (a bit like I am doing in this message)
> if the conversation develops into a thread, the top-posting becomes more
and
> more irritating.
Message understood. Many thanks for pointing this out and many many thanks
for your help!
>
>
>
------------------------------
Date: Mon, 29 Dec 2003 09:07:34 +0100
From: "Dean Banko" <dean.banko@globalnet.hr>
Subject: Re: retrieve webpage with POST
Message-Id: <bsonc8$tq$1@ls219.htnet.hr>
Hello Gunnar and Tad!
Thank you both for your assistance!
I've read all refferences you gave, but nowhere is written so clear as
Gunnar posted as the untested version to my original posting.
The thing works now correctly and appreciate your help, both!
I wish Happy New Year to you and your families,
many success and health
Dean Banko, Croatia
"Gunnar Hjalmarsson" <noreply@gunnar.cc> wrote in message
news:bsoji2$etv7f$1@ID-184292.news.uni-berlin.de...
> Tad McClellan wrote:
> > Gunnar Hjalmarsson <noreply@gunnar.cc> wrote:
> >> Tad McClellan wrote:
> >>> The documentation for HTTP::Request says to see also
> >>> HTTP::Request::Common.
> >>
> >> Does it? I for one am not able to find that reference.
> >
> > http://search.cpan.org/~gaas/libwww-perl-5.76/lib/HTTP/Request.pm
>
> There it is, obviously... Thanks!
>
> To *not* find it, I searched CPAN for HTTP::Request and ended up at
> http://search.cpan.org/~rse/lcwa-1.0.0/lib/lwp/lib/HTTP/Request.pm
> -----------------------------------------------------^^^^^^^^^^^^
>
> I should probably have been more attentive, but...
>
> http://search.cpan.org/~rse/lcwa-1.0.0/ seems to be a 'historical
> archive' of past versions of quite a few modules. :(
>
> Is that in accordance with the PAUSE rules?
>
> --
> Gunnar Hjalmarsson
> Email: http://www.gunnar.cc/cgi-bin/contact.pl
>
------------------------------
Date: Mon, 29 Dec 2003 09:46:21 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: retrieve webpage with POST
Message-Id: <bsoq2q$f295e$1@ID-184292.news.uni-berlin.de>
[ Please do not top post! ]
Dean Banko wrote:
> Gunnar Hjalmarsson wrote:
>>
>> my $req=HTTP::Request->new(POST=>$url);
>> $req->content_type('application/x-www-form-urlencoded');
>> $req->content('field=1&valid=yes');
>>
>> (untested)
>
> I thank you a lot for your assistance!
> The syntax that you offered is functional, I've tested it and it
> works!
I'm glad it works, Dean.
It should be noted that the field names and values in the example
consist of letters and digits only. If you can't tell that that's
always the case, I recommend that you take a look at
HTTM::Request::Common as Tad suggested. That module takes care of URI
escaping when needed. Otherwise, with my 'direct' method, you'd need
to handle the URI escaping separately.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 29 Dec 2003 14:36:48 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: search interval
Message-Id: <bspe60$9gl$1@mamenchi.zrz.TU-Berlin.DE>
Ragnar Hafstað <gnari@simnet.is> wrote in comp.lang.perl.misc:
> "Ying Hu" <yhu@mail.nih.gov> wrote in message
> news:3FE9CE16.2FAC8D2D@mail.nih.gov...
> > My perl script is as the following, but I do know that is not good one.
> > The two data sets are in text files and very huge.
> >
> a bit more info might still help to optimize
> how big datasets?
> are the A-intervals overlapping?
> what are the value ranges? (for example integers 0-1000)
If we assume the ranges are non-overlapping and delimited by smallish
integers, the ranges can be found in constant time without sorting and
searching. First build an array @rangemap that holds, for index $i,
the name of the range $i belongs to, or undef if there is no interval
for $i. Then each interval can be found with a single array lookup:
my @rangemap;
while ( <DATA> ) {
last if /^$/;
my ( $range, $from, $to) = split;
@rangemap[ $from .. $to] = ( $range) x ( $to - $from + 1);
}
while ( <DATA> ) {
my ( $item, $val) = split;
defined and print "$item and $_\n" for $rangemap[ $val];
}
__DATA__
A1 123 125
A2 129 200
A3 400 420
B1 126
B2 130
B3 202
Anno
------------------------------
Date: Mon, 29 Dec 2003 16:51:24 +0100
From: Tore Aursand <tore@aursand.no>
Subject: Re: Slow script
Message-Id: <pan.2003.12.25.00.20.04.97222@aursand.no>
On Wed, 24 Dec 2003 16:05:32 -0800, Yuri Shtil wrote:
>>> I have a script I inherited that was developed under perl 5.004.
>>>
>>> I tried to run it under perl 5.8.0. It runs much much slower. There is
>>> a lot of regular expressions that are invoked.
>>>
>>> Any idea anyone why this might be happening?
>> The jokes that have been posted _have_ a valid point; you should post
>> the code you're referring to.
>>
>> On the other hand: I've never benchmarked 5.0xx against any of the
>> other versions, but _for me_ version 5.8.2 was quite a lot faster than
>> 5.8.0.
>>
>> That might be because I compiled 5.8.2 myself, while 5.8.0 came
>> pre-installed with Red Hat 9.0. One _simple_ benchmark showed that the
>> same script was _twice_ as fast in 5.8.2 compared to 5.8.0.
> The reason I did not post the code is that it is quite large and only
> works in a specific environment. I did not expect folks here to pinpoint
> a problem in the code. My point was that the code runs about 5 times
> slower under 5.8.0 than under 5.004. I thought that maybe this was a
> known issue with 5.8.0. I apologise if my question was not asked
> correctly.
First of all: Don't top-post. Read the posting guidelines for this
newsgroup.
Secondly: I don't know if there have been done something with Perl since
the 5.0xx version(s), but I doubt there have been _major_ changes.
And - again: Since you don't/can't post code, or tell us anything about
your application, we can't help you more than that.
Profile your application in both Perl 5.004 and 5.8.0 and optimize where
needed.
--
Tore Aursand <tore@aursand.no>
"Time only seems to matter when it's running out." -- Peter Strup
------------------------------
Date: Mon, 29 Dec 2003 09:53:07 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <vuvuc3snndla73@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 22 Dec 2003 09:54:18 GMT and ending at
29 Dec 2003 19:34:31 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: 141
Articles: 426 (173 with cutlined signatures)
Threads: 96
Volume generated: 888.7 kb
- headers: 385.7 kb (7,196 lines)
- bodies: 479.5 kb (15,602 lines)
- original: 289.9 kb (10,064 lines)
- signatures: 23.0 kb (666 lines)
Original Content Rating: 0.605
Averages
========
Posts per poster: 3.0
median: 2 posts
mode: 1 post - 67 posters
s: 4.3 posts
Posts per thread: 4.4
median: 3.0 posts
mode: 1 post - 22 threads
s: 4.5 posts
Message size: 2136.1 bytes
- header: 927.2 bytes (16.9 lines)
- body: 1152.5 bytes (36.6 lines)
- original: 696.9 bytes (23.6 lines)
- signature: 55.3 bytes (1.6 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
26 46.9 ( 24.8/ 20.4/ 11.5) Gunnar Hjalmarsson <noreply@gunnar.cc>
24 41.8 ( 22.9/ 18.9/ 10.9) "Ragnar Hafstað" <gnari@simnet.is>
22 72.7 ( 26.1/ 43.9/ 39.8) tadmc@augustmail.com
16 34.5 ( 15.2/ 15.1/ 7.2) James Willmore <jwillmore@remove.adelphia.net>
16 32.6 ( 12.0/ 20.6/ 8.4) Sara <genericax@hotmail.com>
13 25.8 ( 9.8/ 16.0/ 7.3) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
13 28.9 ( 12.1/ 13.9/ 6.1) Uri Guttman <uri@stemsystems.com>
12 30.7 ( 17.7/ 11.2/ 7.4) groleau@freeshell.org
10 17.1 ( 9.7/ 7.4/ 5.0) "Matt Garrish" <matthew.garrish@sympatico.ca>
9 16.0 ( 6.4/ 9.6/ 5.4) Jay Tilton <tiltonj@erols.com>
8 19.0 ( 6.8/ 11.5/ 7.6) Michele Dondi <bik.mido@tiscalinet.it>
7 12.6 ( 6.3/ 4.7/ 2.8) Ben Morrow <usenet@morrow.me.uk>
7 18.0 ( 6.6/ 11.4/ 2.3) Gregory Toomey <nospam@bigpond.com>
7 14.5 ( 5.8/ 8.6/ 3.6) "Madhur" <a_madhur@vsnl.net>
6 12.9 ( 5.8/ 6.7/ 3.7) Brian McCauley <nobull@mail.com>
6 5.5 ( 4.4/ 1.1/ 0.8) "someone" <nil@email.com>
5 8.4 ( 4.0/ 4.4/ 2.6) Midas <MidasOneTwo@hotmail.nospam.com>
5 11.5 ( 6.6/ 4.9/ 2.3) Jim Gibson <jgibson@mail.arc.nasa.gov>
5 13.2 ( 7.1/ 6.2/ 4.7) groups@donstefani.com
5 7.2 ( 4.3/ 3.0/ 1.0) "Tintin" <me@privacy.net>
These posters accounted for 52.1% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
26 46.9 ( 24.8/ 20.4/ 11.5) Gunnar Hjalmarsson <noreply@gunnar.cc>
24 41.8 ( 22.9/ 18.9/ 10.9) "Ragnar Hafstað" <gnari@simnet.is>
20 72.7 ( 26.1/ 43.9/ 39.8) tadmc@augustmail.com
16 34.5 ( 15.2/ 15.1/ 7.2) James Willmore <jwillmore@remove.adelphia.net>
14 32.6 ( 12.0/ 20.6/ 8.4) Sara <genericax@hotmail.com>
13 25.8 ( 9.8/ 16.0/ 7.3) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
13 28.9 ( 12.1/ 13.9/ 6.1) Uri Guttman <uri@stemsystems.com>
11 30.7 ( 17.7/ 11.2/ 7.4) groleau@freeshell.org
10 17.1 ( 9.7/ 7.4/ 5.0) "Matt Garrish" <matthew.garrish@sympatico.ca>
9 16.0 ( 6.4/ 9.6/ 5.4) Jay Tilton <tiltonj@erols.com>
7 18.0 ( 6.6/ 11.4/ 2.3) Gregory Toomey <nospam@bigpond.com>
7 12.6 ( 6.3/ 4.7/ 2.8) Ben Morrow <usenet@morrow.me.uk>
7 19.0 ( 6.8/ 11.5/ 7.6) Michele Dondi <bik.mido@tiscalinet.it>
6 12.9 ( 5.8/ 6.7/ 3.7) Brian McCauley <nobull@mail.com>
5 14.5 ( 5.8/ 8.6/ 3.6) "Madhur" <a_madhur@vsnl.net>
5 5.5 ( 4.4/ 1.1/ 0.8) "someone" <nil@email.com>
5 11.5 ( 6.6/ 4.9/ 2.3) Jim Gibson <jgibson@mail.arc.nasa.gov>
5 17.5 ( 4.2/ 12.6/ 7.8) mgjv@tradingpost.com.au
5 7.2 ( 4.3/ 3.0/ 1.0) "Tintin" <me@privacy.net>
4 8.6 ( 2.6/ 5.4/ 2.9) ctcgag@hotmail.com
These posters accounted for 60.1% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
72.7 ( 26.1/ 43.9/ 39.8) 22 tadmc@augustmail.com
46.9 ( 24.8/ 20.4/ 11.5) 26 Gunnar Hjalmarsson <noreply@gunnar.cc>
41.8 ( 22.9/ 18.9/ 10.9) 24 "Ragnar Hafstað" <gnari@simnet.is>
34.5 ( 15.2/ 15.1/ 7.2) 16 James Willmore <jwillmore@remove.adelphia.net>
32.6 ( 12.0/ 20.6/ 8.4) 16 Sara <genericax@hotmail.com>
30.7 ( 17.7/ 11.2/ 7.4) 12 groleau@freeshell.org
28.9 ( 12.1/ 13.9/ 6.1) 13 Uri Guttman <uri@stemsystems.com>
25.8 ( 9.8/ 16.0/ 7.3) 13 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
19.9 ( 3.1/ 16.3/ 11.4) 3 Andy Baxter <news3@earthsong.null.free-online.co.uk>
19.0 ( 6.8/ 11.5/ 7.6) 8 Michele Dondi <bik.mido@tiscalinet.it>
18.0 ( 6.6/ 11.4/ 2.3) 7 Gregory Toomey <nospam@bigpond.com>
17.5 ( 4.2/ 12.6/ 7.8) 5 mgjv@tradingpost.com.au
17.1 ( 9.7/ 7.4/ 5.0) 10 "Matt Garrish" <matthew.garrish@sympatico.ca>
16.0 ( 6.4/ 9.6/ 5.4) 9 Jay Tilton <tiltonj@erols.com>
15.4 ( 0.4/ 14.9/ 14.9) 1 Greg Bacon <gbacon@hiwaay.net>
14.5 ( 5.8/ 8.6/ 3.6) 7 "Madhur" <a_madhur@vsnl.net>
13.2 ( 7.1/ 6.2/ 4.7) 5 groups@donstefani.com
12.9 ( 5.8/ 6.7/ 3.7) 6 Brian McCauley <nobull@mail.com>
12.6 ( 6.3/ 4.7/ 2.8) 7 Ben Morrow <usenet@morrow.me.uk>
11.5 ( 6.6/ 4.9/ 2.3) 5 Jim Gibson <jgibson@mail.arc.nasa.gov>
These posters accounted for 56.4% of the total volume.
Top 9 Posters by Volume of Original Content (min. ten posts)
============================================================
(kb)
Posts orig Address
----- ----- -------
22 39.8 tadmc@augustmail.com
26 11.5 Gunnar Hjalmarsson <noreply@gunnar.cc>
24 10.9 "Ragnar Hafstað" <gnari@simnet.is>
16 8.4 Sara <genericax@hotmail.com>
12 7.4 groleau@freeshell.org
13 7.3 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
16 7.2 James Willmore <jwillmore@remove.adelphia.net>
13 6.1 Uri Guttman <uri@stemsystems.com>
10 5.0 "Matt Garrish" <matthew.garrish@sympatico.ca>
These posters accounted for 35.7% of the original volume.
Top 9 Posters by OCR (minimum of ten posts)
===========================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.908 ( 39.8 / 43.9) 22 tadmc@augustmail.com
0.679 ( 5.0 / 7.4) 10 "Matt Garrish" <matthew.garrish@sympatico.ca>
0.661 ( 7.4 / 11.2) 12 groleau@freeshell.org
0.575 ( 10.9 / 18.9) 24 "Ragnar Hafstað" <gnari@simnet.is>
0.564 ( 11.5 / 20.4) 26 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.477 ( 7.2 / 15.1) 16 James Willmore <jwillmore@remove.adelphia.net>
0.459 ( 7.3 / 16.0) 13 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.437 ( 6.1 / 13.9) 13 Uri Guttman <uri@stemsystems.com>
0.406 ( 8.4 / 20.6) 16 Sara <genericax@hotmail.com>
Bottom 9 Posters by OCR (minimum of ten posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.908 ( 39.8 / 43.9) 22 tadmc@augustmail.com
0.679 ( 5.0 / 7.4) 10 "Matt Garrish" <matthew.garrish@sympatico.ca>
0.661 ( 7.4 / 11.2) 12 groleau@freeshell.org
0.575 ( 10.9 / 18.9) 24 "Ragnar Hafstað" <gnari@simnet.is>
0.564 ( 11.5 / 20.4) 26 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.477 ( 7.2 / 15.1) 16 James Willmore <jwillmore@remove.adelphia.net>
0.459 ( 7.3 / 16.0) 13 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.437 ( 6.1 / 13.9) 13 Uri Guttman <uri@stemsystems.com>
0.406 ( 8.4 / 20.6) 16 Sara <genericax@hotmail.com>
9 posters (6%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
26 I don't know what's wrong here !
19 why this code shots up memory usage
18 help with file test
17 Why does Perl use more resource than Php?
16 Parsing File
15 A Challenge...
13 Accounting, Database Problem
10 \r disappear even in binary mode
10 retrieve webpage with POST
9 newbie: Terminating while($line=<stdin>) on Windows
9 Slow script
9 search interval
8 ObjectA calling ObjectB
8 Deleting and moving multi-dim array "columns"
7 newbie: multi-screen CGI script
7 invoking C-shell command through Perl script
6 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.4 $)
6 installing mod manually
5 LWP with proxy problem
5 fork
These threads accounted for 52.3% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
56.5 ( 31.5/ 22.4/ 13.2) 26 I don't know what's wrong here !
40.1 ( 5.9/ 33.8/ 33.2) 6 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.4 $)
36.8 ( 16.8/ 19.2/ 9.7) 19 why this code shots up memory usage
36.1 ( 15.1/ 19.4/ 7.1) 16 Parsing File
34.3 ( 16.8/ 17.0/ 10.9) 18 help with file test
31.5 ( 16.8/ 13.6/ 7.4) 17 Why does Perl use more resource than Php?
27.0 ( 4.1/ 22.4/ 11.9) 4 looking for help with a counting algorithm
25.6 ( 9.3/ 16.1/ 8.2) 13 Accounting, Database Problem
24.8 ( 8.2/ 16.0/ 9.0) 9 newbie: Terminating while($line=<stdin>) on Windows
19.8 ( 13.5/ 5.8/ 3.2) 15 A Challenge...
19.2 ( 8.5/ 10.0/ 6.7) 7 newbie: multi-screen CGI script
17.5 ( 9.8/ 7.2/ 3.4) 10 retrieve webpage with POST
16.8 ( 6.7/ 9.8/ 5.4) 8 ObjectA calling ObjectB
16.8 ( 9.5/ 6.7/ 3.4) 10 \r disappear even in binary mode
16.3 ( 7.8/ 8.3/ 6.4) 9 search interval
15.8 ( 3.6/ 12.2/ 3.8) 5 LWP with proxy problem
15.4 ( 0.4/ 14.9/ 14.9) 1 Statistics for comp.lang.perl.misc
15.0 ( 6.4/ 8.5/ 3.5) 7 invoking C-shell command through Perl script
14.2 ( 6.6/ 6.7/ 3.3) 8 Deleting and moving multi-dim array "columns"
13.8 ( 4.6/ 9.1/ 4.5) 5 How to write a script that takes input from the screen and writes a number to a text file?
These threads accounted for 55.5% of the total volume.
Top 9 Threads by OCR (minimum of ten posts)
===========================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.642 ( 10.9/ 17.0) 18 help with file test
0.588 ( 13.2/ 22.4) 26 I don't know what's wrong here !
0.546 ( 3.2/ 5.8) 15 A Challenge...
0.545 ( 7.4/ 13.6) 17 Why does Perl use more resource than Php?
0.511 ( 3.4/ 6.7) 10 \r disappear even in binary mode
0.508 ( 8.2/ 16.1) 13 Accounting, Database Problem
0.506 ( 9.7/ 19.2) 19 why this code shots up memory usage
0.478 ( 3.4/ 7.2) 10 retrieve webpage with POST
0.366 ( 7.1/ 19.4) 16 Parsing File
Bottom 9 Threads by OCR (minimum of ten posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.642 ( 10.9 / 17.0) 18 help with file test
0.588 ( 13.2 / 22.4) 26 I don't know what's wrong here !
0.546 ( 3.2 / 5.8) 15 A Challenge...
0.545 ( 7.4 / 13.6) 17 Why does Perl use more resource than Php?
0.511 ( 3.4 / 6.7) 10 \r disappear even in binary mode
0.508 ( 8.2 / 16.1) 13 Accounting, Database Problem
0.506 ( 9.7 / 19.2) 19 why this code shots up memory usage
0.478 ( 3.4 / 7.2) 10 retrieve webpage with POST
0.366 ( 7.1 / 19.4) 16 Parsing File
9 threads (9%) had at least ten posts.
Top 11 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
9 alt.php
8 comp.lang.php
4 linux.redhat.misc
4 comp.lang.perl
1 comp.databases
1 comp.lang.scheme
1 comp.lang.lisp
1 comp.lang.python
1 comp.lang.ruby
1 comp.databases.theory
1 comp.lang.perl.modules
Top 15 Crossposters
===================
Articles Address
-------- -------
4 Sara <genericax@hotmail.com>
4 "I Report, You Decide" <test@test.com>
4 James Willmore <jwillmore@remove.adelphia.net>
3 Jim Gibson <jgibson@mail.arc.nasa.gov>
2 ctcgag@hotmail.com
2 Keith Bowes <do.not@spam.me>
2 Jeffrey J. Kosowsky <kosowsky@consult.pretender>
2 "M" <mike@no_address.tld>
2 Gregory Toomey <nospam@bigpond.com>
2 Phil Roberts <philrob@HOLYflatnetSHIT.net>
1 "RB" <wi@rjsolutions.org>
1 "CwK" <p12@bigfoot.com>
1 sholden@cs.usyd.edu.au
1 Tim Shoppa <shoppa@trailing-edge.com>
1 Daniel Berger <djberg96@hotmail.com>
------------------------------
Date: Mon, 29 Dec 2003 08:19:45 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: Use a Perl_Interpreter and NOT call it my_perl? Use TWO interpreters?
Message-Id: <ORVHb.2555$Vl6.713995@news20.bellglobal.com>
"Gregory Toomey" <nospam@bigpond.com> wrote in message
news:bsompl$f4jrn$1@ID-202028.news.uni-berlin.de...
> I'm not sure shat "work" means.
>
If you'd like, I can give you all sorts of examples of shat work and shat
jobs I've had.... (sorry, I just couldn't pass that one up... : )
Matt
------------------------------
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 5988
***************************************
