[11538] in Perl-Users-Digest
Perl-Users Digest, Issue: 5138 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 15 11:07:17 1999
Date: Mon, 15 Mar 99 08:00:18 -0800
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, 15 Mar 1999 Volume: 8 Number: 5138
Today's topics:
Re: Datastream API Problem Help! (Randal L. Schwartz)
Re: debugger mystery... <john.chambers@gte.com>
Re: Here 's a good one !!! (Andrew M. Langmead)
Re: Learn the truth - In Dear Recruiter we establish ex (Bill Boulton)
Re: Mail on WinNT - with no mail programm dragnovich@my-dejanews.com
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Newbie question about form to mail program <jamesht@idt.net>
Re: Newbie question about form to mail program (Randal L. Schwartz)
Re: NEWBIE: help understanding && (Tad McClellan)
Re: open port from behind firewall, with no proxy <jamesht@idt.net>
Re: Perl Keeps reading the A: drive <jamesht@idt.net>
Perl v C <cgormley@netcomuk.co.uk>
Re: Sendmail and Cc: field dragnovich@my-dejanews.com
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
System V shared memory in Perl <mhayden@robertson-associates.com>
Re: UNIQUE variable... <jamesht@idt.net>
Where is Perl 5.004 ? (Jens Engelbrecht)
Re: Where is Perl 5.004 ? (Bart Lateur)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 15 Mar 1999 07:31:18 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Datastream API Problem Help!
Message-Id: <m17lsircqh.fsf@halfdome.holdit.com>
>>>>> "Dimensions" == Dimensions <dimensions@dialaccess.com> writes:
Dimensions> I am using a script to get shipping costs from UPS
Dimensions> directly into my script. But, I am not getting any data
Dimensions> back.
Dimensions> I checked links to web site, strings, etc It all
Dimensions> works. I just cant get the data back into the
Dimensions> variable: $resultlist
Dimensions> It must be something about communication, and I am not too
Dimensions> good at that yet!
Dimensions> Please anyone, help!
The best help I can give you is not to reinvent the wheel, either
for fetching a web page, or specifically for getting the UPS data.
The module Business::UPS in the CPAN does everything you want and
more. Save your cleverness for the *hard* parts of your code. :)
NAME
Business::UPS - A UPS Interface Module
SYNOPSIS
use Business::UPS;
my ($shipping,$ups_zone,$error) = getUPS(qw/GNDCOM 23606 23607 50/);
$error and die "ERROR: $error\n";
print "Shipping is \$$shipping\n";
print "UPS Zone is $ups_zone\n";
%track = UPStrack("z10192ixj29j39");
$track{error} and die "ERROR: $track{error};
# 'Delivered' or 'In-transit'
print "This package is $track{Current Status}\n";
DESCRIPTION
A way of sending four arguments to a module to get
shipping charges that can be used in, say, a CGI.
print "Just another Perl hacker,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Mon, 15 Mar 1999 10:07:50 -0500
From: John Chambers <john.chambers@gte.com>
Subject: Re: debugger mystery...
Message-Id: <36ED2246.6B1B147B@gte.com>
Ronald J Kimball wrote:
>
> Matthew O. Persico <mpersico@bestweb.net> wrote:
>
> > To my experience, it just displays the wrong line. For example, given:
> >
> > while (<>) {
> >
> > # stuff in here
> >
> > }
> >
> > my$foo = 6;
> >
> > The debugger will show the while, the my$foo = 6 and then the first
> > line in the loop. Sometimes it jumps to the closing brace and not
> > the line following it. Again, it is annoying, but it is a
> > visual only - the right code gets executed in the desired order.
>
> Exactly. So John Chambers is blowing the problem out of proportion.
> It's annoying, but it hardly makes the debugging session worthless.
Hmmm ... So when it starts getting the line number wrong, how do you
manage to follow what it's doing? I can sorta follow along in the
source, of course, but every time it hits a branch point, there's a
major delay while you figure out which branch it took. Since verifying
that the branching is correct is a major part of debugging, this isn't
exactly a trivial concern.
Of course, you can have the code itself tell you what it's doing, by
adding lots of prints, and then you don't need the debugger to tell
you what line it's in. But if you do that, then there's not all that
much need for the debugger at all. Running the code without the debugger
(and with its output directed to a file) is now faster than stepping
through with the debugger, because you can edit the output file and
use the power of your editor to clarify what went wrong.
It seems to me that if the debugger starts lying to you about which
line it's at, then most of the value of the debugger is simply lost,
even if it's still interpreting the code correctly. Verifying what
the code is doing without the "where am I" information is sufficiently
difficult that debug output to a logfile is generally faster.
Or am I missing something in the debugger that will make it still
useful after such a failure?
------------------------------
Date: Mon, 15 Mar 1999 15:05:49 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Here 's a good one !!!
Message-Id: <F8n5xp.86t@world.std.com>
"Travis" <Travis@wildboysnet.com> writes:
>when using the -w on code I often get a screen full of errors due to the
>fact that I forgot an
>quotation mark somewhere ( on a print statement ) . Anyone know how the
>errors can be saved to a file so
>you can read the first offending error ?
As others have said, the diagnosting messges are sent to the standard
error output. So if you have your shell redirect standard error to a
file, you can save them for later. (If you are using a shell that will
not allow the redirection of standard output and standard error to
differnt locations, (read that as if you use csh) you might want to
run it under a shell that does.)
>Question two
>Maybe more difficult
>This little known technique lets you transform you perl program as it is
>being interpretted.
> For instance
>you can use it this to encrypt your code and have Perl decrypt it on the fly
>Bonus question was in Perl Journal winter 98 They failed to mention the
>solution
>anyone have it? (I have a nosy sys administrator )
You might want to take a look at the source filters module:
<URL:http://www.perl.com/CPAN/modules/by-module/Filter/Filter-1.15.tar.gz>
There was an article about it in The Perl Journal's Fall '98 issue. Of
course, there would be no way of running it unless the key is built
into it, and if so, then the same key can be used to decrypt it. The
only thing that this can buy you is light snooping. If someone spends
the time to decrypt it, you can be very sure that the person who did
the decrypting is intent on theft of your work.
--
Andrew Langmead
------------------------------
Date: Mon, 15 Mar 1999 15:34:53 GMT
From: bill_boulton@junk.winshop.com.au (Bill Boulton)
Subject: Re: Learn the truth - In Dear Recruiter we establish exactly what a recruiter does.
Message-Id: <36ecb309.1074464@news.winshop.com.au>
On Fri, 12 Mar 1999 16:40:13 GMT, prino@my-dejanews.com wrote:
>In article <7cb98q$cb3$1@nnrp1.dejanews.com>,
> QualifiedConsultant <computer_consultant7@my-dejanews.com> wrote:
>> This is the first in a series of documents I will be writing to educate the
>> computer consulting industry as a whole.
>
><snipped true but irrelevant text>
>
>Message forwarded to abuse@dejanews.com
>
>Robert
Who died and made you God? Pull your head in!
Bill
------------------------------
Remove JUNK for direct reply.
------------------------------
Date: Mon, 15 Mar 1999 15:12:24 GMT
From: dragnovich@my-dejanews.com
To: jm@ptn.co.za
Subject: Re: Mail on WinNT - with no mail programm
Message-Id: <7cj80d$t2j$1@nnrp1.dejanews.com>
Read Perl Faq4 from
http://www.ActiveState.com/support/faqs/win32/perlwin32faq4.html
theree's the answer!
See you!
> Hi!
>
> I have a problem! The name of the perl program is ActivePerl. I have
> installed many modules for Mail and so on, but I look for a method, that
> can send emails on WinNT with no sendmail or an other mail program.
>
> Can I do this ?
>
> bye juergen
------------------------
Juan Carlos Lopez
QDesigns President & CEO
http://www.qdesigns.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 15 Mar 1999 15:07:51 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <7cj7o7$r0p$2@info2.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 08 Mar 1999 15:03:50 GMT and ending at
15 Mar 1999 18:00:37 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) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 248 (47.9% of all posters)
Articles: 338 (26.6% of all articles)
Volume generated: 538.7 kb (25.5% of total volume)
- headers: 237.2 kb (4,908 lines)
- bodies: 295.3 kb (9,759 lines)
- original: 232.8 kb (7,867 lines)
- signatures: 5.8 kb (141 lines)
Original Content Rating: 0.788
Averages
========
Posts per poster: 1.4
median: 1.0 post
mode: 1 post - 192 posters
s: 0.9 posts
Message size: 1632.0 bytes
- header: 718.7 bytes (14.5 lines)
- body: 894.6 bytes (28.9 lines)
- original: 705.2 bytes (23.3 lines)
- signature: 17.7 bytes (0.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
5 10.6 ( 3.5/ 7.1/ 3.9) Paul Cameron <thrase@slip.net>
5 5.8 ( 3.2/ 2.6/ 2.1) witless@my-dejanews.com
5 11.7 ( 4.9/ 6.5/ 4.3) "Matthew O. Persico" <mpersico@bestweb.net>
5 7.2 ( 2.9/ 4.3/ 3.9) "Phil R Lawrence" <prlawrence@lehigh.edu>
4 9.3 ( 2.9/ 6.4/ 4.2) "Jim Orona III" <JimOrona@ElegantSolutionsInc.com>
4 9.5 ( 3.0/ 6.5/ 1.5) fxia@my-dejanews.com
4 4.4 ( 2.6/ 1.8/ 0.1) kli@profdev.sjsu.edu
4 4.7 ( 3.3/ 1.4/ 1.4) Federico Abascal <fabascal@gredos.cnb.uam.es>
4 6.1 ( 2.9/ 3.1/ 0.9) Frank Varnavas <varnavas@iname.com>
3 5.5 ( 2.5/ 2.9/ 1.0) planb@newsreaders.com (John Moreno)
These posters accounted for 3.4% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
13.8 ( 0.7/ 13.2/ 11.2) 1 "Julen Ludovic" <shogun@tvs2net.ch>
11.7 ( 4.9/ 6.5/ 4.3) 5 "Matthew O. Persico" <mpersico@bestweb.net>
10.6 ( 3.5/ 7.1/ 3.9) 5 Paul Cameron <thrase@slip.net>
9.5 ( 3.0/ 6.5/ 1.5) 4 fxia@my-dejanews.com
9.3 ( 2.9/ 6.4/ 4.2) 4 "Jim Orona III" <JimOrona@ElegantSolutionsInc.com>
8.4 ( 1.4/ 7.0/ 3.5) 2 fxia@yahoo.com
7.4 ( 0.6/ 6.7/ 6.7) 1 "Dimensions" <dimensions@dialaccess.com>
7.3 ( 1.7/ 5.6/ 4.9) 2 "RJHM van den Bergh" <rvdb@nedernet.nl>
7.2 ( 2.9/ 4.3/ 3.9) 5 "Phil R Lawrence" <prlawrence@lehigh.edu>
6.6 ( 2.0/ 4.5/ 3.6) 3 archon16@my-dejanews.com
These posters accounted for 4.3% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 0.4 / 0.4) 3 Georg Raming <raming@ewh.uni-hannover.de>
1.000 ( 1.0 / 1.0) 3 "Lynn Demarest" <ldemarest@mindspring.com>
0.987 ( 0.7 / 0.7) 3 swamichandra@my-dejanews.com
0.986 ( 1.5 / 1.5) 3 snay@redbox.caroline.net
0.959 ( 1.4 / 1.4) 4 Federico Abascal <fabascal@gredos.cnb.uam.es>
0.909 ( 3.9 / 4.3) 5 "Phil R Lawrence" <prlawrence@lehigh.edu>
0.852 ( 0.9 / 1.0) 3 Edwin van Geelen <edwin@mindless.com.killspam>
0.816 ( 2.1 / 2.6) 5 witless@my-dejanews.com
0.788 ( 3.6 / 4.5) 3 archon16@my-dejanews.com
0.655 ( 4.3 / 6.5) 5 "Matthew O. Persico" <mpersico@bestweb.net>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.554 ( 3.9 / 7.1) 5 Paul Cameron <thrase@slip.net>
0.521 ( 0.7 / 1.3) 3 Dimitri Ostapenko <dimitrio@fantom.com>
0.495 ( 0.7 / 1.4) 3 Spaghettio <webmaster@cgninteractive.com>
0.449 ( 1.3 / 3.0) 3 On Line Auctions UK <support@onlineauctions.co.uk>
0.441 ( 1.3 / 3.0) 3 Henry <hartleh1@westat.com>
0.375 ( 0.7 / 1.9) 3 "Michael Georgiadis" <mgeorgiadis@hotmail.com>
0.352 ( 1.0 / 2.9) 3 planb@newsreaders.com (John Moreno)
0.278 ( 0.9 / 3.1) 4 Frank Varnavas <varnavas@iname.com>
0.235 ( 1.5 / 6.5) 4 fxia@my-dejanews.com
0.056 ( 0.1 / 1.8) 4 kli@profdev.sjsu.edu
21 posters (8%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
6 John Lehmann <johnl@axis.com.au>
5 News System <verstege@hik.fzk.de>
3 prino@my-dejanews.com
3 David Steuber <trashcan@david-steuber.com>
3 QualifiedConsultant <computer_consultant7@my-dejanews.com>
2 Michael Littman <mikelittman@erols.com>
2 "RJHM van den Bergh" <rvdb@nedernet.nl>
2 "Allan M. Due" <All@n.due.net>
2 "Chill Phamney" <cphamney@dts.com>
2 emarkert@my-dejanews.com
------------------------------
Date: Mon, 15 Mar 1999 10:22:47 -0500
From: James Tolley <jamesht@idt.net>
To: David Brotman <dbrotman@worldnet.att.net>
Subject: Re: Newbie question about form to mail program
Message-Id: <36ED25C7.4094C023@idt.net>
David Brotman wrote:
> Is the line at the top of the script that reads:
>
> #!/usr/local/bin/perl
>
> supposed to include the # sign or is the # sign a comment line?
Yes.
>
>
> Also is this syntax correct?
>
> %alias = ( 'myemail' => 'dbrotman@hotmail.com');
Yes.
You might want to look in 'The Perl Cookbook' for the section on what to do
if your CGI program gives you an Internal Server Error.
Good luck,
James
------------------------------
Date: 15 Mar 1999 07:35:12 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Newbie question about form to mail program
Message-Id: <m11ziqrcjz.fsf@halfdome.holdit.com>
>>>>> "David" == David Brotman <dbrotman@worldnet.att.net> writes:
David> Is the line at the top of the script that reads:
David> #!/usr/local/bin/perl
David> supposed to include the # sign or is the # sign a comment line? I am just
David> trying to get a form mail cgi to work and it keeps giving me a
David> misconfiguration error message after I hit the submit button.
Start with this script:
#!/usr/local/bin/perl
print "Content-type: text/plain\n\nHello, world!\n";
If you can't make that work, then something is very fundamentally
wrong. Too many people try too much at once and then don't know if
the problem is in a basic step or an advanced step.
print "Just another Perl hacker and web whacker,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Mon, 15 Mar 1999 03:17:57 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: NEWBIE: help understanding &&
Message-Id: <lnfic7.q12.ln@magna.metronet.com>
Rory Campbell Lange ('x'campbell-lange@easynet.co.uk) wrote:
: I'm working through a Perl book I have bought, and I'm a little confused
: by the operator &&
: If I go:
: $x = 1;
: $$y = 2;
: $x < $y && $x*4;
^^^^
^^^^
You should be using the -w switch on *all* perl programs
Really.
All of them.
: print $x;
: $x doesn't evaluate to 4, as I would expect.
^^^^^^^^^^^^^^^^^
Well you kinda ought to explain why you expect that, so
that we can point out where you have gone wrong.
The first statement is the only one that affects the value of $x.
What did you expect would change the value stored in $x?
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 15 Mar 1999 10:20:09 -0500
From: James Tolley <jamesht@idt.net>
To: Paulboldra <pbolda@spamtrap.dynamite.com.au>
Subject: Re: open port from behind firewall, with no proxy
Message-Id: <36ED2529.C0511C12@idt.net>
Paulboldra wrote:
> Hello,
> My TCP/IP grounding isn't too good, but I've put together a simple http
> client which I need to run on a solaris box. Solaris on this box has
> been patched by 'ip filter' (
> http://coombs.anu.edu.au/ipfilter/ip-filter.html ) to only allow
> connections on specified ports.
>
> So now I can't run my http client, since the port replies are sent to is
> randomly allocated by the OS. Can anyone suggest a way to get my http
> client to create sockets only on a pre-determined port number?
The IO::Socket::INET->new method provides for the ability to set the
localport number. Here's a short script I use - it's pointed to a script
which will return its environment, including the REMOTE_PORT, so you can
test it out.
If you're using LWP, I don't think there's a way through the interface to
dictate the local port. You might have to find where that class calls
IO::Socket::INET->new, which I'm fairly certain that it must, and change it
so it uses the port you want.
hth,
James
########################
#!/usr/bin/perl
# this is going to open a socket, and print the file it receives, line by
line.
use strict;
use IO::Socket;
my $remote_host = "208.232.129.128";
my $peer_port = 80;
my $socket = IO::Socket::INET->new(PeerAddr => $remote_host,
PeerPort => $peer_port,
Proto => "tcp",
Type => SOCK_STREAM,
LocalPort => 9000) ##################### <-- Here it
is.#############
or die "Couldn't create the client socket: $!.";
print "I've created the client socket.\n";
#
# print the HTTP request to the server. End it with a blank line.
#
print $socket "GET /cgi-bin/env.cgi HTTP/1.0\n";
print $socket "\n"; # blank line, indicating that this request is completely
printed.
# tell the user where we are - the response might take a while.
print "I've printed to the socket\n";
#
# when the server responds, show us what they said, line by line.
#
while(<$socket>) {
print $_;
my $q = <STDIN>;
}
print "The end.\n";
------------------------------
Date: Mon, 15 Mar 1999 10:27:32 -0500
From: James Tolley <jamesht@idt.net>
To: "Allan M. Due" <Allan@due.net>
Subject: Re: Perl Keeps reading the A: drive
Message-Id: <36ED26E4.10E79631@idt.net>
You might also want to check to make sure that your PATH environment variable
doesn't look like this:
PATH=A:\;C:\perl\bin
If it has to look for the perl executable on the A drive before it looks in the
right place, you'll get that kind of behavior.
hth,
James
------------------------------
Date: Mon, 15 Mar 1999 15:31:09 -0000
From: "Clinton Gormley" <cgormley@netcomuk.co.uk>
Subject: Perl v C
Message-Id: <7cj92e$1ms$1@taliesin.netcom.net.uk>
Now don't get me wrong. I love perl. And i know next to nothing about C.
I am using Perl on various web sites and it works a treat. My only concern
is speed. This probably has its origins in my experiences with Basic many
years ago. (and I do know about mod perl).
What I'm getting to is this : In developing applications, does the speed
limitation imposed on Perl because of the need to translate result in an
eventual switch to rewriting everything in C when the application becomes
too complex?
Or have i missed the point?
Thanks
Clinton Gormley
------------------------------
Date: Mon, 15 Mar 1999 15:22:59 GMT
From: dragnovich@my-dejanews.com
To: nsurfer@bellsouth.net
Subject: Re: Sendmail and Cc: field
Message-Id: <7cj8k6$tlg$1@nnrp1.dejanews.com>
Well I sugest you not to use SENDMAIL program for your rutine, is better to
use perl rutines/modules for sendng mail. Something like this
use Net::SMTP;
$smtp = Net::SMTP->new('here.com'); # connect to an SMTP server
$smtp->mail( 'user@here.com' ); # use the sender's address here
$smtp->to('user@there.com'); # recipient's address
$smtp->cc('user1@some.com,user2@some.com'); # Remember to use "," and no space
for the emails lists.
$smtp->data(); # Start the mail
# Send the header.
$smtp->datasend("To: user@there.com\n");
$smtp->datasend("From: user@here.com\n");
$smtp->datasend("\n");
# Send the body.
$smtp->datasend("Hello, World!\n");
$smtp->dataend(); # Finish sending the mail
$smtp->quit; # Close the SMTP connection
See you!
In article <36EBF7B8.AC690A1C@bellsouth.net>,
Steve Miles <nsurfer@bellsouth.net> wrote:
> Hi all, I'm trying to send email through a perl script using sendmail to
> multiple people. I'm trying to use the "Cc:" field but I only get the
> email sent to the first person on the list. Is there a sendmail resource
> on the web I don't know about? Thanks.
>
> open (MAIL, "|$mailprog $email") || die "Can't open $mailprog!\n";
> print MAIL "Subject: $subject\n";
> print MAIL "From:$admin_email\n";
> print MAIL "Cc:myemai1\@mysite.com\n";
> print MAIL "Cc:myemail2\@mysite.com\n";
> print MAIL "$message\n";
> close (MAIL);
>
> Thanks,
> Steve Miles
>
>
------------------------
Juan Carlos Lopez
QDesigns President & CEO
http://www.qdesigns.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 15 Mar 1999 15:07:51 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7cj7o7$r0p$1@info2.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 08 Mar 1999 15:03:50 GMT and ending at
15 Mar 1999 18:00:37 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) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
Totals
======
Posters: 518
Articles: 1272 (418 with cutlined signatures)
Threads: 480
Volume generated: 2112.7 kb
- headers: 925.8 kb (19,070 lines)
- bodies: 1116.9 kb (36,846 lines)
- original: 771.5 kb (27,390 lines)
- signatures: 68.7 kb (1,463 lines)
Original Content Rating: 0.691
Averages
========
Posts per poster: 2.5
median: 1.0 post
mode: 1 post - 329 posters
s: 4.7 posts
Posts per thread: 2.6
median: 2.0 posts
mode: 1 post - 176 threads
s: 2.4 posts
Message size: 1700.8 bytes
- header: 745.3 bytes (15.0 lines)
- body: 899.2 bytes (29.0 lines)
- original: 621.1 bytes (21.5 lines)
- signature: 55.3 bytes (1.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
41 78.1 ( 37.7/ 29.8/ 16.8) rjk@linguist.dartmouth.edu (Ronald J Kimball)
39 62.7 ( 21.8/ 40.9/ 24.7) tadmc@metronet.com (Tad McClellan)
36 54.8 ( 28.5/ 23.6/ 13.7) Jonathan Stowe <gellyfish@btinternet.com>
35 61.1 ( 21.7/ 35.8/ 21.9) lr@hpl.hp.com (Larry Rosler)
35 51.3 ( 30.7/ 17.1/ 8.4) comdog@computerdog.com (brian d foy)
29 47.3 ( 21.8/ 24.8/ 16.4) jglascoe@giss.nasa.gov
22 33.9 ( 18.5/ 15.3/ 10.7) bart.lateur@skynet.be (Bart Lateur)
20 35.0 ( 16.3/ 14.8/ 13.7) abigail@fnx.com
19 20.2 ( 12.3/ 7.9/ 6.0) James Tolley <jamesht@idt.net>
19 36.0 ( 19.0/ 16.9/ 10.9) Staffan Liljas <staffan@ngb.se>
These posters accounted for 23.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
78.1 ( 37.7/ 29.8/ 16.8) 41 rjk@linguist.dartmouth.edu (Ronald J Kimball)
62.7 ( 21.8/ 40.9/ 24.7) 39 tadmc@metronet.com (Tad McClellan)
61.1 ( 21.7/ 35.8/ 21.9) 35 lr@hpl.hp.com (Larry Rosler)
54.8 ( 28.5/ 23.6/ 13.7) 36 Jonathan Stowe <gellyfish@btinternet.com>
51.3 ( 30.7/ 17.1/ 8.4) 35 comdog@computerdog.com (brian d foy)
47.3 ( 21.8/ 24.8/ 16.4) 29 jglascoe@giss.nasa.gov
36.0 ( 19.0/ 16.9/ 10.9) 19 Staffan Liljas <staffan@ngb.se>
35.0 ( 16.3/ 14.8/ 13.7) 20 abigail@fnx.com
33.9 ( 18.5/ 15.3/ 10.7) 22 bart.lateur@skynet.be (Bart Lateur)
31.2 ( 13.1/ 16.1/ 10.2) 16 "David L. Cassell" <cassell@mail.cor.epa.gov>
These posters accounted for 23.3% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.981 ( 4.4 / 4.5) 8 fl_aggie@thepentagon.com
0.938 ( 17.3 / 18.4) 5 Greg Bacon <gbacon@cs.uah.edu>
0.936 ( 17.4 / 18.6) 8 tchrist@mox.perl.com (Tom Christiansen)
0.930 ( 13.7 / 14.8) 20 abigail@fnx.com
0.909 ( 3.9 / 4.3) 5 "Phil R Lawrence" <prlawrence@lehigh.edu>
0.816 ( 2.1 / 2.6) 5 witless@my-dejanews.com
0.780 ( 3.8 / 4.8) 5 Peter John Acklam <jacklam@math.uio.no>
0.764 ( 6.0 / 7.9) 19 James Tolley <jamesht@idt.net>
0.751 ( 3.9 / 5.1) 9 mjd@op.net (Mark-Jason Dominus)
0.747 ( 6.8 / 9.0) 5 Mark <admin@asarian-host.org>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.500 ( 4.6 / 9.3) 8 Mick <horizon@internetexpress.com.au>
0.495 ( 4.3 / 8.8) 13 Eric Bohlman <ebohlman@netcom.com>
0.494 ( 8.4 / 17.1) 35 comdog@computerdog.com (brian d foy)
0.486 ( 2.9 / 6.0) 9 merlyn@stonehenge.com (Randal L. Schwartz)
0.479 ( 2.4 / 4.9) 9 mjtg@cus.cam.ac.uk (M.J.T. Guy)
0.479 ( 4.4 / 9.3) 12 ilya@math.ohio-state.edu (Ilya Zakharevich)
0.472 ( 1.4 / 2.9) 5 hans-georg@rist.net
0.458 ( 1.9 / 4.1) 5 Rick Delaney <rick.delaney@home.com>
0.402 ( 3.2 / 7.9) 5 Dan Sugalski <sugalskd@netserve.ous.edu>
0.357 ( 1.5 / 4.3) 7 Yu Fang <yfang@gte.com>
50 posters (9%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
17 constant in Perl?
16 Can't Increment Counter in FILE Using http://
14
13 BigInt: Decimal to Hex
13 y2k and 4-digit dates (was Re: foreach and while)
12 flock / sysopen / open confusion
12 Regex $1 behavior
12 does perl discourage obfuscated code? (was Re: Perl evangelism)
11 use diagnostics problem?
10 Are negative array indeces allowed?
These threads accounted for 10.2% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
36.2 ( 11.2/ 23.8/ 16.0) 12 does perl discourage obfuscated code? (was Re: Perl evangelism)
34.5 ( 11.9/ 21.9/ 14.3) 16 Can't Increment Counter in FILE Using http://
24.8 ( 11.4/ 11.1/ 6.7) 17 constant in Perl?
24.6 ( 10.6/ 12.9/ 5.7) 11 use diagnostics problem?
23.1 ( 12.8/ 9.6/ 6.4) 13 y2k and 4-digit dates (was Re: foreach and while)
21.7 ( 11.3/ 8.7/ 5.3) 13 BigInt: Decimal to Hex
21.5 ( 9.3/ 10.5/ 7.4) 12 flock / sysopen / open confusion
21.0 ( 9.0/ 11.2/ 7.2) 14
20.6 ( 4.3/ 16.0/ 6.3) 6 1000 thread limit?
18.5 ( 8.2/ 10.0/ 6.2) 12 Regex $1 behavior
These threads accounted for 11.7% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.797 ( 6.3/ 7.8) 8 problems with readdir
0.797 ( 2.3/ 2.9) 5 IDE for Perl
0.793 ( 9.1/ 11.5) 6 The Meta-problem: helping others with Perl problems
0.768 ( 8.1/ 10.5) 9 regexp gurus help! Parsing HTML
0.739 ( 1.9/ 2.6) 6 [HOW TO?] Strip all but certain characters from a string
0.722 ( 2.7/ 3.8) 5 Why 'use CGI' syntax works offline but not online?
0.718 ( 4.7/ 6.5) 8 Writing to a file
0.716 ( 5.4/ 7.5) 7 s/\n\s// don't work
0.716 ( 5.3/ 7.4) 8 Finding comments in a file using regular expressions
0.707 ( 7.4/ 10.5) 12 flock / sysopen / open confusion
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.471 ( 1.1 / 2.4) 5 Sendmail
0.459 ( 1.6 / 3.6) 5 Continue Script After Error?
0.451 ( 2.0 / 4.4) 5 Location: headers
0.442 ( 5.7 / 12.9) 11 use diagnostics problem?
0.439 ( 2.6 / 6.0) 6 MS ACCESS database with perl
0.431 ( 3.1 / 7.1) 9 debugger mystery...
0.428 ( 2.8 / 6.6) 9 FAQ 3.21: How can I hide the source for my Perl program?
0.426 ( 0.8 / 1.9) 5 Problems writing data to files
0.405 ( 1.7 / 4.1) 5 Array of Array????
0.392 ( 6.3 / 16.0) 6 1000 thread limit?
65 threads (13%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
38 comp.lang.perl.modules
19 alt.perl
10 comp.lang.perl.moderated
7 comp.os.linux.misc
7 comp.lang.pascal.borland
7 comp.os.ms-windows.programmer.win32
3 comp.os.linux.setup
3 comp.sys.sequent
2 comp.os.linux.development.apps
2 comp.lang.perl
Top 10 Crossposters
===================
Articles Address
-------- -------
6 John Lehmann <johnl@axis.com.au>
5 juergen@monocerus.demon.co.uk (Juergen Heinzl)
5 Jonathan Stowe <gellyfish@btinternet.com>
5 News System <verstege@hik.fzk.de>
4 Eric The Read <emschwar@mail.uccs.edu>
4 grumetedapanair@hotmail.com ("Adrian Fiorinni")
3 David Steuber <trashcan@david-steuber.com>
3 Judith Patrice <revjack@radix.net>
3 Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
3 "Charles R. Thompson" <design@raincloud-studios.com>
------------------------------
Date: Mon, 15 Mar 1999 15:57:24 GMT
From: Mark Hayden <mhayden@robertson-associates.com>
Subject: System V shared memory in Perl
Message-Id: <36ED2D19.3A6CAA34@robertson-associates.com>
Hello,
I'm trying to play with the System V shared memory functions in Perl to
set up a simple client/server system. I've used pipes (anonymous and
FIFO queues) and sockets (Internet and Unix) for interprocess
communication before, but I'd like to try implementing shared memory
because it looks relatively straight-forward, the data persists after it
is read (and even after one or both processes dies, as it isn't
session/connection oriented) and it is something I haven't tried before
:-)
To try it out, I set up a "server" that creates a shared memory segment,
writes the key into a file and starts waiting for requests from a
client.
The "client" program is supposed to retrieve the key from the file, then
open up the shared memory segment to read and write from it.
The server seems to work correctly--it creates the shared memory (using
shmget), and I can read and write shared memory (shmread, shmwrite) and
remove it on termination (shmctl with the RMID command)--but I can seem
to get a separate (client) process to access the shared memory. When I
try shmget with the ID supplied by the server it returns with an
error--"No such file or directory" in $!--and dies. This happens on 2
different types of UNIX platforms, so I think it is something I did
wrong.
Judging from the lack of posts and example code on the subject in the
newsgroups and web pages (I found one example, but it seemed to do all
the functions in one process--there is no example of a "client/server"
situation using system V functions). Is there an expert Perl hacker
that is knowledgable about such apparently arcane subjects that could
help me out?
Mark.
------------------------------
Date: Mon, 15 Mar 1999 10:05:00 -0500
From: James Tolley <jamesht@idt.net>
To: Steve Wells <wells@cedarnet.org>
Subject: Re: UNIQUE variable...
Message-Id: <36ED219C.6BB181B@idt.net>
Hello again,
I've thought the better of it and wondered if these solutions will work. It
think there might conceivably be some overlap due to the fact that the final
octet of the ip address AND $$ vary in length. I'll bet that in fact it's
possible, and just go ahead and make it a non-issue:
$unique = ($ENV{HTTP_X_FORWARDED_FOR} ?
$ENV{HTTP_X_FORWARDED_FOR} :
$ENV{REMOTE_ADDR}).'-'.time.'-'.$$;
By putting the hyphens between the variables, we make sure that the ip and $$
never confuse things.
Of course, if you were REALLY concerned, you could slap a rand on the end of
that as well. I think that would definitely do it.
hth,
James
------------------------------
Date: Mon, 15 Mar 1999 16:17:55 +0100
From: engelbrecht@t-online.de (Jens Engelbrecht)
Subject: Where is Perl 5.004 ?
Message-Id: <36ED24A2.69BEC792@dachs.de>
Hello,
I'm running Perl (v5.003_07) under win98. My Problem is to use the modul
LWP::UserAgent. The modul requires version 5.004. I've tried to get the
latest version of Perl under www.activestate.com but I couldnt find it
there.
Where can I get Version 5.004?
Thanks for your answer !
Jens Engelbrecht
------------------------------
Date: Mon, 15 Mar 1999 15:55:39 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Where is Perl 5.004 ?
Message-Id: <36ed2d24.218436@news.skynet.be>
Jens Engelbrecht wrote:
>I'm running Perl (v5.003_07) under win98. My Problem is to use the modul
>LWP::UserAgent. The modul requires version 5.004.
That is: AT LEAST version 5.004. Version 5.005 should work too.
> I've tried to get the
>latest version of Perl under www.activestate.com but I couldnt find it
>there.
It must be there. Maybe the name is a bit odd.
HTH,
Bart.
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 5138
**************************************
