[15637] in Perl-Users-Digest
Perl-Users Digest, Issue: 3050 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 15 11:05:45 2000
Date: Mon, 15 May 2000 08:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <958403108-v9-i3050@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 15 May 2000 Volume: 9 Number: 3050
Today's topics:
Re: [General] From which script size Perl performance d (Bart Lateur)
Re: [Hash] Is the key always double-quoted? (Tad McClellan)
Re: [Hash] Is the key always double-quoted? (Randal L. Schwartz)
Re: [Hash] Is the key always double-quoted? <andkaha@my-deja.com>
Re: Accidental Creation of Static Variable <sariq@texas.net>
Re: DLL (Bart Lateur)
Re: Good Perl website? <gellyfish@gellyfish.com>
Re: Help with dates in Perl <olthoff@multiboard.com>
Re: How to COPY a website greg@apple2.com
Re: How to simulate a post request ? <gcf@my-deja.com>
Imprecision in perl ? <jwijman@interplein.nl>
Re: Imprecision in perl ? <andkaha@my-deja.com>
Re: Looking to purchase an FTP script ... <andersen+@rchland.ibm.com>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
perl on OS390 <i094034@hotmail.com>
Sending mail from Perl on NT old_flyer@my-deja.com
Re: Silly newbie question ? lurking@yifan.net
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
VBScript and Perl in same asp page. <billd@julian.uwo.ca>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 15 May 2000 13:25:43 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: [General] From which script size Perl performance decreases dramatically?
Message-Id: <3921f93c.2587901@news.skynet.be>
Andreas Kahari wrote:
>>I have a 65kb Perl script (reasonably organized) and I was wondering
>>such a size would decrease Perl performance a lot. I believe Perl will
>>take a lot of time parsing my code ...
>Use the Benchmark package to time your script with and without '-w' and
>with and without 'use strict;'.
That won't do, not in the usual manner. This only checks runtime
exectution times. What this guy wants to know is how much time Perl
takes compiling his script.
You'll probably have to benchmark
system("perl -c myscript.pl");
to get any useful results.
As for the squbject line:
>From which script size Perl performance decreases dramatically?
Heh? Perl's compiler probably is O(N) in function of the script size.
There is no threshold point where suddenly compiling takes a lot longer.
You'll have to weigh compile time (see above) to total time, compile +
run. You decide at what point you find the overhead to be too big. I'd
say, at around 20%-25% compile time over total time.
--
Bart.
------------------------------
Date: Mon, 15 May 2000 08:19:05 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: [Hash] Is the key always double-quoted?
Message-Id: <slrn8hvqpp.vgi.tadmc@magna.metronet.com>
On Mon, 15 May 2000 13:43:08 +0100, Charles Henry <charles.henry@engineer2k.com> wrote:
>I read in the Camel Book that the key of a hash was automatically
^^^^^^^^^^^^^^^^^
>double-quoted. But I've found out it's not always true.
That book is about 600 pages long.
I'll get back to you in a month or two after I have found out
where it says that...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 15 May 2000 07:03:24 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: [Hash] Is the key always double-quoted?
Message-Id: <m1snvjq5ar.fsf@halfdome.holdit.com>
>>>>> "Charles" == Charles Henry <charles.henry@engineer2k.com> writes:
Charles> I read in the Camel Book that the key of a hash was automatically
Charles> double-quoted.
Most likely you read something similar to that, and concluded what you
said, because the Camel Book would not spout such an untruth.
There are certain circumstances where a *bareword* (a C symbol
appearing without quotes) is automatically treated like a *quoted
bareword*, perhaps with warnings, but nevertheless quoted, even in the
face of "use strict" (especially "use strict subs") enabled. Around
hashes, these would be as the key of a hash:
print $foo{last}; # like $foo{"last"}
and on the left side of a fat-arrow (=>) when building a hash with a
typical key-value pair list:
%foo = (last => "Flintstone", first => "Fred");
The downside of using these "automatically quoted" contexts is that
you'll get warnings for both if you enable -w, because the word "last"
is also a function call. That's why I typically use (when I have
flexibility to choose) a single *initial cap* word:
%foo = (Last => "Flinstone", First => "Fred");
print $foo{Last};
and I get no errors or warnings, and it even distinguishes the names
as context constants.
print join " ", Just => another => Perl => "hacker,"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 15 May 2000 14:09:58 GMT
From: Andreas Kahari <andkaha@my-deja.com>
Subject: Re: [Hash] Is the key always double-quoted?
Message-Id: <8fp0f9$6us$1@nnrp1.deja.com>
In article <8foo8f$laq$1@reader1.fr.uu.net>,
"Charles Henry" <charles.henry@engineer2k.com> wrote:
> I read in the Camel Book that the key of a hash was automatically
> double-quoted. But I've found out it's not always true. Here is what I
did :
[cut]
Supposedly that is only true for clearly non-numerical keys... The
perldata mnual only speaks of the example $hash{'Feb'} vs. $hash{Feb}
and goes on to say that anything more complicated will be interpreted as
an expression.
/A
--
# Andreas Kähäri, <URL:http://hello.to/andkaha/>.
# All junk email is reported to the appropriate authorities.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 15 May 2000 09:23:12 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: Accidental Creation of Static Variable
Message-Id: <39200850.6055F293@texas.net>
Michael Carman wrote:
>
> I'd be interested to know if this situation was ever considered,
> or is just another s///ee type of behavior.
There were two threads on perl5-porters. The second, where an actual
patch was submitted (and rejected) by Graham Barr, starts at:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1998-09/msg00462.html
- Tom
------------------------------
Date: Mon, 15 May 2000 13:12:12 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: DLL
Message-Id: <3920f69c.1915234@news.skynet.be>
BOSCH Patrick wrote:
>Does anyone know wether it's possible to user a dll with perl?
YES! Third time I answer this question in one week. If it's not in the
Win32 FAQ, it should be.
Get the Win32::API module from the "packages" subdirectory on
Activestate's website. This is currently a link. See that you get the
right version for you Perl version, because 5.6 and 5.005 are not binary
compatible. Go to the "zips" section, and download and install that
file.
Even though this module looks like it is intended to be used with
Win32's native support files, it actually works with any (non-ActiveX)
DLL.
--
Bart.
------------------------------
Date: Mon, 15 May 2000 14:34:23 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Good Perl website?
Message-Id: <PVTT4.1328$Kc1.187247@news.dircon.co.uk>
On Fri, 5 May 2000 07:30:02 -0700, Tom Phoenix Wrote:
> On Fri, 5 May 2000, Tse wrote:
>
>> Anyone know of any good Perl reference web site?
>
> Sure, but before I tell you, could you please do something to help all of
> us who help people with Perl? We want the websites like the ones you
> describe to be listed with all of the major search engines in such a way
> that they're easy to find. What searches did you perform which failed to
> find what you wanted? Once we know what search failed you, we may be able
> to take steps to ensure that other people who do the same search will find
> what they want.
Atcherly, <http://www.perl.com/> comes up consistently top at Google
<http://www.google.com> and the Open Directory Project <http://dmoz.org>.
Perl Mongers <http://www.perl.org> comes top at AltaVista. Yahoo presents
the results differently but I dont think anyone would be able to miss
<http://www.perl.com> there.
/J\
------------------------------
Date: Mon, 15 May 2000 09:01:41 -0400
From: "Darryl Olthoff" <olthoff@multiboard.com>
Subject: Re: Help with dates in Perl
Message-Id: <8fosfm$eoe$1@panther.uwo.ca>
($Year, $Month, $Day) = (localtime(time))[5,4,3];
$Year += 1900;
$Date = sprintf("%4.4d-%02d-%02d", $Year, $Month, $Day);
"CoDoGG" <Co_DoGG.NoSPaM@HoMe.CoM> wrote in message
news:391D2CF0.F521D928@HoMe.CoM...
> Can someone help me.
>
> I need to find the current date in perl in the format YYYY-MM-DD in
> order to compare it to another date located in a file!!
>
> Does anyone have any suggestions
>
> Thanks
> Co-DoGG
>
>
------------------------------
Date: Mon, 15 May 2000 08:54:14 -0500
From: greg@apple2.com
Subject: Re: How to COPY a website
Message-Id: <greg-174BEB.08541415052000@news.binary.net>
In article <391F6D13.7C8073DF@madmardy.com>,
Mark Holt <madmardy@madmardy.com> wrote:
> I was writing a script for this. But teleport pro is useless because
> it only runs on windows. I need something I can plug into a CGI to
> copy a website to my server upon an HTTP request. If anyone knows of
> anything on UNIX, I'd like to see it.
The more detail I know about the question, the more uneasy I am with it.
It's one thing to do it for your own off-line use; it's another to do it
to augment your own website, particularly in such a live manner that
others trigger pulling down the copies for you so that their up-to-date
information appears to be your content.
--
__ _____________ __
\ \_\ \__ __/ /_/ / <greg@apple2.com> ___
\ __ \ | | / __ /----------------------------------------------------\-\|/-/
\_\ \_\|_|/_/ /_/ <http://www.war-of-the-worlds.org/>
------------------------------
Date: Mon, 15 May 2000 13:58:02 GMT
From: A. Nonomous <gcf@my-deja.com>
Subject: Re: How to simulate a post request ?
Message-Id: <8fovp0$67r$1@nnrp1.deja.com>
This is the code I use:
Step 1, Build the posted items.
$str = "AppVersion=1.1";
$str .= "&AcceptUPSLicenseAgreement=YES";
$str .= "&ResponseType=application/x-ups-rss";
$str .= "&ActionCode=3";
$str .= "&ServiceLevelCode=$slc";
$str .= "&RateChart=Regular+Daily+Pickup";
$str .= "&ShipperPostalCode=20147";
$str .= "&ConsigneePostalCode=$cpc";
$str .= "&ConsigneeCountry=$c_c";
$str .= "&PackageActualWeight=$pwt";
$str .= "&Length=$pl";
$str .= "&Width=$pw";
$str .= "&Height=$ph";
$str .= "&ResidentialInd=0";
$str .= "&PackagingType=00";
Step 2 build the Post Statement,
$str2 = "POST /using/services/rave/qcost_dss.cgi HTTP/1.0\r\n";
$str2 .= "Content-type: application/x-www-form-urlencoded\r\n";
$str2 .= "Content-length: ".length($str)."\r\n\r\n".$str;
Step 3, call the page.
@r=&get_page("qcc2000.ups.com",$str2,80);
--------------------------------------------------------------------
Also, if you need it (Works with activestate perl on 95/NT):
sub get_page {
local ($n,@values);
($n,@values) = @_;
local (@result);
local ($them,$pagina,$port);
($them,$pagina,$port)=@_;
$them = 'localhost' unless $them;
$pagina = '/' unless $pagina;
$port = 23 unless $port;
$AF_INET = 2; #<<<< I think you change one of these
variables for Unix
$SOCK_STREAM = 1;
$SIG{'INT'} = 'dokill';
sub dokill {
kill 9,$child if $child;
}
$sockaddr = 'S n a4 x8';
($name,$aliases,$proto) = getprotobyname('tcp');
($name,$aliases,$port) = getservbyname($port,'tcp') unless $port =~
/^\d+$/;;
($name,$aliases,$type,$len,$thisaddr) = gethostbyname($hostname);
($name,$aliases,$type,$len,$thataddr) = gethostbyname($them);
$this = pack($sockaddr, $AF_INET, 0, $thisaddr);
$that = pack($sockaddr, $AF_INET, $port, $thataddr);
if (socket(S, $AF_INET, $SOCK_STREAM, $proto))
{
#print STDERR "socket ok\n";
}
else {
die $!;
}
if (bind(S, $this)) {
#print STDERR "bind ok\n";
}
else {
die $!;
}
if (connect(S,$that)) {
#print STDERR "connect ok\n";
}
else {
die $!;
}
select(S); $| = 1; select(STDOUT);
# print S "GET $pagina\n"; # vergeet niet die \n !!!!
print S @values; # vergeet niet die \n !!!!
@result[0]="";
while( <S> ) {
@result[0]=@result[0]."\n"."$_";
}
@result[0] .= "\n";
return @result;
} # sub get_page
---------------------------------------------------------------
gcf
In article <8er0be$366$1@news.smartworld.net>,
"Todd W" <trw@freewwweb.com> wrote:
> ogmandrake@my-deja.com wrote in message
<8en2h8$eu0$1@nnrp1.deja.com>...
> >I have been contemplating this and it seems to me that it may be
> >possible to send the data using hidden fields and a redirection. You
> >could include a piece of javascript into your code to send it
> >automatically onLoad kinda thing.
> >
> The best you can do using redirection is simulating a GET request...
> using the CGI module ....
>
> print
>
redirect("index.cgi?day=$day&month=$month&year=$year&indmonth=false&step
=ste
> p2");
>
> I had to reply because I just got done doing this.... first at
deja.com
> search for SIMULATE POST REQUEST. You get answers immediately. Next,
get the
> perl cookbook from the bookstore (or library)...page 710 ...
Automating form
> submission....
>
> #!C:\perl\bin\perl.exe -w
> use CGI qw/:standard/;
> use HTTP::Request::Common qw(POST);
> use LWP::UserAgent;
> <code snipped>
> $ua = LWP::UserAgent->new();
> my $req = POST 'http://foo.bar.com/cgi-bin/foo.cgi',[someparam =>
> "$param{someparam}", another_param=> "$param{another_param];
> $content = $ua->request($req)->as_string;
> quotemeta($content);
> $content =~ s/.*?\n\n//s;
> print "Content-type: text/html\n\n$content";
>
> I also posted because I had a question about the headers from the
output of
> the cgi program I POSTed to and why apache gives me a "malformed
headers"
> error if I dont delete them but I'll post that question in the proper
ng.
>
>
--
--
gcf
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 11 May 2000 09:24:33 GMT
From: Jarl Wijman <jwijman@interplein.nl>
Subject: Imprecision in perl ?
Message-Id: <391A7D11.3F80D84F@interplein.nl>
How precise is perl ?
i experience something weird while comparing two floating
point numbers. printing them showed two exact same numbers,
comparison didnt work out tho
example code can be found here:
www.chello.nl/~j.wijman/test.html
i tried these numbers:
7.21 -> 7.931
5.82 -> 6.402
8.57 -> 9.427
the first one goes wrong, the other doesnt
anyone ?
Cheers,
Jarl
------------------------------
Date: Mon, 15 May 2000 14:29:37 GMT
From: Andreas Kahari <andkaha@my-deja.com>
Subject: Re: Imprecision in perl ?
Message-Id: <8fp1jt$89r$1@nnrp1.deja.com>
In article <391A7D11.3F80D84F@interplein.nl>,
jwijman@interplein.nl wrote:
> How precise is perl ?
>
> i experience something weird while comparing two floating
> point numbers. printing them showed two exact same numbers,
> comparison didnt work out tho
>
> example code can be found here:
>
> www.chello.nl/~j.wijman/test.html
>
> i tried these numbers:
> 7.21 -> 7.931
> 5.82 -> 6.402
> 8.57 -> 9.427
>
> the first one goes wrong, the other doesnt
> anyone ?
>
> Cheers,
>
> Jarl
>
>
You will always have problems comparing computed floating point numbers
for equality. The only kind of numbers that can safetly be compared for
equality are integers, but as soon as you multiply with a float or
divide by whatever value you can no longer test for equality.
Printing floating point numbers will most of the time involve rounding.
/A
--
# Andreas Kähäri, <URL:http://hello.to/andkaha/>.
# All junk email is reported to the appropriate authorities.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 15 May 2000 08:20:01 -0500
From: "Paul R. Andersen" <andersen+@rchland.ibm.com>
Subject: Re: Looking to purchase an FTP script ...
Message-Id: <391FF981.C55C1EAB@rchland.ibm.com>
jhalbrook@my-deja.com wrote:
>
> I need a script that will let me specify the IP address,
> userid, and password so I can FTP files from one server
> to another.
>
> Preferably a script that will not require installing any
> Perl modules.
>
> Please let me know if you can help me out.
>
A bit too generic a description. It sounds like a pretty small thing,
less than 200 LOC. BUT... What platform, do you already have Net::FTP
installed (if not, this is a silly request)? Are you expecting to
specify the file to send, or are you looking for a directory to be sent,
or are you hoping for some magic to occur? Actually, this sounds like a
reasonable sized learning project, why not write it yourself as a way to
learn Perl?
--
Paul Andersen
-- I can please only ONE person per day.
-- Today is NOT your day.
-- Tomorrow isn't looking good either.
------------------------------
Date: Mon, 15 May 2000 13:20:09 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <shvuc9sqrj0153@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 08 May 2000 14:31:01 GMT and ending at
15 May 2000 13:59:16 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) 1999 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: 240 (46.4% of all posters)
Articles: 436 (23.9% of all articles)
Volume generated: 716.9 kb (22.1% of total volume)
- headers: 331.3 kb (6,820 lines)
- bodies: 381.4 kb (12,785 lines)
- original: 258.7 kb (9,108 lines)
- signatures: 3.8 kb (104 lines)
Original Content Rating: 0.678
Averages
========
Posts per poster: 1.8
median: 1.0 post
mode: 1 post - 167 posters
s: 3.7 posts
Message size: 1683.7 bytes
- header: 778.0 bytes (15.6 lines)
- body: 895.8 bytes (29.3 lines)
- original: 607.5 bytes (20.9 lines)
- signature: 8.9 bytes (0.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
55 86.6 ( 37.6/ 49.0/ 19.1) abigail@arena-i.com
11 16.2 ( 9.3/ 6.9/ 2.7) "Luc-Etienne.Brachotte" <Luc-Etienne.Brachotte@wanadoo.fr>
8 14.3 ( 6.3/ 8.0/ 6.4) joydip_chaklader@my-deja.com
7 12.9 ( 6.2/ 6.6/ 2.6) Mark Holt <madmardy@madmardy.com>
6 13.5 ( 4.7/ 8.8/ 7.3) Kerry Shetline <kerry@shetline.com>
6 11.0 ( 5.5/ 4.9/ 3.0) Ilmari Karonen <usenet11086@itz.pp.sci.fi>
6 19.3 ( 4.7/ 14.6/ 8.6) mcnuttj@missouri.edu
6 8.6 ( 4.6/ 4.0/ 3.5) bjanko <waldo700NOwaSPAM@aol.com.invalid>
5 9.1 ( 4.5/ 4.6/ 2.2) "Eric van Huijgevoort" <huijgbv@casema.net>
4 25.9 ( 2.9/ 23.0/ 15.6) tamiraw@my-deja.com
These posters accounted for 6.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
86.6 ( 37.6/ 49.0/ 19.1) 55 abigail@arena-i.com
25.9 ( 2.9/ 23.0/ 15.6) 4 tamiraw@my-deja.com
19.3 ( 4.7/ 14.6/ 8.6) 6 mcnuttj@missouri.edu
16.2 ( 9.3/ 6.9/ 2.7) 11 "Luc-Etienne.Brachotte" <Luc-Etienne.Brachotte@wanadoo.fr>
14.3 ( 6.3/ 8.0/ 6.4) 8 joydip_chaklader@my-deja.com
13.5 ( 4.7/ 8.8/ 7.3) 6 Kerry Shetline <kerry@shetline.com>
13.3 ( 3.5/ 9.8/ 6.2) 4 "velocity" <velocity@youreallythinkitsme.com>
12.9 ( 6.2/ 6.6/ 2.6) 7 Mark Holt <madmardy@madmardy.com>
11.0 ( 5.5/ 4.9/ 3.0) 6 Ilmari Karonen <usenet11086@itz.pp.sci.fi>
9.7 ( 3.4/ 6.3/ 4.0) 4 "Susan Entwisle" <sentwisle@ozemail.com.au>
These posters accounted for 6.9% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.3 / 1.3) 3 nfin8axs@hotmail.com
1.000 ( 2.5 / 2.5) 3 Murvin Ming-Wai Lai <mmlai@sfu.ca>
0.959 ( 2.2 / 2.3) 3 siust@my-deja.com
0.950 ( 1.6 / 1.7) 4 "Jimmy E." <trexxa@gireve.com>
0.934 ( 2.6 / 2.8) 4 webmaster@ostas.lu.se
0.929 ( 3.6 / 3.9) 3 garrem@my-deja.com
0.883 ( 3.5 / 4.0) 6 bjanko <waldo700NOwaSPAM@aol.com.invalid>
0.839 ( 7.3 / 8.8) 6 Kerry Shetline <kerry@shetline.com>
0.803 ( 6.4 / 8.0) 8 joydip_chaklader@my-deja.com
0.771 ( 2.1 / 2.7) 3 ocromm@my-deja.com
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.550 ( 0.6 / 1.1) 3 "Alex Moltimer" <moltimer@yahoo.com>
0.535 ( 1.0 / 1.9) 3 Hamza Sadiq <Hamza.Sadiq@bridge.bellsouth.com>
0.510 ( 1.8 / 3.5) 3 "Damon Jebb" <damon_jebb@nai.com>
0.470 ( 2.2 / 4.6) 5 "Eric van Huijgevoort" <huijgbv@casema.net>
0.448 ( 2.3 / 5.2) 3 Jesper Birkholm Marcher Hansen <crips@control.auc.dk>
0.412 ( 1.0 / 2.5) 4 Abigail <abigail@ucan.foad.org>
0.395 ( 2.7 / 6.9) 11 "Luc-Etienne.Brachotte" <Luc-Etienne.Brachotte@wanadoo.fr>
0.390 ( 2.6 / 6.6) 7 Mark Holt <madmardy@madmardy.com>
0.390 ( 19.1 / 49.0) 55 abigail@arena-i.com
0.272 ( 0.7 / 2.7) 3 Jeff Beard <jeff.beard@xor.com>
31 posters (12%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
41 comp.lang.perl
38 alt.perl
26 comp.lang.perl.modules
18 tw.bbs.comp.lang.perl
8 comp.infosystems.www.authoring.html
8 comp.lang.perl.moderated
8 comp.infosystems.www.servers.unix
7 alt.html
7 alt.html.writers
5 comp.lang.perl.tk
Top 10 Crossposters
===================
Articles Address
-------- -------
7 abigail@arena-i.com
7 Mark Holt <madmardy@madmardy.com>
6 "AztecOne / Chris" <pagesusa@hotmail.com>
4 John Purnell <InBasket@splendent.com>
4 monroy@flashcom.net
3 webmaster@ostas.lu.se
3 Isofarro <micd@isofarro.freeservewithnochips.co.uk>
3 "Jimmy E." <trexxa@gireve.com>
3 "Julian L. Cardarelli" <jc@juliancardarelli.com>
3 Richard Tietjen <rtietjen@connix.com>
------------------------------
Date: Mon, 15 May 2000 13:42:41 +0200
From: Matteo Palmieri <i094034@hotmail.com>
Subject: perl on OS390
Message-Id: <391FE2B1.38B6B2FC@hotmail.com>
Does anybody know what is the last supported version of perl for OS390
platform ?
------------------------------
Date: Mon, 15 May 2000 14:34:45 GMT
From: old_flyer@my-deja.com
Subject: Sending mail from Perl on NT
Message-Id: <8fp1u4$8rj$1@nnrp1.deja.com>
Ok. I am familiar with calling system commands in UNIX, but I also have
Active Perl on my NT machine. I want to use MS Outlook to mail out from
a list of e-mail addresses. I have done this easily in Perl, but
anyone have any experience calling Outlook from the command line? Can
it be done, or do I need to get another mail client?
Thanks,
Dwight Taylor
email: ldtaylor@swbell.net
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 15 May 2000 13:03:54 GMT
From: lurking@yifan.net
Subject: Re: Silly newbie question ?
Message-Id: <8fosjq$qk4$1@rks1.urz.tu-dresden.de>
Thanks to all!
That does it.
Andreas.
------------------------------
Date: Mon, 15 May 2000 13:20:03 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <shvuc3n6rj0138@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 08 May 2000 14:31:01 GMT and ending at
15 May 2000 13:59:16 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) 2000 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
Totals
======
Posters: 517
Articles: 1827 (790 with cutlined signatures)
Threads: 497
Volume generated: 3237.1 kb
- headers: 1445.8 kb (28,808 lines)
- bodies: 1691.7 kb (56,653 lines)
- original: 1096.5 kb (39,889 lines)
- signatures: 97.8 kb (2,541 lines)
Original Content Rating: 0.648
Averages
========
Posts per poster: 3.5
median: 1 post
mode: 1 post - 303 posters
s: 9.3 posts
Posts per thread: 3.7
median: 3 posts
mode: 2 posts - 122 threads
s: 4.2 posts
Message size: 1814.3 bytes
- header: 810.3 bytes (15.8 lines)
- body: 948.2 bytes (31.0 lines)
- original: 614.5 bytes (21.8 lines)
- signature: 54.8 bytes (1.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
89 158.9 ( 57.6/ 91.2/ 51.3) Larry Rosler <lr@hpl.hp.com>
77 131.5 ( 75.8/ 46.6/ 31.3) Tom Phoenix <rootbeer@redcat.com>
74 199.7 ( 57.4/121.9/119.5) The WebDragon <nospam@devnull.com>
67 112.6 ( 51.2/ 59.8/ 36.1) Jeff Zucker <jeff@vpservices.com>
66 97.9 ( 54.6/ 42.7/ 26.8) Bart Lateur <bart.lateur@skynet.be>
56 93.3 ( 47.8/ 44.7/ 18.4) Jonathan Stowe <gellyfish@gellyfish.com>
55 86.6 ( 37.6/ 49.0/ 19.1) abigail@arena-i.com
51 101.2 ( 30.9/ 63.2/ 38.3) Tad McClellan <tadmc@metronet.com>
32 54.2 ( 24.5/ 27.1/ 15.7) nobull@mail.com
32 50.5 ( 24.1/ 26.4/ 12.4) Tony Curtis <tony_curtis32@yahoo.com>
These posters accounted for 32.8% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
199.7 ( 57.4/121.9/119.5) 74 The WebDragon <nospam@devnull.com>
158.9 ( 57.6/ 91.2/ 51.3) 89 Larry Rosler <lr@hpl.hp.com>
131.5 ( 75.8/ 46.6/ 31.3) 77 Tom Phoenix <rootbeer@redcat.com>
112.6 ( 51.2/ 59.8/ 36.1) 67 Jeff Zucker <jeff@vpservices.com>
101.2 ( 30.9/ 63.2/ 38.3) 51 Tad McClellan <tadmc@metronet.com>
97.9 ( 54.6/ 42.7/ 26.8) 66 Bart Lateur <bart.lateur@skynet.be>
93.3 ( 47.8/ 44.7/ 18.4) 56 Jonathan Stowe <gellyfish@gellyfish.com>
86.6 ( 37.6/ 49.0/ 19.1) 55 abigail@arena-i.com
67.7 ( 25.1/ 34.3/ 16.9) 28 Uri Guttman <uri@sysarch.com>
54.2 ( 24.5/ 27.1/ 15.7) 32 nobull@mail.com
These posters accounted for 34.1% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 2.5 / 2.5) 6 "spurcell" <skpurcell@hotmail.com>
0.980 (119.5 /121.9) 74 The WebDragon <nospam@devnull.com>
0.977 ( 4.2 / 4.3) 20 "Andy Chantrill" <andy@u2me3.com>
0.900 ( 4.0 / 4.4) 5 Sydney Lu <slu_2@altavista.net>
0.893 ( 4.2 / 4.7) 5 Xah <xah@xahlee.org>
0.883 ( 3.5 / 4.0) 6 bjanko <waldo700NOwaSPAM@aol.com.invalid>
0.853 ( 6.0 / 7.0) 5 Mark-Jason Dominus <mjd@plover.com>
0.839 ( 7.3 / 8.8) 6 Kerry Shetline <kerry@shetline.com>
0.815 ( 20.0 / 24.5) 10 "Godzilla!" <godzilla@stomp.stomp.tokyo>
0.803 ( 6.4 / 8.0) 8 joydip_chaklader@my-deja.com
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.443 ( 8.5 / 19.1) 15 Brad Baxter <bmb@ginger.libs.uga.edu>
0.430 ( 0.8 / 1.8) 5 Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
0.419 ( 7.6 / 18.1) 20 phill@modulus.com.au
0.412 ( 18.4 / 44.7) 56 Jonathan Stowe <gellyfish@gellyfish.com>
0.411 ( 3.1 / 7.6) 7 Bob Walton <bwalton@rochester.rr.com>
0.395 ( 2.7 / 6.9) 11 "Luc-Etienne.Brachotte" <Luc-Etienne.Brachotte@wanadoo.fr>
0.390 ( 2.6 / 6.6) 7 Mark Holt <madmardy@madmardy.com>
0.390 ( 19.1 / 49.0) 55 abigail@arena-i.com
0.322 ( 1.6 / 4.9) 5 Dave Cross <dave@dave.org.uk>
0.288 ( 2.2 / 7.6) 7 Rafael Garcia-Suarez <garcia_suarez@hotmail.com>
65 posters (12%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
30 Regular expression ?
30 after the whatever.cgi? question?
21 Strange Characters from Perl Script
19 Printing Arrays
19 Perl code to check for broken links
18 BEGIN and use
18 Accidental Creation of Static Variable
16 Help Needed - Perl Matching Operator
15 Is Perl fast enough?
14 shooting yourself in the foot ...
These threads accounted for 10.9% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
57.1 ( 23.5/ 31.7/ 18.2) 30 Regular expression ?
49.2 ( 16.7/ 31.5/ 22.4) 21 Strange Characters from Perl Script
47.6 ( 23.2/ 23.2/ 14.9) 30 after the whatever.cgi? question?
46.9 ( 16.6/ 29.6/ 13.6) 18 Accidental Creation of Static Variable
35.7 ( 17.6/ 16.6/ 10.5) 19 Perl code to check for broken links
34.2 ( 14.2/ 19.6/ 10.5) 16 Help Needed - Perl Matching Operator
33.9 ( 16.8/ 15.0/ 9.1) 19 Printing Arrays
31.4 ( 11.0/ 17.8/ 13.6) 12 Proper use of resources (was Re: more regexp madness extracting data from files.)
30.6 ( 11.6/ 18.0/ 9.8) 15 Is Perl fast enough?
30.4 ( 14.6/ 14.9/ 7.5) 18 BEGIN and use
These threads accounted for 12.3% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.964 ( 13.4/ 13.9) 5 MUCH better DATA file formatting :) (THANK YOU)
0.893 ( 3.6/ 4.1) 7 The way to load a script on certain time by itself ?
0.873 ( 3.9/ 4.4) 6 What is $| ?
0.856 ( 2.7/ 3.2) 5 HTTP::Request=HASH(0x7bb141c) ?
0.853 ( 18.1/ 21.2) 8 baby steps with complex hashes of hashes of hashes of arrays
0.845 ( 1.5/ 1.8) 5 a stupid question.
0.841 ( 4.1/ 4.9) 6 CGI problems (but it IS a perl thing)
0.841 ( 2.3/ 2.8) 5 making a package (NOT a module)
0.836 ( 2.0/ 2.4) 6 counter
0.833 ( 5.6/ 6.8) 5 directory okay
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.439 ( 4.8 / 11.0) 11 Precedence question
0.433 ( 6.1 / 14.0) 7 Help using split and arrays
0.416 ( 1.4 / 3.3) 5 Flame my code
0.409 ( 2.5 / 6.1) 6 Still a double insert with DBI
0.406 ( 7.1 / 17.5) 7 Split and "null delimiter" (was: BEGIN and use)
0.402 ( 1.3 / 3.3) 6 Returning an IP Address
0.396 ( 6.6 / 16.6) 8 Is this new language possible in perl?
0.377 ( 1.3 / 3.6) 5 Net::Telnet question
0.350 ( 1.8 / 5.2) 5 Formulaire et fichier attache
0.237 ( 0.9 / 3.8) 5 How many times is it found?
131 threads (26%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
41 comp.lang.perl
38 alt.perl
26 comp.lang.perl.modules
18 tw.bbs.comp.lang.perl
8 comp.infosystems.www.authoring.html
8 comp.lang.perl.moderated
8 comp.infosystems.www.servers.unix
7 alt.html
7 alt.html.writers
5 comp.lang.perl.tk
Top 10 Crossposters
===================
Articles Address
-------- -------
7 abigail@arena-i.com
7 "Kelvin" <k2_1999@hotmail.com>
7 phill@modulus.com.au
7 Mark Holt <madmardy@madmardy.com>
6 "AztecOne / Chris" <pagesusa@hotmail.com>
5 Ilya Zakharevich <ilya@math.ohio-state.edu>
4 John Purnell <InBasket@splendent.com>
4 Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
4 monroy@flashcom.net
4 Shell Hung <shell@hkscript.com>
------------------------------
Date: Mon, 15 May 2000 10:34:03 -0400
From: Bill Dowhaniuk <billd@julian.uwo.ca>
Subject: VBScript and Perl in same asp page.
Message-Id: <39200ADB.915EEF64@julian.uwo.ca>
This is a multi-part message in MIME format.
--------------6EB53C9C14B139BBF91E568C
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hello;
I have what is probably a simple question for some one with more
experience than me.
Background:
I am using both Perl Script and VB Script in the same ASP page. I have
one input text box who's value comes from the VB Script portion, and
another input text box whose portion comes from the Perl Script. I used
VBScript as the page default and it was easy to use <INPUT type=TEXT
id=VBvar name=VBvar value="<%= VBvar%>">
Question:
How do I do the same thing with the Perl script in the input box?
Any hints, tips, or suggestions would be appreciated.
Cheers
Bill D.
--------------6EB53C9C14B139BBF91E568C
Content-Type: text/x-vcard; charset=us-ascii;
name="billd.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Bill Dowhaniuk
Content-Disposition: attachment;
filename="billd.vcf"
begin:vcard
n:Dowhaniuk;Bill
tel;fax:519-661-3231
tel;work:519-661-2111 x85063
x-mozilla-html:FALSE
org:University of Western Ontario;Social Science Computing Laboratory
version:2.1
email;internet:billd@julian.uwo.ca
title:Programmer Analyst
adr;quoted-printable:;;Social Science Centre=0D=0ARoom 1016;London;Ontario;N6A 5C2;Canada
fn:Bill Dowhaniuk PMP
end:vcard
--------------6EB53C9C14B139BBF91E568C--
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 3050
**************************************
