[16007] in Perl-Users-Digest
Perl-Users Digest, Issue: 3419 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 19 11:09:38 2000
Date: Mon, 19 Jun 2000 08:05:15 -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: <961427114-v9-i3419@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 19 Jun 2000 Volume: 9 Number: 3419
Today's topics:
arp cache <s_shanmuganathan@hotmail.com>
Re: bug with arrays? (Abigail)
Re: capturing warnings from lpstat (Tad McClellan)
Re: Current time minus file's datestamp time <sb@muccpu1.muc.sdm.de>
Emacs And Perl <skpurcell@hotmail.com>
GD-1.27 install problems (Jason Goodrow)
IDE for perl? <strny_mp@euronet.nl>
Re: IDE for perl? <brent.schenk@home.com>
Re: IDE for perl? <dave@dave.org.uk>
Java Embedded In Perl <brent.schenk@home.com>
Re: Java Embedded In Perl <danielxx@bart.nl>
Re: Messagebox in Win32 <bill.kemp@wire2.com>
Re: Messagebox in Win32 <Jan.vanMansum@s1.com>
Re: Messagebox in Win32 (jason)
Re: Messagebox in Win32 <Jan.vanMansum@s1.com>
Re: Monitor a process like Unix top But should be Perl/ (Gwyn Judd)
Re: Multidimensional array. (Marcel Grunauer)
Re: Multidimensional array. (Tad McClellan)
Re: Name/Value pair for a hyperlink? <flavell@mail.cern.ch>
Re: Name/Value pair for a hyperlink? <pdcawley@bofh.org.uk>
Re: Need Help ! Please Read ! <gellyfish@gellyfish.com>
Re: Net::Ping, or similar (jason)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
NT or Unix at runtime <lwaibel@cwia.com>
Outputting a page bit by bit... <sbanks99NOsbSPAM@yahoo.com.invalid>
Re: Perl :) <flavell@mail.cern.ch>
Re: perl vs python <care227@attglobal.net>
Re: perl vs python (Tad McClellan)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 19 Jun 2000 10:33:42 -0400
From: "S.Shanmuganathan" <s_shanmuganathan@hotmail.com>
Subject: arp cache
Message-Id: <394e2cef.0@news.syr.edu>
HI ,
I want to write a utility to clear the arp cache in Perl. Is there any
SNMP command for this??? or Is there any MIB variables which can be set ???
Thanks,
Shanmuga
------------------------------
Date: 19 Jun 2000 09:59:33 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: bug with arrays?
Message-Id: <slrn8ksasb.3a7.abigail@alexandra.delanet.com>
Jonathan Stowe (gellyfish@gellyfish.com) wrote on MMCDLXXXIV September
MCMXCIII in <URL:news:8ikicn$l3c$1@orpheus.gellyfish.com>:
?? On 16 Jun 2000 20:17:53 GMT Ilmari Karonen wrote:
?? > In article <MPG.13b40b59c1619a5798ab8d@nntp.hpl.hp.com>, Larry Rosler wrote:
?? >>In article <8idn9k$38n$1@engnews3.Eng.Sun.COM> on 16 Jun 2000 17:14:28
?? >>GMT, Joe Petolino <petolino@Eng.Sun.COM> says...
?? >>>
?? >>> @month_name{1..12} = qw(jan feb mar apr may jun jul aug sep oct nov dec);
?? >>
?? > [sample code referencing $month_name{'06'} snipped]
?? >>
?? >>Oops. Better add 0 to that substr.
?? >
?? > ..at which point you might as well subtract 1 from it instead. Catch-22.
?? >
?? > In my opinion the fundamental misdesign causing all these problems
?? > is thousands of years old. If our ancestors had been less bound by
?? > tradition, or their ancestors more logically consistent, we'd all be
?? > counting ordinals from zero and there'd be no problem..
?? >
??
?? Perhaps but zeroeth is just so difficult to pronounce ...
Not to mention that people started counting millenia before the
introduction of 0.
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
------------------------------
Date: Mon, 19 Jun 2000 08:46:25 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: capturing warnings from lpstat
Message-Id: <slrn8ks5h1.df5.tadmc@magna.metronet.com>
On Mon, 19 Jun 2000 10:33:47 +0100, mike solomon <mike.solomon@eps.ltd.uk> wrote:
>Operating System AIX 4.3.2
>
>I am in the process of creating a script to check if any printers are down
>then if so enable them
>
>I have started with the following script
>
>#! /usr/local/bin/perl
#! /usr/local/bin/perl -w
use strict;
>#netprint.pl
>#Mon 19 Jun 10:01:33 2000 itdmjs
>#enable printers that are down
>
>open(LSALLQ, 'lsallq|') or die "cannot pipe from lsallq";
open(LSALLQ, 'lsallq|') or die "cannot pipe from lsallq $!";
>I want to capture these warnings and use them in the script
^^^^^^^
perldoc -q capture
"How can I capture STDERR from an external command?"
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 19 Jun 2000 10:45:12 GMT
From: Steffen Beyer <sb@muccpu1.muc.sdm.de>
Subject: Re: Current time minus file's datestamp time
Message-Id: <8iktjo$ls7$1@solti3.sdm.de>
In comp.lang.perl.misc Julian Cook/Sherab Gyatso <president@webticker.com> wrote:
> I have posted a few questions here and everyone is very helpful. My
> quandry
> right now is checking a file's date and then update it if it's older
> than an hour.
> We keep a text file that is updated once a day manually but we would
> like to make
> this automatic by a time check routine.
use Date::Calc qw(:all);
unless (opendir(DIR, $dir))
{
die "Can't read directory '$dir': $!\n";
}
FILE:
while (defined ($file = readdir(DIR)))
{
next FILE if ($file =~ /^\.\.?$/);
next FILE if (-d $file);
unless (defined ($time = (stat($file))[9]))
{
warn "Can't stat file '$file': $!\n";
next FILE;
}
@date = (localtime($time))[5,4,3,2,1,0];
$date[0] += 1900;
$date[1]++;
@diff = Delta_DHMS(@date,Today_and_Now());
$diff = ((((($diff[0] * 24) + $diff[1]) * 60) + $diff[2]) * 60) + $diff[2];
next FILE if ($diff < 3600) # 3600 secs = 1 hour
#
# do something with $file
#
}
unless (closedir(DIR))
{
warn "Can't close directory '$dir': $!\n";
}
Good luck,
--
Steffen Beyer <sb@engelschall.com>
http://www.engelschall.com/u/sb/whoami/ (Who am I)
http://www.engelschall.com/u/sb/gallery/ (Fotos Brasil, USA, ...)
http://www.engelschall.com/u/sb/download/ (Free Perl and C Software)
------------------------------
Date: Mon, 19 Jun 2000 08:42:03 -0500
From: "spurcell" <skpurcell@hotmail.com>
Subject: Emacs And Perl
Message-Id: <394e2369$0$3826@wodc7nh1.news.uu.net>
Hello,
I would like to know if anyone is using Emacs, and if they have the product
configured to debug Perl?
If anyone has, I would be interested in going off-line, and working on this.
Thanks
Scott
------------------------------
Date: 19 Jun 2000 07:29:52 -0400
From: goodrow@panix.com (Jason Goodrow)
Subject: GD-1.27 install problems
Message-Id: <8il07g$r3i$1@panix6.panix.com>
Keywords: GD perl install
I'm trying to intall GD-1.27 in my shell. On make I get a lot of
.....(errors edited)
GD.xs:453: for each function it appears in.)
GD.xs:453: warning: assignment makes pointer from integer without a cast
GD.xs: In function `XS_GD__Image_stringTTF':
GD.xs:1062: warning: assignment makes pointer from integer without a cast
*** Error code 1
...(more of these)
all basically
assignment makes pointer from integer without a cast
Any help?
Thanks in advance
goodrow@panix.com
------------------------------
Date: Mon, 19 Jun 2000 16:08:43 +0200
From: Alvin Stroyny <strny_mp@euronet.nl>
Subject: IDE for perl?
Message-Id: <394E296B.F66180A2@euronet.nl>
Hi
Can anyone recommend me a good integrated development environment (i.e.
editor+debugger)
for perl? I am interested in both commercial and shereware products.
Thanks
michael
------------------------------
Date: Mon, 19 Jun 2000 09:25:04 -0500
From: "Brent Schenk" <brent.schenk@home.com>
Subject: Re: IDE for perl?
Message-Id: <394e2cb7.0@news>
Try NoteTab I use it. You can pick it up at Tucows! It's a Great Program.
If you are using a Mac then try using BBEdit. That's a great program too!
Alvin Stroyny <strny_mp@euronet.nl> wrote in message
news:394E296B.F66180A2@euronet.nl...
> Hi
>
> Can anyone recommend me a good integrated development environment (i.e.
> editor+debugger)
> for perl? I am interested in both commercial and shereware products.
>
> Thanks
>
> michael
>
------------------------------
Date: Mon, 19 Jun 2000 15:40:43 +0100
From: Dave Cross <dave@dave.org.uk>
Subject: Re: IDE for perl?
Message-Id: <n0csks86ggik2f20pjf831vp6ro38ju5ep@4ax.com>
On Mon, 19 Jun 2000 16:08:43 +0200, Alvin Stroyny
<strny_mp@euronet.nl> wrote:
>Can anyone recommend me a good integrated development environment (i.e.
>editor+debugger)for perl? I am interested in both commercial and shereware products.
It's a shame that you're only interested in commercial or shareware
products, as that stops me from recommending Emacs (or Xemacs) which,
IMO, is the best editor/debugger for Perl (or most other languages).
Unfortunately for you, it's neither a commercial product nor
shareware, but open source (or free) software.
If you get over your requirement to pay for your software then I would
suggest you check it out at <http://www.gnu.org> or
<http://www.xemacs.org>.
hth,
Dave...
--
<http://www.dave.org.uk> SMS: sms@dave.org.uk
yapc::Europe - London, 22 - 24 Sep <http://www.yapc.org/Europe/>
"There ain't half been some clever bastards" - Ian Dury [RIP]
------------------------------
Date: Mon, 19 Jun 2000 08:06:03 -0500
From: "Brent Schenk" <brent.schenk@home.com>
Subject: Java Embedded In Perl
Message-Id: <394e1a30.0@news>
I have written a perl script that is for a webpage. Anways, this page
contains some calls to java applets. The html page will print out but the
java applets will say java applet not found and it is right where it is
looking. Could someone tell me what is going on? Here is a sample of the
code:
print "Content-type: text/html\n\n";
print qq|
<html>
<head>
<title>This is where the content goes</title>
<style fprolloverstyle>A:hover {color: #FFFF00; font-weight: bold}
</style>
</head>
<body stylesrc="../index2.html" background="../../../bg.jpg">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="15%" valign="top"><table border="0" width="100%"
cellspacing="0" cellpadding="0">
<tr>
<td width="100%"><b><font color="#FFFFFF">Job
Opportunities</font></b></td>
</tr>
<tr>
<td width="100%">
<p>
<applet code="fphover.class" codebase="./" width="143" height="20">
<param name="hovercolor" value="#FFFF00">
<param name="font" value="Helvetica">
<param name="fontstyle" value="bold">
<param name="fontsize" value="14">
<param name="url" valuetype="ref"
value="http://www.contactpdi.com/job_opportunities/descriptions/index.html">
<param name="text" value="Job Descriptions">
<param name="color" value="#000000">
<param name="textcolor" value="#FFFFFF">
<param name="effect" value="glow">
</applet>
That is for one call to one java applet. Thanks alot,
Brent "ProtoFrag" Schenk
------------------------------
Date: Mon, 19 Jun 2000 15:01:20 GMT
From: "Daniel van den Oord" <danielxx@bart.nl>
Subject: Re: Java Embedded In Perl
Message-Id: <4Bq35.2498$%h3.39114@Typhoon.bART.nl>
Try to put a full path to the class files in the codebase="./"
"Brent Schenk" <brent.schenk@home.com> schreef in bericht
news:394e1a30.0@news...
> I have written a perl script that is for a webpage. Anways, this page
> contains some calls to java applets. The html page will print out but the
> java applets will say java applet not found and it is right where it is
> looking. Could someone tell me what is going on? Here is a sample of the
> code:
>
> print "Content-type: text/html\n\n";
> print qq|
> <html>
>
> <head>
> <title>This is where the content goes</title>
> <style fprolloverstyle>A:hover {color: #FFFF00; font-weight: bold}
> </style>
> </head>
>
> <body stylesrc="../index2.html" background="../../../bg.jpg">
>
> <table border="0" width="100%" cellspacing="0" cellpadding="0">
> <tr>
> <td width="15%" valign="top"><table border="0" width="100%"
> cellspacing="0" cellpadding="0">
> <tr>
> <td width="100%"><b><font color="#FFFFFF">Job
> Opportunities</font></b></td>
> </tr>
> <tr>
> <td width="100%">
> <p>
> <applet code="fphover.class" codebase="./" width="143" height="20">
> <param name="hovercolor" value="#FFFF00">
> <param name="font" value="Helvetica">
> <param name="fontstyle" value="bold">
> <param name="fontsize" value="14">
> <param name="url" valuetype="ref"
>
value="http://www.contactpdi.com/job_opportunities/descriptions/index.html">
> <param name="text" value="Job Descriptions">
> <param name="color" value="#000000">
> <param name="textcolor" value="#FFFFFF">
> <param name="effect" value="glow">
> </applet>
>
> That is for one call to one java applet. Thanks alot,
> Brent "ProtoFrag" Schenk
>
>
------------------------------
Date: Mon, 19 Jun 2000 12:29:50 +0100
From: "W Kemp" <bill.kemp@wire2.com>
Subject: Re: Messagebox in Win32
Message-Id: <961414308.16180.0.nnrp-11.c3ad6973@news.demon.co.uk>
Jan van Mansum wrote in message <394DD056.EA148C0C@s1.com>...
>Hello all,
>
>I want to do something that must be simple. I want to display a
>messagebox in Win32 (with ActivePerl). How do you do that?
>
There is Win32 ::MsgBox, which seems easier and (so??) less powerful than
the other suggestion.
Win32 ::MsgBox("hello",$number);
Where $number= all sorts of integers to control what happens.
------------------------------
Date: Mon, 19 Jun 2000 14:23:13 +0200
From: Jan van Mansum <Jan.vanMansum@s1.com>
Subject: Re: Messagebox in Win32
Message-Id: <394E10B1.96C27454@s1.com>
Where do I get that module?
Joe Giuffrida wrote:
> You need the Win32-API module which allows you to call into NT DLLs. Sample
> code for a message box is as follows:
>
> use Win32::API;
>
> $flags = 0x1021; # Just the OK button
>
> $MessageBox = new Win32::API ( "user32", "MessageBox", [N, P, P, I], N );
>
> $status = $MessageBox->Call ( 0, "Your message", "Your title", $flags );
>
> Jan van Mansum <Jan.vanMansum@s1.com> wrote in message
> news:394DD056.EA148C0C@s1.com...
> > Hello all,
> >
> > I want to do something that must be simple. I want to display a
> > messagebox in Win32 (with ActivePerl). How do you do that?
> >
> > Thanks.
> >
> > Regards,
> >
> > Jan van Mansum.
> >
------------------------------
Date: Mon, 19 Jun 2000 14:07:21 GMT
From: elephant@squirrelgroup.com (jason)
Subject: Re: Messagebox in Win32
Message-Id: <MPG.13b8c65336cad01a98974a@news>
W Kemp writes ..
>Jan van Mansum wrote in message <394DD056.EA148C0C@s1.com>...
>>Hello all,
>>
>>I want to do something that must be simple. I want to display a
>>messagebox in Win32 (with ActivePerl). How do you do that?
>>
>There is Win32 ::MsgBox, which seems easier and (so??) less powerful than
>the other suggestion.
how is it less powerful
perldoc Win32
shows us the documentation...
Win32::MsgBox(MESSAGE [, FLAGS [, TITLE]])
[EXT] Create a dialogbox containing MESSAGE. FLAGS specifies
the required icon and buttons according to the following
table:
0 = OK
1 = OK and Cancel
2 = Abort, Retry, and Ignore
3 = Yes, No and Cancel
4 = Yes and No
5 = Retry and Cancel
MB_ICONSTOP "X" in a red circle
MB_ICONQUESTION question mark in a bubble
MB_ICONEXCLAMATION exclamation mark in a yellow triangle
MB_ICONINFORMATION "i" in a bubble
TITLE specifies an optional window title. The default is
"Perl".
The function returns the menu id of the selected push
button:
0 Error
1 OK
2 Cancel
3 Abort
4 Retry
5 Ignore
6 Yes
7 No
Jan .. it's included with ActivePerl
--
jason - elephant@squirrelgroup.com -
------------------------------
Date: Mon, 19 Jun 2000 16:32:25 +0200
From: Jan van Mansum <Jan.vanMansum@s1.com>
Subject: Re: Messagebox in Win32
Message-Id: <394E2EF8.94E44EBB@s1.com>
Thanks for all the replies. It took me a while to realize that these
modules come standard with ActivePerl. My problem is solved.
Regards,
Jan van Mansum.
Jan van Mansum wrote:
> Hello all,
>
> I want to do something that must be simple. I want to display a
> messagebox in Win32 (with ActivePerl). How do you do that?
>
> Thanks.
>
> Regards,
>
> Jan van Mansum.
------------------------------
Date: Mon, 19 Jun 2000 13:29:06 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Monitor a process like Unix top But should be Perl/tk How?
Message-Id: <slrn8ks811.77v.tjla@thislove.dyndns.org>
I was shocked! How could Charles W.W. <kingwang98@yahoo.com>
say such a terrible thing:
>I must have it in GUI perl/tk window or widget .
Well from the code you have shown us so far (hint hint), I suspect
my effort was somewhat better than yours :)
--
Gwyn Judd (tjla@guvfybir.qlaqaf.bet)
My return address is rot13'ed
Business will be either better or worse. --Calvin Coolidge
------------------------------
Date: 19 Jun 2000 10:29:41 GMT
From: marcel@codewerk.com (Marcel Grunauer)
Subject: Re: Multidimensional array.
Message-Id: <slrn8krtdo.1k8.marcel@gandalf.local>
On Mon, 19 Jun 2000 09:32:38 GMT, Michael Blomkvist <halvfem@hotmail.com> wrote:
>I have a twodimensional array, called data, and I want to print out the
>whole array at, for example, data[0], so if the array has n values it
>would be the same as $data[0][0] $data[0][1]...$data[0][n], so I tried
>just using this:
>
>print("@data[0]");
>
>Which gives me "ARRAY(0x805d4d8)". Why is that, and how should I do? If
>it would be onedimensional "print("@data");" would print out the whole
>array, so why doesn't this work?
@data[0] is an array slice, a one-element list containing $data[0].
You probably want @{$data[0]}, which is means you take the array reference
stored in $data[0] and dereference it.
Read the following for more information:
perldoc perllol
perldoc perldsc
--
Marcel
sub AUTOLOAD{($_=$AUTOLOAD)=~s;^.*::;;;y;_; ;;print} Just_Another_Perl_Hacker();
------------------------------
Date: Mon, 19 Jun 2000 08:50:19 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Multidimensional array.
Message-Id: <slrn8ks5ob.df5.tadmc@magna.metronet.com>
On Mon, 19 Jun 2000 09:45:18 GMT, Rafael Garcia-Suarez <garcia_suarez@hotmail.com> wrote:
>Michael Blomkvist wrote in comp.lang.perl.misc:
>>I have a twodimensional array, called data, and I want to print out the
>>whole array at, for example, data[0], so if the array has n values it
>>would be the same as $data[0][0] $data[0][1]...$data[0][n], so I tried
>>just using this:
>>
>>print("@data[0]");
>>
>>Which gives me "ARRAY(0x805d4d8)". Why is that, and how should I do?
>
>@data[0] is an array slice, and it's equivalent to $data[0].
^^^^^^^^^^^^^^^^^^^^^^
No!
An "array slice" is NOT equivalent to a scalar.
One character difference, wildly different results:
@data[0] = @data;
$data[0] = @data;
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 19 Jun 2000 11:54:28 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Name/Value pair for a hyperlink?
Message-Id: <Pine.GHP.4.21.0006191152040.5908-100000@hpplus03.cern.ch>
On 19 Jun 2000, Jonathan Stowe wrote:
> I dont know about Alan's neck of the woods but this has been known to
> happen. Its when people try to get their beer orders in by beaming them
> from their Palm Pilots you know you are in trouble .... ;-}
Last time, we tried to get my Psion 5 to talk to a Palm Pilot, but
they didn't seem to hit it off together. The Palm seemed to know that
someone was trying to talk to it, but got no further than that...
The man with the palm pilot had it beaming to his cellphone just the
business though.
------------------------------
Date: 19 Jun 2000 11:54:11 +0100
From: Piers Cawley <pdcawley@bofh.org.uk>
Subject: Re: Name/Value pair for a hyperlink?
Message-Id: <m1u2eqhrfw.fsf@rt158.private.realtime.co.uk>
"Alan J. Flavell" <flavell@mail.cern.ch> writes:
> On 19 Jun 2000, Jonathan Stowe wrote:
>
> > I dont know about Alan's neck of the woods but this has been known to
> > happen. Its when people try to get their beer orders in by beaming them
> > from their Palm Pilots you know you are in trouble .... ;-}
>
> Last time, we tried to get my Psion 5 to talk to a Palm Pilot, but
> they didn't seem to hit it off together. The Palm seemed to know that
> someone was trying to talk to it, but got no further than that...
I've managed to exchange contacts data with a Psion 5 over IR.
Apparently they both use vCards for beaming such info back and forth.
--
Piers
------------------------------
Date: Mon, 19 Jun 2000 11:47:49 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Need Help ! Please Read !
Message-Id: <FLn35.231$My4.30526@news.dircon.co.uk>
On Sun, 18 Jun 2000 20:30:12 -0700, psycho Wrote:
> ok, heres my probelm. im doing a dir listing thing for a friend.
> and on the script i've got the thing opening and reading the dir.
> and displaying whats in the dir correct. But have you seen what
> server defaut dir. listing look like? is there a way to get the
> size, last modified, and des if any from the server?
>
What was wrong with the answers you got when you posted this yesterday.
>
> Got questions? Get answers over the phone at Keen.com.
>
If you want a help desk perhaps you had better phone them then.
/J\
------------------------------
Date: Mon, 19 Jun 2000 13:59:30 GMT
From: elephant@squirrelgroup.com (jason)
Subject: Re: Net::Ping, or similar
Message-Id: <MPG.13b8c47620c4fca9989749@news>
Dougas Garstang writes ..
>Has anyone ever seen a ping module that can return the time taken for a ping
>response? The standard Net::Ping module doesn't seem to support this... only
>a "yes it was alive" or "no it wasn't" response.
can't you just time it yourself ? .. try something like Time::HiRes for
microsecond intervals
--
jason - elephant@squirrelgroup.com -
------------------------------
Date: Mon, 19 Jun 2000 13:36:48 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <sks8fgn7e7f32@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 12 Jun 2000 14:34:21 GMT and ending at
19 Jun 2000 14:06:03 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.
Totals
======
Posters: 246 (45.6% of all posters)
Articles: 465 (21.8% of all articles)
Volume generated: 828.8 kb (22.1% of total volume)
- headers: 371.7 kb (7,440 lines)
- bodies: 441.1 kb (14,083 lines)
- original: 325.1 kb (10,819 lines)
- signatures: 15.6 kb (337 lines)
Original Content Rating: 0.737
Averages
========
Posts per poster: 1.9
median: 1.0 post
mode: 1 post - 165 posters
s: 3.4 posts
Message size: 1825.0 bytes
- header: 818.5 bytes (16.0 lines)
- body: 971.3 bytes (30.3 lines)
- original: 715.9 bytes (23.3 lines)
- signature: 34.3 bytes (0.7 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
44 137.6 ( 47.2/ 90.4/ 61.6) Henry <henry@penninkilampi.net>
16 28.4 ( 9.5/ 18.9/ 15.4) David Bell <db7654321@aol.comspamsux>
15 19.2 ( 11.8/ 7.3/ 4.9) "Ferk Da Jerk" <shawnball@uswest.net>
9 13.8 ( 7.6/ 6.2/ 3.2) Johannes <gedichte@lycosmail.com>
9 17.8 ( 7.9/ 9.0/ 6.3) Ilmari Karonen <usenet11123@itz.pp.sci.fi>
8 13.9 ( 4.8/ 9.1/ 4.7) "Brent Schenk" <brent.schenk@home.com>
6 5.4 ( 3.5/ 2.0/ 1.3) "James" <fromnews@pagepool.co.uk>
5 10.6 ( 4.5/ 5.5/ 3.8) Ilmari Karonen <usenet11124@itz.pp.sci.fi>
5 5.6 ( 3.5/ 2.0/ 2.0) damonr <damonNOdaSPAM@unispace.com.invalid>
5 7.5 ( 4.2/ 3.3/ 2.5) Wolfgang Hielscher <W.Hielscher@mssys.com>
These posters accounted for 5.7% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
137.6 ( 47.2/ 90.4/ 61.6) 44 Henry <henry@penninkilampi.net>
34.6 ( 0.7/ 33.9/ 32.7) 1 ringerc@space.net.au
28.4 ( 9.5/ 18.9/ 15.4) 16 David Bell <db7654321@aol.comspamsux>
19.2 ( 11.8/ 7.3/ 4.9) 15 "Ferk Da Jerk" <shawnball@uswest.net>
17.8 ( 7.9/ 9.0/ 6.3) 9 Ilmari Karonen <usenet11123@itz.pp.sci.fi>
13.9 ( 4.8/ 9.1/ 4.7) 8 "Brent Schenk" <brent.schenk@home.com>
13.8 ( 7.6/ 6.2/ 3.2) 9 Johannes <gedichte@lycosmail.com>
10.6 ( 4.5/ 5.5/ 3.8) 5 Ilmari Karonen <usenet11124@itz.pp.sci.fi>
9.8 ( 1.5/ 1.7/ 0.6) 2 shell@hkisg.org
9.4 ( 2.4/ 7.0/ 2.2) 4 Charles Capps <capps@solareclipse.net>
These posters accounted for 7.9% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 0.6 / 0.6) 3 "Charles W.W." <kingwang98@yahoo.com>
1.000 ( 1.5 / 1.5) 3 psycho <psychoNOpsSPAM@pcpatches.com.invalid>
1.000 ( 1.1 / 1.1) 3 law_40@hotmail.com
1.000 ( 1.3 / 1.3) 3 derekl <dlibby@lhs.com>
1.000 ( 5.6 / 5.6) 4 Agentkhaki <altavistaNOalSPAM@agentkhaki.com.invalid>
1.000 ( 2.0 / 2.0) 5 damonr <damonNOdaSPAM@unispace.com.invalid>
1.000 ( 0.6 / 0.6) 3 srh104@demeter.cs.york.ac.uk
0.939 ( 2.7 / 2.9) 3 hedim@hta-bi.bfh.ch
0.894 ( 3.5 / 3.9) 3 mark rowlands <rowlands_mark@hotmail.com>
0.832 ( 2.8 / 3.3) 3 bann3094@my-deja.com
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.514 ( 0.7 / 1.4) 3 Jan van Mansum <jvm@ysabel.net>
0.513 ( 4.7 / 9.1) 8 "Brent Schenk" <brent.schenk@home.com>
0.496 ( 1.4 / 2.8) 4 Henryk Bochmann <bochmann-usenet0600@gmx.net>
0.469 ( 1.0 / 2.1) 3 Bob Martin <bob@buckhorn.net>
0.396 ( 0.9 / 2.2) 3 "Tony Shrimpoton" <ts@relson.net>
0.389 ( 0.8 / 2.1) 3 henrik.jonsson@se.adtranz.com
0.325 ( 0.5 / 1.4) 3 Antonio Gonzalez <antonio_gonzalez@wap3.net>
0.311 ( 2.2 / 7.0) 4 Charles Capps <capps@solareclipse.net>
0.309 ( 0.7 / 2.1) 3 Fabio Niski <fabion@sti.com.br>
0.236 ( 1.4 / 5.7) 3 roeerubin@my-deja.com
37 posters (15%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
35 comp.lang.perl.modules
26 soc.culture.jewish
21 alt.perl
21 comp.lang.perl
9 comp.lang.perl.moderated
7 comp.software.config-mgmt
7 microsoft.public.visual.sourcesafe
3 de.comp.lang.perl.cgi
2 news.admin.censorship
2 comp.answers
Top 10 Crossposters
===================
Articles Address
-------- -------
6 guy@crossflight.co.uk
6 "Peter T. Breuer" <ptb@oboe.it.uc3m.es>
5 Fabio Niski <fabion@sti.com.br>
4 DoverWare@CompuServe.Com
4 Micha Berger <micha@aishdas.org>
3 "NetRenovations.com" <info@netrenovations.com>
3 Pieter de Rijk <derijk@linuxfan.com>
2 meirman@QQQerols.com
2 "David Zade" <dzade@bellatlantic.net>
2 DEarl@NewYorker.de
------------------------------
Date: Mon, 19 Jun 2000 03:29:05 PDT
From: Larry R. Waibel <lwaibel@cwia.com>
Subject: NT or Unix at runtime
Message-Id: <VA.00000039.0366ff09@cwia.com>
I've got some scripts that I want to be able to run on either NT or HP-UX.
What's the general/accepted/best way for a Perl script to determine at run time
which OS it's running under? I'm using 'ccperl' that comes with Rational
ClearCase and it doesn't set the $OSNAME/$^O variable (which is just an
indication of which system it was compiled on, not the run-time anyway).
Thanks!
------------------------------
Date: Mon, 19 Jun 2000 06:43:38 -0700
From: sbanks <sbanks99NOsbSPAM@yahoo.com.invalid>
Subject: Outputting a page bit by bit...
Message-Id: <0022294c.b5fe8c75@usw-ex0101-007.remarq.com>
I would like to write a CGI Perl program that will output part
of the HTML page, so the user can see it's doing something,
while it works on producing the rest of the page.
I'm finding, though, that nothing is output to the client until
the whole CGI program is finished.
To make it easier to explain what I mean, I've included an
example program below. All it does is print some HTML, which
I'd like displayed immediately in the user's browser, then it
sleeps for 10 seconds, then prints the rest of the page.
What I want to happen is for the user to run the program from
their browser, it show the first line, wait 10 seconds, and then
show the rest.
But what it's doing is waiting 10 seconds then displaying
everything!
Here's the simple example program:
==========================================
#!/usr/bin/perl
print "Content-type:text/html\n\n";
print "<HTML><HEAD></HEAD><BODY>Before sleep...\n";
sleep (10);
print "<P>After sleep...</BODY></HTML>";
Any ideas?
Thanks in advance!!
Sbanks!
Got questions? Get answers over the phone at Keen.com.
Up to 100 minutes free!
http://www.keen.com
------------------------------
Date: Mon, 19 Jun 2000 11:51:25 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Perl :)
Message-Id: <Pine.GHP.4.21.0006191149440.5908-100000@hpplus03.cern.ch>
On Mon, 19 Jun 2000, Jonathan Stowe wrote:
> It might be of interest to someone that the Perl content of this site
> appears to be lifted directly from the the Open Directory Project's Perl
> section (<http://dmoz.org/Computers/Programming/Languages/Perl/>) without
> any attribution which is direct contravention of the free use license
When the UK abolished execution for murder, there remained four other
offences for which execution was still technically available. One of
those was "piracy with violence".
ttfn
------------------------------
Date: Mon, 19 Jun 2000 10:01:55 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: perl vs python
Message-Id: <394E27D3.85C7EA50@attglobal.net>
amitr@w-o-i.com wrote:
>
> hi
>
> is python better than perl? I have been using perl for web
> developement. But all of a sudden people talking about python.
>
Python has a try: operator. I don't want my language to try:,
I want it to do() =)
------------------------------
Date: Mon, 19 Jun 2000 08:59:04 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: perl vs python
Message-Id: <slrn8ks68o.df5.tadmc@magna.metronet.com>
On Mon, 19 Jun 2000 07:07:06 GMT, amitr@w-o-i.com <amitr@w-o-i.com> wrote:
>is python better than perl?
Is English better than French?
Is a box-end wrench better than an open-end wrench?
Is paper better than plastic?
Depends on what job you need to accomplish.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
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 3419
**************************************
