[22684] in Perl-Users-Digest
Perl-Users Digest, Issue: 4905 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 28 11:07:14 2003
Date: Mon, 28 Apr 2003 08:05:06 -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, 28 Apr 2003 Volume: 10 Number: 4905
Today's topics:
28722183-WWW-Server testing results here - http://www.s <zf8_GZ776IBK@mail.ru>
Re: Can Internet Explorer be run from inside perl ? <jurgenex@hotmail.com>
Re: Can Perl enter data into web page form fields? "Fa <nerdy1@snet.net>
Re: Can Perl enter data into web page form fields? "Fa (Tad McClellan)
Re: ftp script <rrunner@san.rr.com>
Re: Getting FULL path+filename from a filehandle (Anno Siegel)
Re: hashes in scalar context? (Anno Siegel)
Re: How to compress and uncompress the files using the <REMOVEsdnCAPS@comcast.net>
if (grep ...) is failing... (pdqd)
Re: if (grep ...) is failing... <no@spam.for.me.invalid>
Re: if (grep ...) is failing... <josef.moellers@fujitsu-siemens.com>
Re: Isolating Sentences (Not Lines) With Regex <bigj@kamelfreund.de>
Re: Multidimensional Arrays (Tad McClellan)
Re: perl hash - help request <nospamkz15mapson@tellabs.com>
Re: perl hash - help request <mbudash@sonic.net>
perl, grep and multidimensional array - help needed <Rainer.Scherg@boschrexroth.de>
Re: perl, grep and multidimensional array - help needed <bernard.el-hagin@DODGE_THISlido-tech.net>
Re: Running a perl script <iain@hythemickey.net>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Statistics for comp.lang.perl.misc <nobody@dev.null>
Unnecessary Calls to the Server? <spamsucks@noemail.com>
Unnecessary Calls to the Server? <spamsucks@noemail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 28 Apr 2003 11:56:30 +0000 (UTC)
From: zf8 <zf8_GZ776IBK@mail.ru>
Subject: 28722183-WWW-Server testing results here - http://www.softrex.com/tornado/eng_test.html
Message-Id: <b8j4sd$bsf$28@slim.sovintel.ru>
28.04.2003 / 11:56:30 / comp.lang.perl.misc
-----------------------------------------------------------------------------
WEB server testing results here: http://www.softrex.com/tornado/eng_test.html
-----------------------------------------------------------------------------
Signature=28722183-JSQELEN8XGDR-GZ776IBK
------------------------------
Date: Mon, 28 Apr 2003 14:09:40 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Can Internet Explorer be run from inside perl ?
Message-Id: <ECara.4647$Uz2.2916@nwrddc03.gnilink.net>
jhiggins wrote:
> Can IE be run from inside perl. I want to create a program that will
> scan my MRTG images on a timed basis.
What happened when you tried it? In which way do you suspect IE to be
different from any other external program such that you cannot launch it via
system() or backticks or exec() or ....
jue
------------------------------
Date: Mon, 28 Apr 2003 10:48:03 GMT
From: "Tman" <nerdy1@snet.net>
Subject: Re: Can Perl enter data into web page form fields? "Fake" key strokes?
Message-Id: <DF7ra.2260$Si.552287324@newssvr10.news.prodigy.com>
"John" <SeeMessageBody@nospam.com> wrote in message
news:kx%qa.44906$4P1.4163819@newsread2.prod.itd.earthlink.net...
>
> I want to run a script and have that script enter stuff into a web browser
> and press enter, just as if I were there doing it. Trying to automate
data
> entry. It would have to be a slick module to find fields on a web page.
See HTML::Form.
------------------------------
Date: Sun, 27 Apr 2003 21:06:09 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Can Perl enter data into web page form fields? "Fake" key strokes?
Message-Id: <slrnbap34h.hc3.tadmc@magna.augustmail.com>
John <SeeMessageBody@nospam.com> wrote:
> All of the Perl modules for I've found for the web are for the server side
> (CGI, etc.).
Then find this one. :-)
http://search.cpan.org/author/GAAS/libwww-perl-5.69/lib/LWP.pm
(WWW::Mechanize is built on top of it)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 28 Apr 2003 13:31:38 GMT
From: "Danny" <rrunner@san.rr.com>
Subject: Re: ftp script
Message-Id: <_2ara.12331$Eu1.805070@twister.socal.rr.com>
Ok I was able to write the script. Now how do I get it to do multiple
locations?
Do I just write all the ftp locations in the same script file over and over?
"Danny" <rrunner@san.rr.com> wrote in message
news:5Aypa.36581$va.1376210@twister.socal.rr.com...
> I do not know how to write scripts so I am asking for some help. I need to
> creat a script that will help me ftp a firmware to over 200 locations. I
> want it to do it using linux. Is there a way to do this and can anyone
help
> me with some direction?
>
> Thanks
>
>
------------------------------
Date: 28 Apr 2003 11:17:47 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Getting FULL path+filename from a filehandle
Message-Id: <b8j2kr$gu3$2@mamenchi.zrz.TU-Berlin.DE>
Michael P. Broida <michael.p.broida@boeing.com> wrote in comp.lang.perl.misc:
[...]
> That just leaves the case where the user types in the filename with
> possibly NO path info or a partial, relative path. If I can open
> the file from that info, I can assume that all of that is (or is
> relative to) the current working dir, and build a path string by
> carefully removing any ../.. relative stuff. This is not even
> really difficult. I had just hoped for a pre-built solution.
Then look into File::Spec, which has a function rel2abs() for this
purpose. It can also clean up intervening ".." and multiple "//"
(or whatever the directory separator is).
Anno
------------------------------
Date: 28 Apr 2003 09:47:16 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: hashes in scalar context?
Message-Id: <b8itb4$bl2$3@mamenchi.zrz.TU-Berlin.DE>
Big and Blue <No_4@dsl.pipex.com> wrote in comp.lang.perl.misc:
> Andras Malatinszky wrote:
> >
> > Is there a realistic situation when evaluating a hash in scalar context
> > may be useful?
>
> Yes - checking whether a hash contains any information.
>
> if (%hash) {
> <<code to handle hash entries>>
> } else {
> print "%hash is empty!\n"; # Or whatever
> }
Most people use "keys %hash" in scalar context for that purpose.
Given the Perl mind set, it's intuitive that this is the number of
entries in the hash, and it's even faster (for non-empty hashes)
in case that ever makes a difference.
Anno
------------------------------
Date: Mon, 28 Apr 2003 05:07:20 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: How to compress and uncompress the files using the perl program
Message-Id: <Xns936B3E38FD25Esdn.comcast@216.166.71.239>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
pkvinu@indiatimes.com (Vinod. K) wrote in
news:bde4ceed.0304280053.2efed33b@posting.google.com:
> I am having a bunch of compressed files(database files, i.e .dbf
files
> whose size is more than 1GB) in one area. All these files need to
be
> uncompressed one after the other and put them in other location
using
> perl script. presently I used - system "uncompress" - statement in
my
> perl script which is consuming considerably more time. Just I want
> know is there any module or any other command in perl which will
> perform the above said activity in lesser time???
>
> please help me.
What was wrong with the answer I gave you in comp.lang.perl last
week?
- --
Eric
print scalar reverse sort qw p ekca lre reh
ts uJ p, $/.r, map $_.$", qw e p h tona e;
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.2.1 (MingW32) - WinPT 0.5.13
iD8DBQE+rP05Y96i4h5M0egRAk3yAJ9QSQMO5tIwO6ZMpQQ1u9tZP2+BrACff3Md
uqBiDmyjWXbtaeE8Vn1Wsqo=
=y8Jk
-----END PGP SIGNATURE-----
------------------------------
Date: 28 Apr 2003 05:34:05 -0700
From: pdqd@rediffmail.com (pdqd)
Subject: if (grep ...) is failing...
Message-Id: <1bd79fdb.0304280434.41da3258@posting.google.com>
Hi Friends,
-
I am using the following program which uses grep command to check
whether a substring is found in a string. But i am getting wrong
answer. Could someone tell me what is wrong in the code below?
-----------
#!/usr/local/bin/perl -w
my $text = "f dfdf flwower fdfd ";
if (grep $text,"flower" ) {
print("correct\n");
}
else {
print("Wrong\n");
}
exit 0;
----------------
Thanks in advance.
-
Regards,
Parimal
------------------------------
Date: Mon, 28 Apr 2003 12:53:53 GMT
From: "Nils Petter Vaskinn" <no@spam.for.me.invalid>
Subject: Re: if (grep ...) is failing...
Message-Id: <pan.2003.04.28.12.53.48.335981@spam.for.me.invalid>
On Mon, 28 Apr 2003 05:34:05 -0700, pdqd wrote:
> Hi Friends,
>
> if (grep $text,"flower" ) {
if ($text =~ /flower/ ){
regards
NPV
------------------------------
Date: Mon, 28 Apr 2003 15:16:06 +0200
From: Josef =?iso-8859-1?Q?M=F6llers?= <josef.moellers@fujitsu-siemens.com>
Subject: Re: if (grep ...) is failing...
Message-Id: <3EAD2996.FDA7FEE@fujitsu-siemens.com>
pdqd wrote:
> =
> Hi Friends,
> -
> I am using the following program which uses grep command to check
> whether a substring is found in a string. But i am getting wrong
> answer. Could someone tell me what is wrong in the code below?
> -----------
> #!/usr/local/bin/perl -w
> =
> my $text =3D "f dfdf flwower fdfd ";
> =
> if (grep $text,"flower" ) {
> print("correct\n");
> }
> else {
> print("Wrong\n");
> }
> =
> exit 0;
Have you consulted the finely printed perldoc on grep?
perldoc -f grep
yields
grep EXPR,LIST
which means that the pattern to search for goes first and also that it's
supposed to be slash-delimited. Also correcting your typo in the text:
#!/usr/local/bin/perl -w
my $text =3D "f dfdf flower fdfd ";
if (grep /flower/, $text) {
print("correct\n");
}
else {
print("Wrong\n");
}
exit 0;
-- =
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: Mon, 28 Apr 2003 12:21:49 +0200
From: "Janek Schleicher" <bigj@kamelfreund.de>
Subject: Re: Isolating Sentences (Not Lines) With Regex
Message-Id: <pan.2003.04.28.10.21.47.853319@kamelfreund.de>
Scott Edward Skinner wrote at Sat, 26 Apr 2003 21:04:25 +0000:
> Although I'm doing this project in Java, I need help from regex gurus,
> and that means Perl users...
>
> Given a text file of literature, I'm trying to isolate individual
> sentences. What is a sentence? Well, I'm not sure, but I know it when I
> see it.
There are modules solving this problem, e.g.
Lingua::EN::Sentence
Lingua::DE::Sentence
Lingua::HE::Sentence
Greetings,
Janek
------------------------------
Date: Sun, 27 Apr 2003 21:01:16 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Multidimensional Arrays
Message-Id: <slrnbap2rc.hc3.tadmc@magna.augustmail.com>
James <argonhigh@hotmail.com> wrote:
> "Eric J. Roode" <REMOVEsdnCAPS@comcast.net> wrote in message
> news:Xns936AC6C2E7B4Bsdn.comcast@216.166.71.239...
>> > $amount=scalar(@runs[2]);
>> Close. scalar(@{$runs[2]})
>
> Thanks so much, this way it much better then what I was doing.
Then you should read:
perldoc perlreftut
because there are other useful things there, in addition to the above.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 28 Apr 2003 16:03:42 +0100
From: kz15 <nospamkz15mapson@tellabs.com>
Subject: Re: perl hash - help request
Message-Id: <3EAD42CE.9070707@tellabs.com>
Anno Siegel wrote:
> Michael Budash <mbudash@sonic.net> wrote in comp.lang.perl.misc:
>
> [...]
>
>
>> $early++ if ("$iy$im$id" lt "$ry$rm$rd");
>> $on++ if ("$iy$im$id" eq "$ry$rm$rd");
>> $late++ if ("$iy$im$id" gt "$ry$rm$rd");
>
>
> ...or in one line:
>
> ${ ( \ ( $early, $on, $late))[ 1 + ( "$iy$im$id" cmp "$ry$rm$rd")] ++;
>
> :)
>
> Anno
COOOOL!
and now the translation?
Zoltan
------------------------------
Date: Mon, 28 Apr 2003 14:43:42 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: perl hash - help request
Message-Id: <mbudash-130D93.07434228042003@typhoon.sonic.net>
In article <b8iqk4$bl2$1@mamenchi.zrz.TU-Berlin.DE>,
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
> Michael Budash <mbudash@sonic.net> wrote in comp.lang.perl.misc:
>
> [...]
>
> > $early++ if ("$iy$im$id" lt "$ry$rm$rd");
> > $on++ if ("$iy$im$id" eq "$ry$rm$rd");
> > $late++ if ("$iy$im$id" gt "$ry$rm$rd");
>
> ...or in one line:
>
> ${ ( \ ( $early, $on, $late))[ 1 + ( "$iy$im$id" cmp "$ry$rm$rd")] ++;
>
> :)
>
> Anno
_someone_ has too much time on their hands! or perhaps has forgotten how
annnoying it is to be handed code like this to maintain... but it IS
cool!!
--
Michael Budash
------------------------------
Date: Mon, 28 Apr 2003 15:50:48 +0200
From: "Rainer Scherg" <Rainer.Scherg@boschrexroth.de>
Subject: perl, grep and multidimensional array - help needed
Message-Id: <b8jbl5$b6u$1@loghost1.eu.boschrexroth.com>
Hi,
I need some help on a strange problem:
Source snapshot:
chomp $line;
@fields = split /\|/, $line; # split
"cnt|ip|hostname|date" into a field
$list[$count] = [@fields];
...
# -- map out everything, matching the pattern
@list2 = grep { $_->[2] !~ /some-pattern/i } @list;
for the last line I'm getting the following error message:
>Modification of a read-only value attempted at "perl-progname.cgi" line XX.
The same error I get using the sort function.
Any idea why?
I don't see any error here. Any hint is appreciated.
Tnx in advance
Rainer
------------------------------
Date: Mon, 28 Apr 2003 13:55:46 +0000 (UTC)
From: "Bernard El-Hagin" <bernard.el-hagin@DODGE_THISlido-tech.net>
Subject: Re: perl, grep and multidimensional array - help needed
Message-Id: <Xns936BA1E22A76Belhber1lidotechnet@62.89.127.66>
Rainer Scherg wrote:
> Hi,
>
> I need some help on a strange problem:
>
> Source snapshot:
>
> chomp $line;
> @fields = split /\|/, $line; # split
> "cnt|ip|hostname|date" into a field
> $list[$count] = [@fields];
> ...
> # -- map out everything, matching the pattern
> @list2 = grep { $_->[2] !~ /some-pattern/i } @list;
>
>
> for the last line I'm getting the following error message:
>>Modification of a read-only value attempted at "perl-progname.cgi"
>>line XX.
>
> The same error I get using the sort function.
>
>
> Any idea why?
> I don't see any error here. Any hint is appreciated.
There is no error in your snippet. I copied it and ran it with no problems.
--
Cheers,
Bernard
--
echo 42|perl -pe '$#="Just another Perl hacker,"'
------------------------------
Date: Mon, 28 Apr 2003 14:35:40 +0100
From: Iain <iain@hythemickey.net>
Subject: Re: Running a perl script
Message-Id: <s5ara.11944$xd5.623295@stones.force9.net>
It may also need a file type of .cgi and/or be located in the directory
set up as your script alias (possibly cgi-bin), otherwise it is treated
as content of the default type, usualy text/plain.
HTH,
Iain.
--
To reply personally, first take the "mickey" out of my Reply-To address.
------------------------------
Date: Mon, 28 Apr 2003 11:50:09 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <vaq5bhtd831l9f@corp.supernews.com>
[It was suggested to me that the reports ought to show top twenty rather
than top ten. Let me know what you think. --gb]
Following is a summary of articles spanning a 7 day period,
beginning at 21 Apr 2003 11:48:46 GMT and ending at
28 Apr 2003 11:17:47 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: 235
Articles: 744 (278 with cutlined signatures)
Threads: 187
Volume generated: 1519.9 kb
- headers: 665.9 kb (12,473 lines)
- bodies: 813.2 kb (26,243 lines)
- original: 489.6 kb (16,978 lines)
- signatures: 40.1 kb (939 lines)
Original Content Rating: 0.602
Averages
========
Posts per poster: 3.2
median: 2 posts
mode: 1 post - 113 posters
s: 4.4 posts
Posts per thread: 4.0
median: 3 posts
mode: 1 post - 50 threads
s: 6.2 posts
Message size: 2091.9 bytes
- header: 916.5 bytes (16.8 lines)
- body: 1119.3 bytes (35.3 lines)
- original: 673.8 bytes (22.8 lines)
- signature: 55.2 bytes (1.3 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
31 85.6 ( 30.1/ 48.5/ 22.6) tassilo.parseval@post.rwth-aachen.de
29 54.6 ( 22.4/ 32.2/ 12.8) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
28 86.6 ( 33.0/ 50.0/ 41.0) tadmc@augustmail.com
24 52.7 ( 23.4/ 23.8/ 10.1) Uri Guttman <uri@stemsystems.com>
24 52.2 ( 21.9/ 30.3/ 22.4) Agrapha <brian@box201.com>
17 40.8 ( 14.2/ 23.7/ 12.0) Benjamin Goldberg <goldbb2@earthlink.net>
13 22.8 ( 9.9/ 12.9/ 7.2) Sara <genericax@hotmail.com>
13 26.5 ( 14.3/ 12.2/ 9.0) "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
11 32.1 ( 12.8/ 19.3/ 10.3) Chris Olive <nospam@raytheon.com>
11 18.2 ( 8.2/ 9.9/ 6.7) "Sisyphus" <kalinabears@hdc.com.au>
10 18.6 ( 10.6/ 7.9/ 4.4) Andras Malatinszky <nobody@dev.null>
10 19.5 ( 8.4/ 10.9/ 3.2) "John W. Krahn" <krahnj@acm.org>
9 13.4 ( 7.2/ 6.2/ 3.4) "Janek Schleicher" <bigj@kamelfreund.de>
9 14.5 ( 9.1/ 5.4/ 3.7) "Kasp" <kasp@epatra.com>
9 21.9 ( 7.2/ 14.7/ 9.3) Bryan Castillo <rook_5150@yahoo.com>
9 16.0 ( 8.0/ 7.4/ 2.7) Gunnar Hjalmarsson <noreply@gunnar.cc>
9 16.5 ( 8.3/ 8.2/ 4.7) "Bill Smith" <wksmith@optonline.net>
8 17.9 ( 6.7/ 10.2/ 7.7) Walter Roberson <roberson@ibd.nrc-cnrc.gc.ca>
8 15.7 ( 6.6/ 8.9/ 2.8) Michael Budash <mbudash@sonic.net>
8 16.5 ( 6.7/ 8.8/ 8.4) abigail@abigail.nl
These posters accounted for 39.0% of all articles.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
86.6 ( 33.0/ 50.0/ 41.0) 28 tadmc@augustmail.com
85.6 ( 30.1/ 48.5/ 22.6) 31 tassilo.parseval@post.rwth-aachen.de
54.6 ( 22.4/ 32.2/ 12.8) 29 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
52.7 ( 23.4/ 23.8/ 10.1) 24 Uri Guttman <uri@stemsystems.com>
52.2 ( 21.9/ 30.3/ 22.4) 24 Agrapha <brian@box201.com>
40.8 ( 14.2/ 23.7/ 12.0) 17 Benjamin Goldberg <goldbb2@earthlink.net>
32.1 ( 12.8/ 19.3/ 10.3) 11 Chris Olive <nospam@raytheon.com>
26.5 ( 14.3/ 12.2/ 9.0) 13 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
22.8 ( 9.9/ 12.9/ 7.2) 13 Sara <genericax@hotmail.com>
21.9 ( 7.2/ 14.7/ 9.3) 9 Bryan Castillo <rook_5150@yahoo.com>
19.9 ( 7.1/ 12.8/ 8.9) 7 Simon Andrews <simon.andrews@bbsrc.ac.uk>
19.5 ( 8.4/ 10.9/ 3.2) 10 "John W. Krahn" <krahnj@acm.org>
18.6 ( 10.6/ 7.9/ 4.4) 10 Andras Malatinszky <nobody@dev.null>
18.4 ( 7.1/ 10.1/ 6.0) 6 denshimeiru-realaddress@durchnull.ath.cx
18.2 ( 8.2/ 9.9/ 6.7) 11 "Sisyphus" <kalinabears@hdc.com.au>
17.9 ( 6.7/ 10.2/ 7.7) 8 Walter Roberson <roberson@ibd.nrc-cnrc.gc.ca>
16.9 ( 7.3/ 9.6/ 6.9) 7 bwalton@rochester.rr.com
16.5 ( 6.7/ 8.8/ 8.4) 8 abigail@abigail.nl
16.5 ( 8.3/ 8.2/ 4.7) 9 "Bill Smith" <wksmith@optonline.net>
16.0 ( 8.0/ 7.4/ 2.7) 9 Gunnar Hjalmarsson <noreply@gunnar.cc>
These posters accounted for 43.0% of the total volume.
Top 12 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
28 41.0 tadmc@augustmail.com
31 22.6 tassilo.parseval@post.rwth-aachen.de
24 22.4 Agrapha <brian@box201.com>
29 12.8 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
17 12.0 Benjamin Goldberg <goldbb2@earthlink.net>
11 10.3 Chris Olive <nospam@raytheon.com>
24 10.1 Uri Guttman <uri@stemsystems.com>
13 9.0 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
13 7.2 Sara <genericax@hotmail.com>
11 6.7 "Sisyphus" <kalinabears@hdc.com.au>
10 4.4 Andras Malatinszky <nobody@dev.null>
10 3.2 "John W. Krahn" <krahnj@acm.org>
These posters accounted for 33.0% of the original volume.
Top 12 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.820 ( 41.0 / 50.0) 28 tadmc@augustmail.com
0.743 ( 9.0 / 12.2) 13 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
0.739 ( 22.4 / 30.3) 24 Agrapha <brian@box201.com>
0.676 ( 6.7 / 9.9) 11 "Sisyphus" <kalinabears@hdc.com.au>
0.559 ( 7.2 / 12.9) 13 Sara <genericax@hotmail.com>
0.553 ( 4.4 / 7.9) 10 Andras Malatinszky <nobody@dev.null>
0.533 ( 10.3 / 19.3) 11 Chris Olive <nospam@raytheon.com>
0.506 ( 12.0 / 23.7) 17 Benjamin Goldberg <goldbb2@earthlink.net>
0.466 ( 22.6 / 48.5) 31 tassilo.parseval@post.rwth-aachen.de
0.425 ( 10.1 / 23.8) 24 Uri Guttman <uri@stemsystems.com>
0.398 ( 12.8 / 32.2) 29 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.295 ( 3.2 / 10.9) 10 "John W. Krahn" <krahnj@acm.org>
Bottom 12 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.820 ( 41.0 / 50.0) 28 tadmc@augustmail.com
0.743 ( 9.0 / 12.2) 13 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
0.739 ( 22.4 / 30.3) 24 Agrapha <brian@box201.com>
0.676 ( 6.7 / 9.9) 11 "Sisyphus" <kalinabears@hdc.com.au>
0.559 ( 7.2 / 12.9) 13 Sara <genericax@hotmail.com>
0.553 ( 4.4 / 7.9) 10 Andras Malatinszky <nobody@dev.null>
0.533 ( 10.3 / 19.3) 11 Chris Olive <nospam@raytheon.com>
0.506 ( 12.0 / 23.7) 17 Benjamin Goldberg <goldbb2@earthlink.net>
0.466 ( 22.6 / 48.5) 31 tassilo.parseval@post.rwth-aachen.de
0.425 ( 10.1 / 23.8) 24 Uri Guttman <uri@stemsystems.com>
0.398 ( 12.8 / 32.2) 29 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.295 ( 3.2 / 10.9) 10 "John W. Krahn" <krahnj@acm.org>
12 posters (5%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
73 Tough question for the guru's; Grep Once, Awk Twice (or more)
19 Regex greediness question
16 Is there an array for ($1, $2, $3, ...)
15 file upload not working anymore
13 {newbie} sorting of files
12 Curses and perl5.8
11 Q. Does ActivePerl for Windows require Apache to be installed ?
11 Removal of newline characters
10 Getting FULL path+filename from a filehandle
10 Undefining Aggregates
10 compare two files
9 Just curous about this- are REGEXes rigorously deterministic
9 korn shell or perl
9 Conditional use of perl modules
9 Distribute a perl script
9 Can Perl enter data into web page form fields? "Fake" key strokes?
8 regular expression question
8 How to send and receive on IP PORT?
7 Style: Using 'no warnings' in a module
7 check if it's an English word
These threads accounted for 37.0% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
162.4 ( 73.7/ 82.3/ 48.3) 73 Tough question for the guru's; Grep Once, Awk Twice (or more)
37.4 ( 17.1/ 19.9/ 9.5) 19 Regex greediness question
33.8 ( 1.9/ 32.0/ 32.0) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.4 $)
32.1 ( 11.7/ 19.0/ 8.9) 12 Curses and perl5.8
28.0 ( 14.6/ 12.7/ 6.2) 16 Is there an array for ($1, $2, $3, ...)
27.3 ( 14.1/ 12.6/ 5.5) 15 file upload not working anymore
25.7 ( 9.3/ 15.9/ 6.7) 10 Undefining Aggregates
23.0 ( 8.2/ 14.3/ 7.8) 10 Getting FULL path+filename from a filehandle
21.9 ( 12.1/ 8.3/ 4.1) 13 {newbie} sorting of files
21.6 ( 7.6/ 13.4/ 6.7) 8 How to send and receive on IP PORT?
20.8 ( 7.0/ 12.4/ 6.8) 7 Get PID from process started by "system" - how?
20.5 ( 8.0/ 11.3/ 6.4) 9 Conditional use of perl modules
19.6 ( 10.9/ 7.9/ 4.5) 11 Q. Does ActivePerl for Windows require Apache to be installed ?
19.3 ( 9.2/ 9.9/ 5.9) 11 Removal of newline characters
19.1 ( 8.7/ 10.0/ 4.5) 10 compare two files
18.8 ( 6.3/ 11.9/ 7.6) 7 Style: Using 'no warnings' in a module
18.5 ( 6.1/ 12.4/ 7.6) 6 regex for word whitespace word
18.4 ( 9.0/ 8.3/ 4.7) 9 korn shell or perl
17.3 ( 8.1/ 8.3/ 5.2) 9 Just curous about this- are REGEXes rigorously deterministic
17.2 ( 6.0/ 10.9/ 5.3) 6 Matching multiple lines
These threads accounted for 39.7% of the total volume.
Top 11 Threads by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.593 ( 5.9/ 9.9) 11 Removal of newline characters
0.588 ( 48.3/ 82.3) 73 Tough question for the guru's; Grep Once, Awk Twice (or more)
0.565 ( 4.5/ 7.9) 11 Q. Does ActivePerl for Windows require Apache to be installed ?
0.544 ( 7.8/ 14.3) 10 Getting FULL path+filename from a filehandle
0.491 ( 4.1/ 8.3) 13 {newbie} sorting of files
0.488 ( 6.2/ 12.7) 16 Is there an array for ($1, $2, $3, ...)
0.477 ( 9.5/ 19.9) 19 Regex greediness question
0.471 ( 8.9/ 19.0) 12 Curses and perl5.8
0.453 ( 4.5/ 10.0) 10 compare two files
0.436 ( 5.5/ 12.6) 15 file upload not working anymore
0.423 ( 6.7/ 15.9) 10 Undefining Aggregates
Bottom 11 Threads by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.593 ( 5.9 / 9.9) 11 Removal of newline characters
0.588 ( 48.3 / 82.3) 73 Tough question for the guru's; Grep Once, Awk Twice (or more)
0.565 ( 4.5 / 7.9) 11 Q. Does ActivePerl for Windows require Apache to be installed ?
0.544 ( 7.8 / 14.3) 10 Getting FULL path+filename from a filehandle
0.491 ( 4.1 / 8.3) 13 {newbie} sorting of files
0.488 ( 6.2 / 12.7) 16 Is there an array for ($1, $2, $3, ...)
0.477 ( 9.5 / 19.9) 19 Regex greediness question
0.471 ( 8.9 / 19.0) 12 Curses and perl5.8
0.453 ( 4.5 / 10.0) 10 compare two files
0.436 ( 5.5 / 12.6) 15 file upload not working anymore
0.423 ( 6.7 / 15.9) 10 Undefining Aggregates
11 threads (5%) had at least ten posts.
Top 11 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
9 comp.unix.solaris
7 comp.lang.perl
7 comp.lang.perl.modules
6 alt.perl
3 it.comp.lang.perl
2 comp.lang.perl.moderated
2 comp.lang.javascript
1 comp.databases.ibm-db2
1 comp.os.linux.advocacy
1 comp.answers
1 news.answers
Top 20 Crossposters
===================
Articles Address
-------- -------
3 "Ian.H [dS]" <ian@WINDOZEdigiserv.net>
3 "alessandro.lagostena" <alessandro.lagostena@tin.it>
3 Ron Reidy <rereidy@indra.com>
2 NoJunkMailshah@xnet.com
2 "Julian Scarfe" <julian@avbrief.com>
2 <jari.aalto@poboxes.com> (Jari Aalto+mail.perl)
2 "Peter Wilson" <peter_wilson@mail.com>
2 "Abhi" <abhinospam@kizna.com>
2 Beable van Polasm <beable+unsenet@beable.com>
2 Tony Curtis <tony_curtis32@yahoo.com>
1 Bryan Castillo <rook_5150@yahoo.com>
1 Brian Zurbach <briansz@sitemouse.com>
1 "Wang, Vincent" <viwang@nortelnetworks.com>
1 "Alberto Adrián Schiano" <aschiano@redesdelsur.com>
1 Big and Blue <No_4@dsl.pipex.com>
1 Eric Schwartz <emschwar@pobox.com>
1 Duane L <dewed@dewed.com>
1 tadmc@augustmail.com
1 "James E Keenan" <jkeen@concentric.net>
1 NNTP <news8080@yahoo.com>
------------------------------
Date: Mon, 28 Apr 2003 14:45:11 GMT
From: Andras Malatinszky <nobody@dev.null>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <3EAD3E3F.80009@dev.null>
Greg Bacon wrote:
> [It was suggested to me that the reports ought to show top twenty rather
> than top ten. Let me know what you think. --gb]
>
> Following is a summary of articles spanning a 7 day period,
> beginning at 21 Apr 2003 11:48:46 GMT and ending at
> 28 Apr 2003 11:17:47 GMT.
>
I like the top 20; I think you should keep it.
The "Bottom 12 by OCR" list is actually a repetition of the "Top 12 by
OCR" list. You might want to look at that for next week.
I sometimes wonder what the significance of rating posters by OCR is.
Thanks for doing the stats, Greg.
------------------------------
Date: Mon, 28 Apr 2003 14:54:19 GMT
From: "Topspin" <spamsucks@noemail.com>
Subject: Unnecessary Calls to the Server?
Message-Id: <sgbra.4892$26.2109@news.randori.com>
I have a Perl script that when called from the web, returns a PDF to the
user.
I have the exact same script that I have used for other file types without
any problems.
Inside the script, I log to a text file each time the script is executed and
completed. When users call the scripts that return other file types, the
script correctly logs a "hit". When users request a PDF (via the PDF
script), the script often logs 2 or 3 hits. The code is the same other than
the output. It appears that on another one of our servers that doesn't use
Perl, hits to PDFs produce multiple hits also. Does anyone know if this is
a Adobe issue? Can I do anything about it in my script?
Currently we are just having to check the logs for hits to the same url from
the same user within a couple of seconds of each other and filter the extra
ones out, but it's not an exact science, so it's not a perfect solution.
Any advice is appreciated.
------------------------------
Date: Mon, 28 Apr 2003 14:54:22 GMT
From: "Topspin" <spamsucks@noemail.com>
Subject: Unnecessary Calls to the Server?
Message-Id: <wgbra.4893$26.2699@news.randori.com>
I originally posted this on a Perl list, but I thought this might be a more
appropriate place for it if the solution is something more generic.
----
I have a Perl script that when called from the web, returns a PDF to the
user.
I have the exact same script that I have used for other file types without
any problems.
Inside the script, I log to a text file each time the script is executed and
completed. When users call the scripts that return other file types, the
script correctly logs a "hit". When users request a PDF (via the PDF
script), the script often logs 2 or 3 hits. The code is the same other than
the output. It appears that on another one of our servers that doesn't use
Perl, hits to PDFs produce multiple hits also. Does anyone know if this is
a Adobe issue? Can I do anything about it in my script?
Currently we are just having to check the logs for hits to the same url from
the same user within a couple of seconds of each other and filter the extra
ones out, but it's not an exact science, so it's not a perfect solution.
Any advice is appreciated.
------------------------------
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 4905
***************************************
