[16444] in Perl-Users-Digest
Perl-Users Digest, Issue: 3856 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 31 11:05:29 2000
Date: Mon, 31 Jul 2000 08:05:14 -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: <965055914-v9-i3856@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 31 Jul 2000 Volume: 9 Number: 3856
Today's topics:
Arrays <eric.selin@pp.inet.fi>
Re: Arrays (Colin Keith)
Re: Arrays <sumus@aut.dk>
Re: Arrays (Colin Keith)
Re: Arrays (Andrew J. Perrin)
Re: Convert 1000000 --> 1.000.000 <bill.kemp@wire2.com>
Re: Convert 1000000 --> 1.000.000 <newspost@coppit.org>
Re: Convert 1000000 --> 1.000.000 <sariq@texas.net>
Re: DBI.pm CGI.pm tutorial needed <rschram@reed.edu>
Hash Question - Please help <t0873@my-deja.com>
How do I associate an IP address with an interface? david_henry@my-deja.com
Re: I Am An Idiot (brian d foy)
Re: I Am An Idiot <sariq@texas.net>
Re: I Am An Idiot <bkennedy@hmsonline.com>
Re: I Am An Idiot <godzilla@stomp.stomp.tokyo>
Re: Is "exit()" really necessary? <steve.jones@takethisoutproact.net>
Re: Memory leak in perl code <mjcarman@home.com>
Re: Memory leak in perl code (Keith Calvert Ivey)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: New Site: www.perlmodules.com <steve.jones@takethisoutproact.net>
Re: newb Q, Our perl guy left!! president@whitehouse.gov
Re: newb Q, Our perl guy left!! president@whitehouse.gov
Re: No more typeglobs in Perl 6 (was: Advanced Perl Pro (Andrew J. Perrin)
Re: posting in newsgroup using perl script? <r.roosjen@koersagent.nl>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 31 Jul 2000 13:08:03 GMT
From: "Eric Selin" <eric.selin@pp.inet.fi>
Subject: Arrays
Message-Id: <TSeh5.1248$Av5.31322@news.kpnqwest.fi>
Is'nt ther a way to check how many entries there is in an array?
I would like to print one piece of a string in one place and another piece
in another place. Like this:
@array:
[1]=eric.selin@email.com
[2]=first.second@email.com
Would be:
<table>
<tr><td>email<td>domain
<tr><td>eric.selin<td>@email.com
<tr><td>first.second<td>@email.com
Thank You, Eric
------------------------------
Date: Mon, 31 Jul 2000 13:21:45 GMT
From: ckeith@clara.net (Colin Keith)
Subject: Re: Arrays
Message-Id: <J3fh5.51$DT4.2090658@nnrp2.clara.net>
(alt.perl skipped as the consensus seems to be not to attract them here)
In article <TSeh5.1248$Av5.31322@news.kpnqwest.fi>, "Eric Selin"
<eric.selin@pp.inet.fi> wrote:
>Is'nt ther a way to check how many entries there is in an array?
$#array
It actually returns the position of the last element. So if you say
$#array = 1000;
then later query $#array. It will return 1000, even though you may only have
assigned to the first 3 elements.
>I would like to print one piece of a string in one place and another piece
>in another place. Like this:
><tr><td>first.second<td>@email.com
If it is an email address you want to print try something like:
foreach (@array){ # note the lack of needing to know the last element
next if(!/^([^\@]+)\@([a-zA-Z0-0-9.-]{4,})$/
&& $2 !~ /\.\./ # no typos
&& $2 =~ /\./); # or invalid domain names
print "<TR><TD>$1</TD><TD>@$2</TD></TR>\n";
}
(I haven't checked the validity of this as I should be doing some work
today:)
---
Colin Keith
Systems Administrator
Network Operations Team
ClaraNET (UK) Ltd. NOC
------------------------------
Date: 31 Jul 2000 15:22:16 +0200
From: Jakob Schmidt <sumus@aut.dk>
Subject: Re: Arrays
Message-Id: <d7juo2nr.fsf@macforce.sumus.dk>
"Eric Selin" <eric.selin@pp.inet.fi> writes:
> Is'nt ther a way to check how many entries there is in an array?
Yeah: $num_of_entries = @array;
if you evaluate the array in scalar context you get the number of entries.
> I would like to print one piece of a string in one place and another piece
> in another place. Like this:
> @array:
> [1]=eric.selin@email.com
> [2]=first.second@email.com
> Would be:
> <table>
> <tr><td>email<td>domain
> <tr><td>eric.selin<td>@email.com
check perldoc -f split
it should do
--
Jakob
------------------------------
Date: Mon, 31 Jul 2000 13:30:30 GMT
From: ckeith@clara.net (Colin Keith)
Subject: Re: Arrays
Message-Id: <Wbfh5.53$DT4.2091094@nnrp2.clara.net>
Apologies for following up myself, but to clarify:
In article <J3fh5.51$DT4.2090658@nnrp2.clara.net>, ckeith@clara.net (Colin
Keith) wrote:
>$#array
>
>It actually returns the position of the last element. So if you say
And since arrays start at 0 ... $#array is 1 less than the length.
You can find the length by evaluating the array variable in a scalar
context. I.e. $var = @array; or if(@array == 10){ .. }
---
Colin Keith
Systems Administrator
Network Operations Team
ClaraNET (UK) Ltd. NOC
------------------------------
Date: 31 Jul 2000 09:33:03 -0400
From: aperrin@demog.berkeley.edu (Andrew J. Perrin)
Subject: Re: Arrays
Message-Id: <u3dkqh1bk.fsf@demog.berkeley.edu>
"Eric Selin" <eric.selin@pp.inet.fi> writes:
> Is'nt ther a way to check how many entries there is in an array?
sure - evaluate the array in scalar context. See perldoc perldata for
more info.
> I would like to print one piece of a string in one place and another piece
> in another place. Like this:
> @array:
> [1]=eric.selin@email.com
> [2]=first.second@email.com
> Would be:
> <table>
> <tr><td>email<td>domain
> <tr><td>eric.selin<td>@email.com
> <tr><td>first.second<td>@email.com
>
But there's no need for the above for this. Check out perldoc -f for
to find out how to iterate through an array.
--
----------------------------------------------------------------------
Andrew Perrin - Solaris-Linux-NT-Samba-Perl-Access-Postgres Consulting
aperrin@igc.apc.org - http://demog.berkeley.edu/~aperrin
----------------------------------------------------------------------
------------------------------
Date: Mon, 31 Jul 2000 14:13:22 +0100
From: "W Kemp" <bill.kemp@wire2.com>
Subject: Re: Convert 1000000 --> 1.000.000
Message-Id: <965049378.4265.0.nnrp-02.c3ad6973@news.demon.co.uk>
aqutiv@my-deja.com wrote in message <8m3osg$m2u$1@nnrp1.deja.com>...
>
>
>>
>> In perlfaq4
>> How can I output my numbers with commas added?
oops perlfaq5
>weird, I didn't find that there, might be an older version or
>something..
weird.
How I manage to get by with such an appalling short term memory.
------------------------------
Date: Mon, 31 Jul 2000 09:18:40 -0400
From: David Coppit <newspost@coppit.org>
Subject: Re: Convert 1000000 --> 1.000.000
Message-Id: <Pine.GSO.4.21.0007310916580.4619-100000@mamba.cs.Virginia.EDU>
On Mon, 31 Jul 2000, Gibson wrote:
> How can i convert a string like this
>
> 1245789
>
> in this one
>
> 1.245.789
>
> ?
$string = reverse $string;
# This puts a "." after every three characters
$string =~ s/((.){3})/$1./g;
# Need to remove any "." added to the end.
$string =~ s/\.$//g;
$string = reverse $string;
David
------------------------------
Date: Mon, 31 Jul 2000 09:40:25 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: Convert 1000000 --> 1.000.000
Message-Id: <39858FD9.CF41BF84@texas.net>
David Coppit wrote:
>
> On Mon, 31 Jul 2000, Gibson wrote:
>
> > How can i convert a string like this
> >
> > 1245789
> >
> > in this one
> >
> > 1.245.789
> >
> > ?
>
> $string = reverse $string;
>
> # This puts a "." after every three characters
> $string =~ s/((.){3})/$1./g;
>
> # Need to remove any "." added to the end.
> $string =~ s/\.$//g;
tr///d is better there.
> $string = reverse $string;
my $string = 1.23;
Whoops!
As stated earlier in the thread, perlfaq5 has a *correct* solution.
- Tom
------------------------------
Date: Mon, 31 Jul 2000 06:43:24 -0700
From: RS@ <rschram@reed.edu>
Subject: Re: DBI.pm CGI.pm tutorial needed
Message-Id: <0192fe61.eff94892@usw-ex0102-014.remarq.com>
My comment from above:
"The new CGI book is good because it acknowledges that most
people will want to program for the web in concert with DBI."
is a bit of an overstatement, but also kind of true. I don't
really know what the people who wrote the book were thinking,
but at least the authors don't leave out discussion of other
modules.
With regard to the example "What do I do with the password the
user submits..." I think I would recommend reading CGI Prg.
w/Perl just for its discussion of CGI.pm (the module). You will
then see there's no trick to using DBI and CGI together:
The discussion of CGI and other modules is not really a head-
scratcher. I write the below without testing this and with less
than a month of experience with Perl, so copying this method is
NOT recommended, unless you check it over yourself.
(Assume a "login" form calls this script, passing username and
password for a mysql server):
#!usr/bin/perl
# So happy together...
use CGI;
use DBI;
# Grab the parameters from the submitted form.
# Note the use of CGI.pm's param() function.
my $user = param('user');
my $pass = param('pass');
# Check em and do something based on the test
# This is a cop-out, since DBI functions need not touch
# the CGI-passed parameters
if ( $user eq "Goober" and $pass eq "carrot" ) {
# go forward with DBI-interface and presentation
}
else { print "You stink!\n"; }
# Or, do this, which is not as controlled, but is less of a
# cop-out.
my $dbh = DBI::connect('database_driver', $user, $pass)
or die "Blah blah blah!";
# I *think* I could have also put param('user') and so forth in
# lieu of $user and so forth. Each are expressions which could
# be interpolated, right?
-----------------------------------------------------------
Got questions? Get answers over the phone at Keen.com.
Up to 100 minutes free!
http://www.keen.com
------------------------------
Date: Mon, 31 Jul 2000 14:54:35 GMT
From: t0873 <t0873@my-deja.com>
Subject: Hash Question - Please help
Message-Id: <8m43v7$uil$1@nnrp1.deja.com>
Hi all,
Please help me in this,
I have a hash which has a filename like
$VAR1 = {
'file' => 'MYFILE' ,
'time' => 5,
'sent_dir' => '/.../.../',
}
After the specified time, MYFILE is updated in the sent_dir. Now new
changes say that MYFILE shouldn't get overwritten, but should have new
format such as month, day, hour and time. my question is is it possible
to have a some kind of function , inside the hash which can return the
new value and ASSIGN to 'file'. , so everytime when VAR1 is loaded
after time , it will have 'file' with MYFILE$mon$mday$hh$mm.
--
Thanks in advance.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 31 Jul 2000 13:50:09 GMT
From: david_henry@my-deja.com
Subject: How do I associate an IP address with an interface?
Message-Id: <8m406g$rig$1@nnrp1.deja.com>
I'm using ActiveState Perl on Win NT.
I need to know the IP address of a dial-up connection. Using gethost() I
can get all my current IP addresses. How can I associate each one with a
partucular device?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 31 Jul 2000 09:38:52 -0400
From: brian@smithrenaud.com (brian d foy)
Subject: Re: I Am An Idiot
Message-Id: <brian-ya02408000R3107000938520001@news.panix.com>
In article <3984C5A8.7320CFAF@stomp.stomp.tokyo>, "Godzilla!" <godzilla@stomp.stomp.tokyo> posted:
> Ben Kennedy wrote:
> > open HANDLE, "not_a_file" or die "Cannot open: $!";
> > open HANDLE, "not_a_file" || die "Cannot open: $!";
> Both kill your program. Reality dictates there is no difference.
the second one does not kill your program. try it and learn.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Mongers <URL:http://www.perl.org/>
------------------------------
Date: Mon, 31 Jul 2000 09:15:22 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: I Am An Idiot
Message-Id: <398589FA.2A154807@texas.net>
Jon Bell wrote:
>
> In article <964868333.926550@pizza.crosslink.net>,
> Collin Borrlewyn <collin@crosslink.net> wrote:
> > [...] can someone tell me how to get the contents of a
> >file into an interact-able form, such as a variable? Something to do with
> >open()? read()?
>
> The documentation that comes with Perl is rather precise; it's simply
> meant as a reference, not as a tutorial.
Huh?
What about:
perldoc perlopentut
- Tom
------------------------------
Date: Mon, 31 Jul 2000 14:54:52 GMT
From: "Ben Kennedy" <bkennedy@hmsonline.com>
Subject: Re: I Am An Idiot
Message-Id: <0rgh5.74521$A%3.1020340@news1.rdc2.pa.home.com>
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote in message
news:39850FFE.BCC192E0@stomp.stomp.tokyo...
> Well gosh darn if you ain't as stubborn as a green
> Missouri Mule. Pile up your mule manure much more,
> you will have your own private pile upon which to
> play King Of The Mountain.
Its funny, I've already gotten several emails from people saying that you
are a hopeless troll who has no real interest in having Perl related
discussions whatsoever. Frankly, I don't think this is true. I think if
you get off your high horse you might actually learn something. If you
remain closed minded, you simply wont get any better at Perl, or anything
for that matter.
> > Try looking at my code again, and actually try to
> > figure out what it does.
>
> I figured out your code first time I shoveled my
> way through it. Your code craps it pants and dies
> with the slightest hint of challenging circumstances,
> such as a mule braying.
I have asked several times, please tell me *exactly* what circumstances my
code fails that your code doesn't. I believe that these are approrpriate
times for a fail error, since this is what the discussion is about.
> Brass tacks, Bud. Your techniques display numerous
> earmarks of a person who holds very little experience
> in writing both realistic and real life application
> programs which can withstand the rigors of actual use.
Now this is just silly.
> Thumb tacks, Buster. Your notions and thoughts within
> this article and prior articles, are those of a most
> stereotypical Perl 5 Cargo Cultist Code Cop, a wanna
> be cabal member, a groupie, a copy and paste parrot.
>
> Mule tack, Francis. You are full of mule manure.
I don't see why you are treating me this way when I have done nothing
disrespectful toward you. I'm inviting you to participate in a discussion,
yet you consistently insult me and my code. Now if you would like to
enlighten me as to what *exactly* you think is wrong with checking error
codes, I am still listening. I still think a lot of this is
miscommunication. You are mistakenly equating "or die" with automatic
termination of a running program under all circumstances. What I and others
have been saying is that some errors, such as a fatal disk access, should be
halted so they can be fixed. This isn't really an argument about return
codes at all, its about under what circumstances a program should be
terminated.
If you would stop to listen, you might actually hear what people are saying.
--Ben Kennedy
------------------------------
Date: Mon, 31 Jul 2000 07:56:01 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: I Am An Idiot
Message-Id: <39859381.D385CC5@stomp.stomp.tokyo>
mexicanmeatballs@my-deja.com wrote:
> "Godzilla!" wrote:
> > Larry Rosler wrote:
> > > Godzilla! wrote:
(snipped)
> Showing that the || die was ignored, they are _NOT_ the same.
Nobody has said they are the same.
Where's the beef, meatball?
Godzilla!
--
if (${\index ($ENV{REMOTE_USER_AGENT}, "98")} gt -1)
{ print "file:///%43|%2f%77indo%77s/%6dedi%61/%64in%67.wav"; }
else { print "Ding!"; } exit;
------------------------------
Date: Mon, 31 Jul 2000 10:49:52 +0100
From: "Steve Jones" <steve.jones@takethisoutproact.net>
Subject: Re: Is "exit()" really necessary?
Message-Id: <39854c2c_1@nnrp1.news.uk.psi.net>
I don't use exit in a subroutine . This is because it's easy to forget they
are there. Then, when your program justs ends somewhere in a deeply nested
set of routines, it takes time to find out where and why. It's better to use
one exit point in a program, so try to get everything back to one place
(sometimes, this is not practical, so use die "xyz" to give a message).
Second, exit is very useful for ending a perl script with a status value
other than zero. This is good when scripts are called from other scripts
(*e.g. from shell scripts or DOS batch files etc.). Status values are sort
of common on most OSs. The perl default, if you don't use exit, is zero. If
you use exit(1), you can tell the calling script that something bad
happened. If you are using the system function to call the script, you can
do something like
$scriptStatus = system('anything.pl');
if ($scriptStatus )
{
# it broke, do something
}
--
Steve Jones
ProAct International, 9a Vale Street, Denbigh, North Wales
01745 813 586
stevej@proact.net
"BUCK NAKED1" <dennis100@webtv.net> wrote in message
news:668-3982068C-9@storefull-246.iap.bryant.webtv.net...
> I have a buddy in another ng who seems to know Perl a little better than
> myself?; but I question his knowledge because his Perl scripts seem to
> be "down and dirty" and he never uses "use strict;".
>
> At the end of every Perl script he writes, he puts an "exit;"... and
> insists that I should do the same (even on my counter script). I
> questioned him about it, and he says exit() stops any program, and
> should be put at the end of all perl scripts.
>
> mmm.... okay. I can see where using "exit()" for subroutines would be
> useful, but I can't really see the need to do this just because you are
> at the bottom of the script you are writing. Doesn't the script
> terminate automatically when it reaches the end of the script file?
>
> Though the perl docs do say that the "exit()" function terminates a
> script, my understanding of using the "exit()" function differs from my
> buddy's. The perl docs appear to state that "exit()" is used only for
> expressions, thus the perl doc term "exit EXPR".
>
> Further, I thought the perl faq state that "exit" is similar to "die"
> but that it also acts upon a preceding "END" and is mostly used for
> subroutines. I'm not real clear on that part though.
>
> So, I don't think that exit() is needed at the end of every Perl script
> written. Who is correct?
>
> Regards,
> Dennis
>
> PS Thanks to all for the extra tips on the other here-doc printing,
> truncating, etc.
>
------------------------------
Date: Mon, 31 Jul 2000 08:18:18 -0500
From: Michael Carman <mjcarman@home.com>
Subject: Re: Memory leak in perl code
Message-Id: <39857C9A.C7CFE007@home.com>
Greg Roberts wrote:
>
[Has a memory leak in an infinite loop]
>
> while(1)
> {
> chdir (dir)
> @contents = `ls -l`
>
> foreach $entry (@contents)
> {
> process $entry...
> }
> }
>
You've posted pseudocode, not real code, so we can't see where your bug
is. Do you have a (reasonably small) example that exhibits the problem?
> I've read in other posts recommendations saying to exec copies of
> itself after a certain number of iterations to get around this,
Well, maybe... but that's kind of like using a screwdriver as a chisel.
It will probably work, but that's not what the tool was intended for.
The reason some programs re-exec() themselves is that once perl has been
granted memory by the system, it won't ever (on most platforms, anyway)
return it to the system until it exits. So the final memory footprint
will be the maximum required by the program, even if it only needed that
much memory for a little while halfway through. This is not the same
thing as a memory leak.
> but I wanted to know if there was a particular way of using infinite
> loops in perl and how to best manage memory leaks?
Sure, don't cause any leaks. :)
First, localize your variables with my() as much as possible. That way,
when they go out of scope their memory will be freed up for use
elsewhere within the program. Next, look through your program for stuff
that stays around between iterations of the loop.
Hrm. That gives me an idea. You're parsing a directory looking for new
files, right? So you need to know what your 'old' files are, which means
you need to keep some sort of a list of them. How are you doing that?
That list will of course grow as new files are added, and if you do it
improperly, you will have duplicates... My guess is that you're keeping
an array of the current directory listing, and that each time you read
your directory, you append the current file list to the existing one.
Yeah, that would balloon pretty bad. You should use a hash. Show us what
you're doing there and I think we can help.
-mjc
------------------------------
Date: Mon, 31 Jul 2000 13:29:22 GMT
From: kcivey@cpcug.org (Keith Calvert Ivey)
Subject: Re: Memory leak in perl code
Message-Id: <39897efe.67095006@news.newsguy.com>
Greg Roberts <peiagee@hotmail.com> wrote:
>while(1)
>{
> chdir (dir)
> @contents = `ls -l`
>
> foreach $entry (@contents)
> {
> process $entry...
> }
>}
What are you doing when you process $entry?
--
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
------------------------------
Date: Mon, 31 Jul 2000 14:41:45 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <sob419oi9ft163@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 24 Jul 2000 15:49:01 GMT and ending at
31 Jul 2000 14:43:24 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: 239 (45.1% of all posters)
Articles: 438 (24.6% of all articles)
Volume generated: 772.9 kb (24.6% of total volume)
- headers: 359.1 kb (6,999 lines)
- bodies: 405.8 kb (13,677 lines)
- original: 268.3 kb (9,599 lines)
- signatures: 7.7 kb (196 lines)
Original Content Rating: 0.661
Averages
========
Posts per poster: 1.8
median: 1 post
mode: 1 post - 160 posters
s: 6.7 posts
Message size: 1807.1 bytes
- header: 839.5 bytes (16.0 lines)
- body: 948.6 bytes (31.2 lines)
- original: 627.3 bytes (21.9 lines)
- signature: 18.0 bytes (0.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
35 68.4 ( 31.7/ 36.7/ 12.9) toyboy@toy.eyep.net
13 15.7 ( 11.0/ 4.6/ 2.2) Seb.Erlhofer@evc.net
11 20.2 ( 11.3/ 7.1/ 4.2) Ilmari Karonen <usenet11165@itz.pp.sci.fi>
8 17.8 ( 8.0/ 9.8/ 5.0) Jason Dixon <jason@mybowie.com>
8 17.1 ( 6.4/ 10.6/ 6.8) drdementor@my-deja.com
8 15.1 ( 8.1/ 6.9/ 3.2) David Tsai <templar318@earthlink.net>
7 11.6 ( 5.8/ 5.7/ 3.0) Mouse <glodalec@yahoo.com>
7 13.9 ( 5.8/ 8.1/ 3.5) ericr@yankthechain.com
5 10.9 ( 5.9/ 4.2/ 2.4) Ilmari Karonen <usenet11166@itz.pp.sci.fi>
5 5.2 ( 3.5/ 1.7/ 1.1) "David T. Liu" <david.t.liu@intel.com>
These posters accounted for 6.0% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
68.4 ( 31.7/ 36.7/ 12.9) 35 toyboy@toy.eyep.net
20.2 ( 11.3/ 7.1/ 4.2) 11 Ilmari Karonen <usenet11165@itz.pp.sci.fi>
17.8 ( 8.0/ 9.8/ 5.0) 8 Jason Dixon <jason@mybowie.com>
17.1 ( 6.4/ 10.6/ 6.8) 8 drdementor@my-deja.com
15.7 ( 11.0/ 4.6/ 2.2) 13 Seb.Erlhofer@evc.net
15.1 ( 8.1/ 6.9/ 3.2) 8 David Tsai <templar318@earthlink.net>
13.9 ( 5.8/ 8.1/ 3.5) 7 ericr@yankthechain.com
12.7 ( 2.8/ 9.9/ 6.6) 4 "berndt zeitler" <berndt.zeitler@tu-berlin.de>
12.4 ( 4.5/ 6.9/ 4.4) 5 "Godzilla!" <godzilla!@stomp.stomp.tokyo>
12.2 ( 3.6/ 8.6/ 5.3) 4 "Coy" <noemail@nodomain.com>
These posters accounted for 6.5% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.2 / 1.2) 3 "Simon" <simon@nospam.simonwebdesign.com>
1.000 ( 1.0 / 1.0) 5 matt venn <matt@NOSPAMraas.screaming.net>
0.861 ( 2.1 / 2.5) 3 "Terrill_b" <Terrill@Bennett.org>
0.847 ( 8.2 / 9.7) 3 paul5544@my-deja.com
0.844 ( 3.9 / 4.6) 4 Bruce Salem <bruces@canopus.Sun.COM>
0.844 ( 1.1 / 1.3) 3 Sasa.Danicic@eurodyn.com
0.779 ( 2.8 / 3.6) 3 Ilmari Karonen <usenet11163@itz.pp.sci.fi>
0.777 ( 0.6 / 0.8) 3 "Steve C" <steve@i66.net>
0.723 ( 2.7 / 3.7) 3 Steve Leibel <stevel@bluetuna.com>
0.715 ( 2.3 / 3.3) 3 Raymond WAN <rwan@cs.mu.OZ.AU>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.517 ( 5.0 / 9.8) 8 Jason Dixon <jason@mybowie.com>
0.489 ( 1.6 / 3.2) 3 tarjei@onsite.no
0.484 ( 2.2 / 4.6) 13 Seb.Erlhofer@evc.net
0.467 ( 1.2 / 2.6) 3 sbhide@my-deja.com
0.466 ( 1.6 / 3.4) 3 Perls <perls@my-deja.com>
0.458 ( 3.2 / 6.9) 8 David Tsai <templar318@earthlink.net>
0.425 ( 3.5 / 8.1) 7 ericr@yankthechain.com
0.424 ( 2.2 / 5.3) 3 man@rila.bg
0.397 ( 0.6 / 1.6) 3 Lupe Christoph <lupe@alanya.lupe-christoph.de>
0.351 ( 12.9 / 36.7) 35 toyboy@toy.eyep.net
35 posters (14%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
45 alt.perl
31 comp.lang.perl.modules
14 comp.lang.perl
12 comp.lang.tcl
5 no.it.programmering.perl
5 de.comp.lang.perl.cgi
3 comp.databases.oracle
3 comp.text.xml
3 comp.os.ms-windows.nt.admin.misc
3 tw.bbs.comp.lang.perl
Top 10 Crossposters
===================
Articles Address
-------- -------
7 "Anthony Roberts-West" <a.roberts-west@bigfoot.com>
4 Jason Dixon <jason@mybowie.com>
4 "Gibson" <gibson70@libero.it>
3 "Daniel" <dae@chello.se>
2 "Shawn Roske" <sroske@home.com>
2 tarjei@onsite.no
2 "Morten Skaarup Jensen" <morten@nospam.org>
2 "Chris Durbin" <Chris.Durbin@motorola.com>
2 "Bjørn Nørgaard" <bnp@lknetlon.dk>
2 Perls <perls@my-deja.com>
------------------------------
Date: Mon, 31 Jul 2000 09:26:57 +0100
From: "Steve Jones" <steve.jones@takethisoutproact.net>
Subject: Re: New Site: www.perlmodules.com
Message-Id: <398538d5_2@nnrp1.news.uk.psi.net>
If CPAN covers it, great - if not, then let somebody else do it - people
will vote with their mouse anyway.
By the way, how do I find out how to compile/install/use the MIMETools
module and install it on NT? What resources do I need? Why does MAKE break?
etc. (maybe we need a special site for NT because CPAN often assumes that
your OS is Unix.) Any pointers on this (including XS file compilation and
module writing for NT etc) very gratefully accepted.
--
Steve Jones
ProAct International, 9a Vale Street, Denbigh, North Wales
stevejgetridofthis@proact.net
<nobull@mail.com> wrote in message news:u9lmym4h1s.fsf@wcl-l.bham.ac.uk...
> "James" <jthomson110@home.com> writes:
>
> > Please note of a new up and coming centralized site for all info
> > regarding Perl Modules.
>
> Is there some reason why you think CPAN is failing?
>
> If so, is there some reason why you can't help to improve CPAN rather than
> trying to re-invent the wheel.
>
> Since modules are all about code-reuse and not wheel re-inventing it
> seems rather incongruous to re-invent the CPAN wheel.
>
> > Any suggestions for what you would like to see on this site would
> > be helpful.
>
> I'd like to see an apology for trying to confuse the issue and a
> redirect to CPAN.
>
> --
> \\ ( )
> . _\\__[oo
> .__/ \\ /\@
> . l___\\
> # ll l\\
> ###LL LL\\
------------------------------
Date: Mon, 31 Jul 2000 14:12:43 +0100
From: president@whitehouse.gov
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <39857B4B.48C685B9@whitehouse.gov>
[de-jeopardized]
jtoy wrote:
> Jonathan Stowe wrote:
> > On Thu, 27 Jul 2000 18:03:23 -0400, jtoy Wrote:
> > > Oh and why would I hire someone if I'm only 18 and probably make more than you
> > > doing programming and network communications?
> > >
> >
> > I very much doubt that.
> >
> > /J\
>
> Shit, I'm almost gettting sad that you guys are actually disliking me. :( I'm
> sorry, but I don't have time to make shit up.
What Jonathon is saying, Jason, is though you may be earning more than your pals at
Burger King you probably don't rate as high as you think against the readership of
this newsgroup. I'm 10 years older than you, I was a teen-geek like you and I've
worked in IT all my life. I'm currently making a big pile of consultancy money, but I
wouldn't come on here making your claim because it wouldn't be true.
------------------------------
Date: Mon, 31 Jul 2000 14:24:56 +0100
From: president@whitehouse.gov
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <39857E28.AF39A41D@whitehouse.gov>
jtoy wrote:
> Plonk-o-rama
>
> Craig Berry wrote:
>
> > Plonk-o-rama.
Oh for fucks sake! Are you trying to get help with your Perl situation, or are you
trying to mutually kill-file everyone?
Try and keep your tactics focussed on your long-term goals. Be nice to people, don't
shoot your mouth off, reign your ego in and you might achieve what you're after. Even,
especially, if they flamed you first. Shoot your mouth off in private by all means, but
be nice on the group and maybe someone else will help. Do it in your own interests, not
for any other reason. This is not a flame, it's serious advice.
In this particular instance the advice is much too late, you've pissed everybody who
might have helped you off, already. But it's something you might want to remember in the
future.
------------------------------
Date: 31 Jul 2000 09:26:47 -0400
From: aperrin@demog.berkeley.edu (Andrew J. Perrin)
Subject: Re: No more typeglobs in Perl 6 (was: Advanced Perl Programming -- Dated?)
Message-Id: <u66pmh1m0.fsf@demog.berkeley.edu>
Okay, fair enough brian and Keith, my error.
ap
--
----------------------------------------------------------------------
Andrew Perrin - Solaris-Linux-NT-Samba-Perl-Access-Postgres Consulting
aperrin@igc.apc.org - http://demog.berkeley.edu/~aperrin
----------------------------------------------------------------------
------------------------------
Date: Mon, 31 Jul 2000 15:43:51 +0200
From: Ron <r.roosjen@koersagent.nl>
Subject: Re: posting in newsgroup using perl script?
Message-Id: <39858297.724932D7@koersagent.nl>
Hi Jonathan,
Thanks for your reply. I am not very deep into this matter; Could you be a bit
more specific? Do you have an example PERL script, probably?
Thanks,
Ron
Jonathan Stowe wrote:
> On Mon, 31 Jul 2000 13:55:17 +0200, Ron Wrote:
> > Hi all,
> >
> > I want to write a script that posts a message into a newsgroup (not this
> > one ;-) )
> > Anyone has an example how to do this? Is it more or less the same than
> > sending an email from a script? (this, I managed)
> >
>
> Net::NNTP
------------------------------
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 3856
**************************************
