[21724] in Perl-Users-Digest
Perl-Users Digest, Issue: 3928 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 7 09:10:03 2002
Date: Mon, 7 Oct 2002 06:05:09 -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, 7 Oct 2002 Volume: 10 Number: 3928
Today's topics:
complex so-called 3 dimensional array problem <hugo@fractaltechnologies.com>
Re: Eliminating right-end whitespace <sholden@cs.usyd.edu.au>
Re: finding processes <krahnj@acm.org>
Re: Help! How do you move one html page to another in P (Zordiac)
Re: Help! How do you move one html page to another in P (Helgi Briem)
Re: How to find array element index efficently <bart.lateur@pandora.be>
Re: How to find array element index efficently <REMOVEsdnCAPS@comcast.net>
Re: How to find array element index efficently <d.adamkiewicz@i7.com.pl>
Re: How to get time in with millisecond precision <flavell@mail.cern.ch>
Re: Is this a bug in perl? <REMOVEsdnCAPS@comcast.net>
Looking for a 'Perl + SOAP' web hosting service (Francesco Moi)
Re: Looking for a 'Perl + SOAP' web hosting service <nobody@nowhere.com>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Simple Win32 batch file gives errors <bart.lateur@pandora.be>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Win3API::Net vs Win32::NetAdmin <bob.sinclar3@voila.fr>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 07 Oct 2002 16:07:42 +0800
From: hugo <hugo@fractaltechnologies.com>
Subject: complex so-called 3 dimensional array problem
Message-Id: <3DA140CE.5040203@fractaltechnologies.com>
Hi
I have a very complex problem and I am not getting out of it.
I want to do some calculations which previously were done on a set of
data, but now have to be incorporated into a double nested loop. This
ends up making use of an array which contains an array which in turn
contains another array (if you like, a 3 dimensional array).
Previously:
1. Get data from database:
$dbh = DBI->connect($connectstring,$username,$password) or die "Can't
connect to database";
$sth = $dbh ->prepare ("SELECT user, task, add_time, FROM tasks WHERE
project=\"$current_project\" AND month=\"$current_month\" AND
year=\"$year\" ORDER BY task, ddate, s_time_order, end_time_order ASC");
$sth->execute();
while ($ref = $sth ->fetchrow_hashref()) {
$Task_ID[$count] = $ref->{'task_ID'};
$U[$count] = $ref->{'user'};
$Ta[$count] = $ref->{'task'};
$A_time[$count] = $ref->{'add_time'};
$Time_total = $Time_total + $A_time[$count];
$count++;
}
$sth->finish();
2. Calculated the time (total number of hours as long as the task is the
same):
$ta_time = 0;
@ta = @Ta;
my ( $previous, $sum, $counting);
while ( @ta ) {
my ( $ch, $time ) = ( shift @ta, shift @A_time);
if ( defined $previous and $previous ne $ch ) {
$ta_time[$counting] = $sum;
$counting++;
$sum = 0;
}
$sum += $time;
$previous = $ch;
}
$ta_time[$counting] = $sum;
Now I want to do all this inside a double nested loop where @P is a list
of projects and @U is a list of users for which I want to get data
(which are tasks descriptions), WITHIN each project.
1. Get data from database:
for ($p = 0; $p < @P; $p++) {
for ($u = 0; $u < @U; $u++) {
$count=0;
$dbh = DBI->connect($connectstring,$username,$password) or die "Can't
connect to database";
$sth = $dbh ->prepare ("SELECT task, add_time FROM tasks WHERE
month=\"$current_month\" AND year=\"$year\" AND project=\"$P[$p]\" AND
user=\"$U[$u]\" ORDER BY project, user, task, ddate, s_time_order,
end_time_order ASC");
$sth->execute();
while ($ref = $sth ->fetchrow_hashref()) {
$Ta[$p][$u][$count] = $ref->{'task'};
$A_time[$p][$u][$count] = $ref->{'add_time'};
$count++;
}
$finalcount[$p][$u] = $count;
$sth->finish();
$dbh->disconnect;
2. Calculated the time (total number of hours as long as the task is the
same) as above, but this time I get myself in a terrible tangle:
(what follows is wrong):
@ta = @Ta;
@a_time = @A_time;
foreach ($x =0; $x < @a_time; $x++) {
print "<br>AAAA a_time is: $a_time[$x] \n";
}
my ( $previous, $sum, $counting);
while ( @ta[$p][$u] ) {
( $ch[$p][$u], $time[$p][$u] ) = ( shift @ta[$p][$u], shift
@a_time[$p][$u]);
if ( defined $previous and $previous ne $ch[$p][$u] ) {
$ta_time[$p][$u][$counting] = $sum[$p][$u];
print "<br>t_time is: $ta_time[$p][$u][$counting]\n";
$counting++;
$sum = 0;
}
$sum += $time[$p][$u];
$previous = $ch[$p][$u];
}
$ta_time[$p][$u][$counting] = $sum[$p][$u];
} # end second for loop
} # end first for loop
In other words, I only want the array values at the "third level down"
from the three dimensional arrays @A and @A_time because that are the
particular task entries for that particular user (at "second level" of
array) within a project (at "first level" of array) I am after. I would
like to store the cumulative time values in another 3D array
$ta_time[$p][$u][$counting], to be used later on.
When I do it this way, I get errors such as "must be array (not array
element)". Obviously I am not accessing the "third level down" array
values correctly.
Can anyone help me with this? Any help will be greatly appreciated.
Thanks
Hugo
--
Dr Hugo Bouckaert
Systems and Programming Engineer
GeoInformatics Exploration Australia P/L
57 Havelock St
West Perth, WA 6005
PO Box 1675, West Perth 6872
Ph: 61 08 9420 7400
Fax: 61 08 9226 1299
www.geoinformex.com
------------------------------------------------------------------------
This email and any attachments may be confidential or legally
privileged. If you received this message in error or are not the
intended recipient, you should destroy the e-mail message and any
attachments or copies, and you are prohibited from retaining,
distributing, disclosing or using any information contained herein.
Please inform us of the erroneous delivery by return e-mail. Thank you
for your cooperation.
------------------------------
Date: Mon, 07 Oct 2002 07:33:43 GMT
From: Sam Holden <sholden@cs.usyd.edu.au>
Subject: Re: Eliminating right-end whitespace
Message-Id: <rNao9.12373$vg.32355@news-server.bigpond.net.au>
Mike Mayer wrote:
> In article <3d9fd640@news.victoria.tc.ca>,
> yf110@vtn1.victoria.tc.ca (Malcolm Dew-Jones) wrote:
>
>
>>Warren Block (wblock@wonkity.com) wrote:
>>: Tassilo v. Parseval <Tassilo.Parseval@post.rwth-aachen.de> wrote:
>>: That just gets rid of spaces, though, not all whitespace characters,
>>: which would be
>>
>>: $string =~ s/\s+$//;
>>
>>You might want to use
>> s/\s+?$//;
>
>
> Aside from a slight runtime difference, is there
> any functional difference between these two
> regex's? I always use the former.
The later will leave a trailing newline character if one exists.
For example starting with the string "abc \n".
The former will result in "abc". While the later will result in "abc\n".
This is because $ will "match the end of the line (or before newline at
the end)" and the non-greediness of the +? causes the later to occur.
I can't see a reason why anyone would want such behaviour, but what do I
know?
--
Sam Holden
------------------------------
Date: Mon, 07 Oct 2002 09:11:13 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: finding processes
Message-Id: <3DA14FA3.A63BA68B@acm.org>
Randy wrote:
>
> On Sun, 06 Oct 2002 23:04:50 GMT, "John W. Krahn" <krahnj@acm.org>
> wrote:
>
> >#!/usr/local/perl -w
> >use strict;
> >
> >for my $s_pid ( map /(\d+)/, `ps -C sendmail -o pid` ) {
> > my $link = readlink "/proc/$s_pid/cwd"
> > or die "Cannot readlink /proc/$s_pid/cwd: $!";
> > print "$link\n";
> >}
>
> Running this on Solaris, I get
> ps: illegal option -- C
> usage: ps [ -aAdeflcjLPy ] [ -o format ] [ -t termlist ]
> [ -u userlist ] [ -U userlist ] [ -G grouplist ]
> [ -p proclist ] [ -g pgrplist ] [ -s sidlist ]
> 'format' is one or more of:
> user ruser group rgroup uid ruid gid rgid pid ppid pgid sid
> pri opri pcpu pmem vsz rss osz nice class time etime stime
> f s c lwp nlwp psr tty addr wchan fname comm args
>
> If I change ps to /usr/ucb/ps, I still get basically the same error
>
> /usr/ucb/ps: illegal option -- C
> usage: ps [ -aceglnrSuUvwx ] [ -t term ] [ num ]
#!/usr/local/perl -w
use strict;
for my $s_pid ( map /(\d+)$/, grep /^sendmail/, `ps -eo comm,pid` ) {
my $link = readlink "/proc/$s_pid/cwd"
or die "Cannot readlink /proc/$s_pid/cwd: $!";
print "$link\n";
}
__END__
John
--
use Perl;
program
fulfillment
------------------------------
Date: 7 Oct 2002 01:26:55 -0700
From: zordiac@hotmail.com (Zordiac)
Subject: Re: Help! How do you move one html page to another in Perl?
Message-Id: <7744b29b.0210070026.10d41825@posting.google.com>
Well thank you one and all for the responses.
I thought that I could use one Perl to:
a) generate more than one html page.
b) take user input from any page
c) navigate from one page to another
And I thought I could do this from one script but it started looking
messy. I started with a need to generate two html pages but now I need more.
My present code, that I now need to change is :
# ------------------------ START MAIN ----------------------
# if first time in display first page
# else display second page
# ----------------------------------------------------------
if ( $ENV{'REQUEST_METHOD'} ne "POST" )
{
# first time in display first page
&displayFirstPage;
exit;
}
else
{
# display second page
&processDisplaySecondPage;
}
# ------------------------ END MAIN ----------------------
Since I now have more than two pages to display I need to
determine which page to display so I have started work
on a routine to examine the parameters passed in using POST
sub readPOST
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
:
:
and so on
Just seemed a bit messy to me and thought I must be barking up the
wrong tree.
To respond to your reponses:
1. Simon - the answer you propose is to simply use a separate
script every time you move to a new html page. I suppose that does
make sense if I do not having functionality common to all the pages.
2. Jeff, I thought CGI.pm was a specialised module which required learning
specialised commands, and as I am new to Perl I wanted to stick to basics.
You suggest keeping to one Perl script and then having logic at
the start to exam a parameter that will tell you that
- this is your first time into the script
- or else you are coming into the script again and so you need to examine
a paramater passed in to determine which bit of logic to run through
ie what html page you have come from and which html page to generate.
3. Alan, I have looked at the FAQs - doesnt mean what I wanted wasn't
staring me in the face, just that I could not see it. Also I have
searched through the groups. And examined tutorials on the net.
All that has helped me get to where I am.
So I will look at Jeffs suggestion and at the possibility of having
a switch statement that uses a parameter to determines which html page
to display.
Many thanks,
Steve
------------------------------
Date: Mon, 07 Oct 2002 11:55:17 GMT
From: helgi@decode.is (Helgi Briem)
Subject: Re: Help! How do you move one html page to another in Perl?
Message-Id: <3da175ca.2431746316@news.cis.dfn.de>
On 7 Oct 2002 01:26:55 -0700, zordiac@hotmail.com (Zordiac)
wrote:
>2. Jeff, I thought CGI.pm was a specialised module which
> required learning specialised commands, and as I am
>new to Perl I wanted to stick to basics.
When it come to CGi programming in Perl, using the
CGI.pm module *IS* the basics. Anything else comes
under the *experts only* heading.
--
Regards, Helgi Briem
helgi AT decode DOT is
A: Top posting
Q: What is the most irritating thing on Usenet?
- "Gordon" on apihna
------------------------------
Date: Mon, 07 Oct 2002 07:56:56 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: How to find array element index efficently
Message-Id: <fff2qucmahndk7c3urane73tb8jt1331v1@4ax.com>
Darek Adamkiewicz wrote:
>The following subroutine works for me but it's terribly slow
>- but it has some flexibility I'd like to retain:
>sub k2i {
> my ($keys, $args) = @_;
> my %conv = ();
> @conv{ @$keys } = (0..$#{$keys});
> return wantarray ? @conv{@$args} : $conv{$args->[0]};
>}
Cache the hash. There's no need to rebuild it every time.
--
Bart.
------------------------------
Date: Mon, 07 Oct 2002 06:18:34 CDT
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: How to find array element index efficently
Message-Id: <Xns92A04A4FBCE8Esdn.comcast@216.166.71.239>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
"John W. Krahn" <krahnj@acm.org> wrote in news:3DA09770.792FC0A6@acm.org:
> Or use a pseudo-hash. :-)
>
> perldoc perlref
I thought pseudo-hashes were deprecated...?
- --
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: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBPaFteGPeouIeTNHoEQJ6IQCgtjQgjIxsTC8Dk05r79LnMR6DAjkAoOKU
bxmmKBfgN+bVerOApA0cglk9
=wJ90
-----END PGP SIGNATURE-----
------------------------------
Date: Mon, 07 Oct 2002 14:25:46 +0200
From: Darek Adamkiewicz <d.adamkiewicz@i7.com.pl>
Subject: Re: How to find array element index efficently
Message-Id: <anrtts$7k4$1@news2.tpi.pl>
Thank you folks
As performance speed issue is very important in that case
(this is more-than-flatfile database module based on MLDBM)
I forgot to mention that @$keys array contains
only positive numbers.
Actually, I'm implementing now Tie::IxHash
module - at first glance - 'read' set of records operation is now 3-4s
while previously (k2i) 28s - but I'm going to try other solutions too.
Regards
Darek
------------------------------
Date: Mon, 7 Oct 2002 11:03:19 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: How to get time in with millisecond precision
Message-Id: <Pine.LNX.4.40.0210071102580.10879-100000@lxplus075.cern.ch>
On Oct 6, Brett inscribed on the eternal scroll:
> I need to calculate a time between two events. The thing is I would
> like to do this with millisecond precision.
Wat was wrong with the answer in the FAQ?
------------------------------
Date: Mon, 07 Oct 2002 06:15:19 CDT
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: Is this a bug in perl?
Message-Id: <Xns92A049C2C3553sdn.comcast@216.166.71.239>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
roberson@ibd.nrc.ca (Walter Roberson) wrote in news:anpqnq$fqt$1
@canopus.cc.umanitoba.ca:
> In article <84964d56.0210060855.5ea7509@posting.google.com>,
> Michael McLagan <mmclagan@invweb.net> wrote:
>: I got a very unexpected result using 5.6.1 on a RH Linux system.
>:Specifically, I tried:
>
>: 0xFFFFFFFF >> 32
>
>:Intuitively, I should have gotten 0. What I got was 0xFFFFFFFF (-1)!
>
> 0xFFFFFFFF is a signed number. Shifting a signed number moves a '1'
> bit in at the top. If want 0's to be shifted in instead, you will
> have to force the number to be unsigned.
If you had looked at the OP's output, you'd know that's not the case.
- --
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: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBPaFstWPeouIeTNHoEQJQlQCg5Ud9GjJWxYw7IYTYyDszV0fY0P8An33j
krClUIw6nLfTm0Xpq/AbF53x
=SYVZ
-----END PGP SIGNATURE-----
------------------------------
Date: 7 Oct 2002 02:24:51 -0700
From: francescomoi@europe.com (Francesco Moi)
Subject: Looking for a 'Perl + SOAP' web hosting service
Message-Id: <5b829932.0210070124.6ccc009b@posting.google.com>
Hello.
I've been developing a website with Perl+SOAP on my Linux RedHat 7.2
machine at home, and I would like to host it on a professional
webhosting server.
Do you know any cheap and reliable one?
Thank you very much.
------------------------------
Date: Mon, 7 Oct 2002 19:30:54 +1000
From: "Gregory Toomey" <nobody@nowhere.com>
Subject: Re: Looking for a 'Perl + SOAP' web hosting service
Message-Id: <3nco9.47856$g9.137818@newsfeeds.bigpond.com>
Francesco Moi wrote in message
<5b829932.0210070124.6ccc009b@posting.google.com>...
>Hello.
>
>I've been developing a website with Perl+SOAP on my Linux RedHat 7.2
>machine at home, and I would like to host it on a professional
>webhosting server.
>
>Do you know any cheap and reliable one?
>
>Thank you very much.
See www.webhostingtalk.com
gtoomey
------------------------------
Date: Mon, 07 Oct 2002 13:00:55 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <uq31c75ol73e5@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 30 Sep 2002 13:24:38 GMT and ending at
07 Oct 2002 12:25:46 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) 2002 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 109 (39.1% of all posters)
Articles: 187 (20.3% of all articles)
Volume generated: 352.5 kb (19.1% of total volume)
- headers: 160.9 kb (3,130 lines)
- bodies: 190.1 kb (6,219 lines)
- original: 130.6 kb (4,388 lines)
- signatures: 1.4 kb (33 lines)
Original Content Rating: 0.687
Averages
========
Posts per poster: 1.7
median: 1 post
mode: 1 post - 71 posters
s: 3.5 posts
Message size: 1930.1 bytes
- header: 880.9 bytes (16.7 lines)
- body: 1040.8 bytes (33.3 lines)
- original: 715.0 bytes (23.5 lines)
- signature: 7.4 bytes (0.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
8 16.5 ( 7.6/ 9.0/ 5.3) David Britten <brittedg@student.gvsu.edu>
5 7.2 ( 3.6/ 3.6/ 1.8) kazchan <kazchan@curio-city.com>
5 10.8 ( 5.1/ 5.8/ 3.9) "JP" <NO_SPAM_pangjoe@rogers.com>
5 15.0 ( 7.6/ 7.3/ 3.2) ".Fredo" <Cptn.Fredo@S.S.No.Spam>
5 13.2 ( 4.8/ 8.4/ 8.2) tk <tk@WINDOZEdigiserv.net>
4 14.8 ( 3.8/ 11.0/ 3.3) Joel Nelson <crudmail@cox.net>
4 6.1 ( 3.0/ 3.1/ 1.9) Crackpot <Crackhead@mensa.org>
4 5.2 ( 3.1/ 2.1/ 1.4) Zeus <zeus_riposta@yahoo.com>
4 10.0 ( 3.5/ 6.5/ 2.7) "MITRE" <asimmons@mitre.org>
4 6.9 ( 2.9/ 3.9/ 2.6) develop@gistenson.com
These posters accounted for 5.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
16.5 ( 7.6/ 9.0/ 5.3) 8 David Britten <brittedg@student.gvsu.edu>
15.0 ( 7.6/ 7.3/ 3.2) 5 ".Fredo" <Cptn.Fredo@S.S.No.Spam>
14.8 ( 3.8/ 11.0/ 3.3) 4 Joel Nelson <crudmail@cox.net>
13.2 ( 4.8/ 8.4/ 8.2) 5 tk <tk@WINDOZEdigiserv.net>
10.8 ( 5.1/ 5.8/ 3.9) 5 "JP" <NO_SPAM_pangjoe@rogers.com>
10.0 ( 3.5/ 6.5/ 2.7) 4 "MITRE" <asimmons@mitre.org>
9.5 ( 3.7/ 5.8/ 2.6) 4 "Doug" <dgardiner@houston.rr.com>
7.9 ( 3.2/ 4.7/ 4.6) 4 "Simon Harvey" <ReplyToGroup@thanks.com>
7.8 ( 3.0/ 4.7/ 3.4) 3 "Adam Knowles" <adam@connectpoint.co.uk>
7.3 ( 3.4/ 3.9/ 2.6) 4 Tim B . <tim@ironwork.com>
These posters accounted for 6.1% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.2 / 1.2) 3 "dave" <dmehler@siscom.net>
0.980 ( 4.6 / 4.7) 4 "Simon Harvey" <ReplyToGroup@thanks.com>
0.980 ( 8.2 / 8.4) 5 tk <tk@WINDOZEdigiserv.net>
0.839 ( 1.7 / 2.0) 3 "J" <A@B>
0.773 ( 1.5 / 2.0) 3 Randy <nospam@rostie.net>
0.728 ( 3.4 / 4.7) 3 "Adam Knowles" <adam@connectpoint.co.uk>
0.676 ( 1.4 / 2.1) 4 Zeus <zeus_riposta@yahoo.com>
0.675 ( 3.9 / 5.8) 5 "JP" <NO_SPAM_pangjoe@rogers.com>
0.668 ( 2.6 / 3.9) 4 develop@gistenson.com
0.668 ( 2.6 / 3.9) 4 Tim B . <tim@ironwork.com>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.668 ( 2.6 / 3.9) 4 Tim B . <tim@ironwork.com>
0.606 ( 1.9 / 3.1) 4 Crackpot <Crackhead@mensa.org>
0.601 ( 1.3 / 2.2) 3 David Garde <david_garde@yahoo.com>
0.585 ( 5.3 / 9.0) 8 David Britten <brittedg@student.gvsu.edu>
0.510 ( 1.8 / 3.6) 5 kazchan <kazchan@curio-city.com>
0.443 ( 3.2 / 7.3) 5 ".Fredo" <Cptn.Fredo@S.S.No.Spam>
0.438 ( 2.6 / 5.8) 4 "Doug" <dgardiner@houston.rr.com>
0.412 ( 2.7 / 6.5) 4 "MITRE" <asimmons@mitre.org>
0.397 ( 1.9 / 4.8) 3 pierrot <foutuguy@yahoo.fr>
0.302 ( 3.3 / 11.0) 4 Joel Nelson <crudmail@cox.net>
19 posters (17%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
16 alt.perl
11 comp.lang.c++
9 comp.lang.java.programmer
9 comp.lang.lisp
7 comp.lang.perl
5 comp.mail.sendmail
5 comp.lang.perl.modules
2 mailing.database.mysql
2 comp.lang.perl.moderated
1 alt.php
Top 10 Crossposters
===================
Articles Address
-------- -------
6 malte <maltes.mailbox@gmx.net>
3 Dante Picca <dpicca@hochfeiler.it>
3 "Coby Beck" <cbeck@mercury.bc.ca>
3 Lieven Marchand <lieven.marchand@just.fgov.be>
3 Michael Borgwardt <brazil@brazils-animeland.de>
3 Fred Gilham <gilham@snapdragon.csl.sri.com>
1 GET NJ <aolsz@bellatlantic.net>
1 "John Moorhouse" <john.moorhouse@ukonline.co.uk>
1 "Andreas Jurenda" <andreas.jurenda@chello.at>
1 Aaron Isotton <aaron@isotton.com>
------------------------------
Date: Mon, 07 Oct 2002 07:54:49 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Simple Win32 batch file gives errors
Message-Id: <f8f2qu4etelf1rin7n92mce5u71d09n59a@4ax.com>
Dc wrote:
>I'm trying to simplify testing and running Perl scripts in a Win32
>environment. Problem is, if I try to run more than one script in a DOS
>window I get a message "cannot find the path specified" and then the script
>runs anyway.
>Here's the script:
>
>E:
>cd Perl files
>perl -w %1.pl
>C:
And you expect this to work several times in a row? I think a "duh!" is
in order. Once you've chdir'ed to the directory "Perl files", you're IN
that directory, not in the directory you were initially in. That's why
it can no longer be found.
I don't think the error message, which comes from DOS not perl, doesn't
matter.
But you still could use aboslute paths.
--
Bart.
------------------------------
Date: Mon, 07 Oct 2002 13:00:53 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <uq31c534sn5ve4@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 30 Sep 2002 13:24:38 GMT and ending at
07 Oct 2002 12:25:46 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) 2002 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: 279
Articles: 923 (342 with cutlined signatures)
Threads: 215
Volume generated: 1845.9 kb
- headers: 807.2 kb (15,230 lines)
- bodies: 995.3 kb (32,856 lines)
- original: 589.1 kb (21,373 lines)
- signatures: 42.5 kb (1,057 lines)
Original Content Rating: 0.592
Averages
========
Posts per poster: 3.3
median: 2 posts
mode: 1 post - 137 posters
s: 6.2 posts
Posts per thread: 4.3
median: 3 posts
mode: 1 post - 52 threads
s: 3.8 posts
Message size: 2047.9 bytes
- header: 895.5 bytes (16.5 lines)
- body: 1104.2 bytes (35.6 lines)
- original: 653.5 bytes (23.2 lines)
- signature: 47.2 bytes (1.1 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
62 158.4 ( 75.1/ 74.8/ 50.6) tadmc@augustmail.com
38 98.1 ( 31.6/ 63.4/ 28.7) Benjamin Goldberg <goldbb2@earthlink.net>
32 73.8 ( 29.6/ 37.9/ 17.3) tassilo.parseval@post.rwth-aachen.de
24 43.5 ( 18.7/ 19.5/ 12.1) helgi@decode.is
23 35.2 ( 18.6/ 15.9/ 4.8) "John W. Krahn" <krahnj@acm.org>
22 53.8 ( 22.2/ 31.5/ 23.1) "William Alexander Segraves" <wsegrave@mindspring.com>
18 40.1 ( 20.1/ 19.7/ 14.8) "Alan J. Flavell" <flavell@mail.cern.ch>
18 32.2 ( 16.1/ 15.2/ 7.8) Steve Grazzini <s_grazzini@hotmail.com>
17 24.5 ( 15.2/ 9.2/ 5.2) Bart Lateur <bart.lateur@pandora.be>
17 29.9 ( 12.8/ 17.0/ 10.2) "Tan Nguyen" <nospam@nospam.com>
These posters accounted for 29.4% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
158.4 ( 75.1/ 74.8/ 50.6) 62 tadmc@augustmail.com
98.1 ( 31.6/ 63.4/ 28.7) 38 Benjamin Goldberg <goldbb2@earthlink.net>
73.8 ( 29.6/ 37.9/ 17.3) 32 tassilo.parseval@post.rwth-aachen.de
53.8 ( 22.2/ 31.5/ 23.1) 22 "William Alexander Segraves" <wsegrave@mindspring.com>
51.5 ( 7.8/ 43.7/ 19.3) 8 Derek Thomson <derek@wedgetail.com>
43.5 ( 18.7/ 19.5/ 12.1) 24 helgi@decode.is
40.1 ( 20.1/ 19.7/ 14.8) 18 "Alan J. Flavell" <flavell@mail.cern.ch>
35.3 ( 10.3/ 22.5/ 11.7) 11 Uri Guttman <uri@stemsystems.com>
35.2 ( 18.6/ 15.9/ 4.8) 23 "John W. Krahn" <krahnj@acm.org>
32.2 ( 16.1/ 15.2/ 7.8) 18 Steve Grazzini <s_grazzini@hotmail.com>
These posters accounted for 33.7% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.980 ( 8.2 / 8.4) 5 tk <tk@WINDOZEdigiserv.net>
0.819 ( 8.8 / 10.8) 5 Da Witch <heather710101@yahoo.com>
0.754 ( 14.8 / 19.7) 18 "Alan J. Flavell" <flavell@mail.cern.ch>
0.744 ( 3.3 / 4.4) 6 "Richard S Beckett" <spikey-wan@bigfoot.com>
0.743 ( 6.5 / 8.8) 6 "ColdCathoid" <me@me.com>
0.737 ( 4.8 / 6.5) 8 chris-usenet@roaima.freeserve.co.uk
0.733 ( 6.1 / 8.3) 7 "Dick Penny" <penny1482@attbi.com>
0.731 ( 23.1 / 31.5) 22 "William Alexander Segraves" <wsegrave@mindspring.com>
0.697 ( 6.2 / 8.8) 9 Walter Roberson <roberson@ibd.nrc.ca>
0.676 ( 50.6 / 74.8) 62 tadmc@augustmail.com
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.445 ( 9.7 / 21.7) 9 Janek Schleicher <bigj@kamelfreund.de>
0.443 ( 3.2 / 7.3) 5 ".Fredo" <Cptn.Fredo@S.S.No.Spam>
0.441 ( 19.3 / 43.7) 8 Derek Thomson <derek@wedgetail.com>
0.364 ( 3.8 / 10.5) 12 Bernard El-Hagin <bernard.el-hagin@DODGE_THISlido-tech.net>
0.326 ( 2.7 / 8.4) 8 "Bill Smith" <wksmith@optonline.net>
0.322 ( 1.7 / 5.3) 7 Koos Pol <koos_pol@NO.nl.JUNK.compuware.MAIL.com>
0.322 ( 2.4 / 7.5) 10 No_Mail_Address@cox.net
0.317 ( 0.8 / 2.6) 5 Peter J. Acklam <pjacklam@online.no>
0.302 ( 4.8 / 15.9) 23 "John W. Krahn" <krahnj@acm.org>
0.169 ( 0.6 / 3.3) 5 "Gregory Toomey" <nobody@nowhere.com>
44 posters (15%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
33 Script to Change Filename
17 One line to Segfault Perl
17 ithreads, perl 5.8 and shared objects
14 What does [^\n] mean
14 unzip/zip an array
13 How can I count files in a directory?
12 What is the best way for file/stream IO in Perl?
12 newbie question - perl vs ?
12 Question about srand
12 Perl Tutor Wanted - Mtn View, CA
These threads accounted for 16.9% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
102.2 ( 16.5/ 84.2/ 37.4) 17 ithreads, perl 5.8 and shared objects
79.7 ( 35.8/ 42.4/ 27.5) 33 Script to Change Filename
32.1 ( 14.4/ 16.4/ 12.4) 17 One line to Segfault Perl
31.0 ( 9.8/ 21.1/ 14.0) 12 newbie question - perl vs ?
28.3 ( 11.2/ 16.4/ 8.4) 11 How would you do this (regexp)?
27.6 ( 3.6/ 23.8/ 12.9) 5 Speed optimization (with code)
27.2 ( 6.3/ 20.7/ 6.6) 7 IO::Select has limits? or how to use IO::Poll?
26.1 ( 11.4/ 14.4/ 6.2) 8 Convert Perl script to C program (and Why was this group's name changed?)
25.4 ( 12.2/ 12.6/ 4.3) 14 What does [^\n] mean
24.7 ( 11.3/ 11.4/ 5.9) 14 unzip/zip an array
These threads accounted for 21.9% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.856 ( 5.3/ 6.2) 6 Help! How do you move one html page to another in Perl?
0.806 ( 3.2/ 4.0) 6 why does where matter?
0.803 ( 2.5/ 3.1) 5 cgi woes
0.758 ( 12.4/ 16.4) 17 One line to Segfault Perl
0.726 ( 3.7/ 5.1) 5 Unable to trap error from child
0.713 ( 3.1/ 4.3) 5 Is this a bug in perl?
0.699 ( 2.9/ 4.1) 6 Beginning Perl
0.698 ( 3.3/ 4.7) 8 print reverse question
0.691 ( 4.3/ 6.2) 9 Sticky forms without CGI.pm?
0.685 ( 5.6/ 8.2) 12 Perl Tutor Wanted - Mtn View, CA
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.441 ( 2.7 / 6.1) 8 Set many slots in a hash to the same defined value.
0.440 ( 1.4 / 3.2) 7 Substitution question
0.427 ( 6.2 / 14.4) 8 Convert Perl script to C program (and Why was this group's name changed?)
0.423 ( 3.3 / 7.9) 5 Help w map & its iterator plse
0.418 ( 2.2 / 5.2) 6 String substitution of 3+ digit numbers only?
0.417 ( 3.3 / 7.8) 6 Help please extracting data from a word document
0.406 ( 4.6 / 11.4) 12 Question about srand
0.352 ( 2.4 / 6.7) 9 appending to files
0.342 ( 4.3 / 12.6) 14 What does [^\n] mean
0.317 ( 6.6 / 20.7) 7 IO::Select has limits? or how to use IO::Poll?
77 threads (35%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
16 alt.perl
11 comp.lang.c++
9 comp.lang.java.programmer
9 comp.lang.lisp
7 comp.lang.perl
5 comp.mail.sendmail
5 comp.lang.perl.modules
2 mailing.database.mysql
2 comp.lang.perl.moderated
1 alt.php
Top 10 Crossposters
===================
Articles Address
-------- -------
6 malte <maltes.mailbox@gmx.net>
4 Jonathan Li <jonathan.li@alcatel.com>
4 Jason Baugher <jason@baugher.pike.il.us>
3 "Wade Humeniuk" <wade@nospam.nowhere>
3 "Dale King" <KingD@TCE.com>
3 Lieven Marchand <lieven.marchand@just.fgov.be>
3 Dante Picca <dpicca@hochfeiler.it>
3 "Coby Beck" <cbeck@mercury.bc.ca>
3 Michael Borgwardt <brazil@brazils-animeland.de>
3 Software Scavenger <cubicle584@mailandnews.com>
------------------------------
Date: Mon, 07 Oct 2002 11:55:15 +0200
From: Bob Sinclar <bob.sinclar3@voila.fr>
Subject: Win3API::Net vs Win32::NetAdmin
Message-Id: <3DA15A03.5010708@voila.fr>
Hi,
The modules "Win3API::Net" and "Win32::NetAdmin" propose similar
functionalities for the management of the users and the groups.
Which to use? Which is best?
Thank you
--
And the beast shall come forth surrounded by a roiling cloud of
vengeance. The house of the unbelievers shall be razed and they shall be
scorched to the earth. Their tags shall blink until the end of days.
from The Book of Mozilla, 12:10 http://mozilla.tlk.fr/contact.php
------------------------------
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 3928
***************************************
