[18781] in Perl-Users-Digest
Perl-Users Digest, Issue: 949 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 21 14:11:03 2001
Date: Mon, 21 May 2001 11:10:26 -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: <990468626-v10-i949@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 21 May 2001 Volume: 10 Number: 949
Today's topics:
Re: Has this already been done? <newspost@coppit.org>
Re: Has this already been done? <rebelvideo@hotmail.com>
Help: Can't use correctly File:Find in perl (E.Lalande)
Re: Help: Can't use correctly File:Find in perl (Sweth Chandramouli)
Re: Help: using constants from inherited parent class (Abigail)
Re: Hyphenated File Names <hartleh1@westat.com>
Re: image_button and onClick??? <bcoon@sequenom.com>
Re: image_button and onClick??? (John Joseph Trammell)
Making a C structure persistent for use in perl. yin_12180@yahoo.com
Module DB_File on NT <smrtalec@nospam.earthlink.net>
Re: Module DB_File on NT <kjetilskotheim@iname.com>
Re: Module DB_File on NT (Helgi Briem)
Re: Module DB_File on NT <smrtalec@nospam.earthlink.net>
module for combinatorics? (partitions etc) <drkrause@mindspring.com>
Re: module for combinatorics? (partitions etc) <todd@designsouth.net>
Re: module for combinatorics? (partitions etc) <drkrause@mindspring.com>
Re: module for combinatorics? (partitions etc) <kjetilskotheim@iname.com>
Re: module for combinatorics? (partitions etc) (Mark Jason Dominus)
Re: Need Example creating Registry variable names nobull@mail.com
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Newbie perl CGI question <somewhere@in.paradise.net>
Re: newbie Question PERL <todd@designsouth.net>
Re: Perl icon in Windows- reminder please <nospam@ireland.com>
Perl, Oracle and cursors (Tobiwan)
Re: print function (Craig Berry)
Re: Pronouncing ISA <hartleh1@westat.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 21 May 2001 09:06:25 -0400
From: David Coppit <newspost@coppit.org>
Subject: Re: Has this already been done?
Message-Id: <Pine.SUN.4.33.0105210856050.27303-100000@mamba.cs.Virginia.EDU>
On Fri, 18 May 2001, David Soming wrote:
> Im new to perl so have a laugh at my expense if you will but...
> Just an idea for creating a unique 12 digit ID Using the date and time :)
> If such a module exists already based on this concept please ignore.
Unique IDs are a big pain in general...
> Today's date 18:05:01
> Time 10:41:21
> concatenation= "180501104121" =Unique 12 digit ID
If you don't care about the format of the ID, just use the time since
the epoch:
$date = time;
Unfortunately, a search for "guid" on CPAN revealed nothing. :(
You may want to consider using the client's IP address as part of the
ID as well as $$ as others have suggested, which will prevent possible
cross-client collisions.
--
David
------------------------------
Date: Sat, 19 May 2001 18:55:19 +0930
From: Chris <rebelvideo@hotmail.com>
Subject: Re: Has this already been done?
Message-Id: <3B063BFF.9D5A7407@hotmail.com>
Perl has a function called time it returns the time as an integer
to make it readable simply call timelocal(time) and this will give you a
human readable date and time
if you are going to use it as an identifier don't forget it is more than
possible for the algorithm to be called at the same time hence the id is
not unique
here is mine (second time posted today :)
sub CreateId {
#creates a unique id
#uses pre if provided
my $pre = shift || '';
my $rand = int (rand 100);# use rand in case two users access at the
same time
$pre . time . "-$rand";
}
you get something like this
99042134-23
or with pre
pre99042134-23
--
Regards
Chris
rebelvideo@hotmail.com
David Soming wrote:
>
> Im new to perl so have a laugh at my expense if you will but...
> Just an idea for creating a unique 12 digit ID Using the date and time :)
> If such a module exists already based on this concept please ignore.
>
> Today's date 18:05:01
> Time 10:41:21
> concatenation= "180501104121" =Unique 12 digit ID
>
> If its a crap idea, well OK.
> If there is a module which is better, (in the sense of output being easily
> readable-and readily understood, meaningful) or gives similar output then I
> don't wish to reinvent the wheel right?
> But could this be used say as a date stamp to verify an file upload or
> acknowledgement.
> Any suggestions on manipulating these variables or sample code I can play
> around with?
>
> Thanks for your thoughts and possible sarcasm too! lol.
>
> David Soming
------------------------------
Date: 21 May 2001 08:45:20 -0700
From: emmanuel.lalande@bluelineinternational.com (E.Lalande)
Subject: Help: Can't use correctly File:Find in perl
Message-Id: <9d135994.0105210745.7c40c390@posting.google.com>
Hi,
Hope someone out there can help me. I'm trying to do the command
"find /a_root_directory/* -prune -type d" under Perl with the
File:find module to get a listing of 1st level sub-directories ONLY (I
don't want to see any files or files within these sub-directories).
I've haven't been able to determine the syntax for Perl. I've used
the File::Find::prune=1 but don't seem able to list the directories
which are underneath the a_root_directory. Any help would be greatly
appreciated. Thank you.
------------------------------
Date: Mon, 21 May 2001 16:20:35 GMT
From: sweth+perl@gwu.edu (Sweth Chandramouli)
Subject: Re: Help: Can't use correctly File:Find in perl
Message-Id: <nfbO6.14282$G5.2998333@news1.rdc1.md.home.com>
In article <9d135994.0105210745.7c40c390@posting.google.com>,
E.Lalande <emmanuel.lalande@bluelineinternational.com> wrote:
>Hi,
>
>Hope someone out there can help me. I'm trying to do the command
>"find /a_root_directory/* -prune -type d" under Perl with the
>File:find module to get a listing of 1st level sub-directories ONLY
File::Find is a bit of overkill for that; I'd just grep the
contents of the dir directly:
$dir = "/a_root_dir";
opendir (DIR, $dir)
or die "Could not open $dir for reading: $!"
for (grep {-d "$dir/$_"} readdir DIR) {
print "$_\n";
};
-- Sweth.
--
Sweth Chandramouli ; <sweth+perl@gwu.edu>
------------------------------
Date: Mon, 21 May 2001 15:34:14 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: Help: using constants from inherited parent class
Message-Id: <slrn9gidbm.6rt.abigail@tsathoggua.rlyeh.net>
Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMDCCCXX
September MCMXCIII in <URL:news:9ead5q$92g$1@mamenchi.zrz.TU-Berlin.DE>:
## According to Abigail <abigail@foad.org>:
## > Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMDCCCXVIII
## > September MCMXCIII in <URL:news:9e5vhs$7fq$2@mamenchi.zrz.TU-Berlin.DE>:
## > %% According to Michael Ströck <michael@stroeck.com>:
## > %% >
## > %% > "Abigail" <abigail@foad.org> schrieb im Newsbeitrag
## > %% > news:slrn9gbe3f.anl.abigail@tsathoggua.rlyeh.net...
## > %% > >
## > %% > > I've never understood why. I've always learned that use of constants
## > %% > > was a good thing, and that duplication of data should be avoided.
## > %% > >
## > %% > > Doesn't the school of OO agree?
## > %% > <snip>
## > %% >
## > %% > I agree with Abigail. Can someone point out some disadvantages to that ?
## > %% > And don't say "It's not OOP" ;-)
## > %%
## > %% Using a constant and exporting its name into the user's name space
## > %% are different things. If you're going OO, a constant DIM in class
## > %% Vector is a class method and can be called as such:
## >
## > FUD.
## >
## > Almost anything that exports something either uses Exporter, or offers
## > its functionality. Exporter doesn't force *anything* in the users name
## > space.
##
## ...nor did I mention "forcing" anywhere. Exporting is transplantation
## of a symbol from one package to another, forced or by request. This
## is not the "done thing" in OO, and my point is just that you can
## access Perl constants with OO methods.
*shrug* Of course you can. Heck, you can access OO methods using a tie
mechanism, or by using overloaded <<.
That's not the point.
Even in an OO world, I'd like to use O_CREAT instead of Fcntl -> O_CREAT.
Programmer convenience. Making 'Fcntl ->' mandatory adds *NOTHING*,
just warm fuzzy feelings for OO pronents.
##
## > Two additional chars make Exporter not export anything.
##
## The two characters "_OK"?
Not under control of the requestor.
The answer is:
()
Abigail
------------------------------
Date: Mon, 21 May 2001 10:31:20 -0400
From: Henry Hartley <hartleh1@westat.com>
Subject: Re: Hyphenated File Names
Message-Id: <3B0926B8.B26F5C83@westat.com>
Ed Coates wrote:
>
> On Sat, 19 May 2001 09:47:13 +0000 (UTC), abigail@foad.org (Abigail)
> wrote:
>
> Unquoted string "ers" may clash with future reserved word at
> ./test2.pl line 5.
> Argument "prod" isn't numeric in subtraction (-) at ./test2.pl line 5.
> Argument "ers" isn't numeric in subtraction (-) at ./test2.pl line 5.
> Can't open 0.latest.status: No such file or directory at ./test2.pl
> line 7.
>
> When I quote the machine name, it's now working as it should.
>
> @test=(ers-prod); <--Quoting this like @test=("ers-prod"); works
> foreach $line (sort @test) {
>
When you say, "Doc, it hurts when I do this" what does the doc say?
--
Henry Hartley
------------------------------
Date: Mon, 21 May 2001 10:29:38 -0700
From: Bryan Coon <bcoon@sequenom.com>
Subject: Re: image_button and onClick???
Message-Id: <3B095082.713D775E@sequenom.com>
What do you think 'misc' stands for? This is a perl question, relating
to the image_button method found in CGI.pm, and the documentation found
therein. There may be other appropriate groups, but that does NOT mean
that comp.lang.perl.MISC is inappropriate!
This is not the
comp.lang.perl.post.only.cool.syntax.problems.you.ignorant.twit group.
My apologies if I sound irritated, but its monday, I haven't had my
coffee yet, and I do find it irritating having my posts policed and being
told what is on topic and what is off topic for a perl question in the
perl.MISC group.
Bryan
"Alan J. Flavell" wrote:
> On 19 May 2001, Steve wrote:
>
> > I gave up with image buttons after wasting some serious time
> > trying to get it to work in CGI.
>
> How to work with image buttons would be on-topic for either
> comp.infosystems.www.authoring.html [1] or comp.lang.javascript,
> depending on what you want them to do.
>
> Once you know what HTML you want to produce, then how to generate it
> from a CGI script (if there's a problem with that, which there
> shouldn't be) would be on-topic for comp.infosystems.www.authoring.cgi
>
> Which would also be a good place to discuss how to field the submitted
> input, if that's what you want to do. (But the reference to onClick
> suggests otherwise...)
>
> If you're having problems with CGI.pm (a Perl module) then I'd
> assume that your question would be at home on comp.lang.perl.modules.
>
> I don't perceive a Perl language question here yet.
>
> f'ups prophylactically set, feel free to pick an appropriate group.
>
> good luck
>
> [1] It's really nice to get the occasional HTML topic on c.i.w.a.html:
> most of the time it seems to be used as a trashcan for anything that's
> vaguely WWW related. Rather like c.l.p.misc seems to get used as a
> dumping ground for all kinds of question that just happen to be
> programmed in Perl. Sigh.
------------------------------
Date: Mon, 21 May 2001 17:41:03 GMT
From: trammell@bayazid.hypersloth.invalid (John Joseph Trammell)
Subject: Re: image_button and onClick???
Message-Id: <slrn9giic9.v6s.trammell@bayazid.hypersloth.net>
On Fri, 18 May 2001 17:16:42 -0700, Bryan Coon <bcoon@sequenom.com> wrote:
> For some reason, I cannot get the onclick javascript action to work with
> CGI.pm's image_button. Here is a sample of code:
>
> --------------------------
> #!/usr/bin/perl -w
use strict; # grumble grumble
[snip]
> I have tried many variations, but no luck.
Works OK on my server/browser. What exactly is "not working"?
--
According to the Genesis account, the tower of Babel was man's second
major engineering undertaking, after Noah's ark. Babel was the first
engineering fiasco.
- F. Brooks, _The Mythical Man-Month_
------------------------------
Date: Mon, 21 May 2001 11:49:36 -0500
From: yin_12180@yahoo.com
Subject: Making a C structure persistent for use in perl.
Message-Id: <hmfigtkru04t9n77vo8v3287lsjbp6lt33@4ax.com>
Here's what I am trying to do.
BACKGROUND:
I have a perl module which creates a ternary search tree with nodes
that are defined as C structures.
The function that creates the tree returns a scalar reference of the
tree to perl.
The final size of the search tree is 200 megabytes in RAM.
I do have enough RAM to avoid paging into virtual memory.
The tree takes about 5 minutes to build.
WHAT I WANT TO DO: Due to the overhead of building the tree. I want
to "freeze" the tree in RAM space and have the tree be persistent in
memory (not hard disk) for use by other perl programs.
WHAT I COULD DO: I could try to implement the tree as a B tree for
use on the hard drive, but there are properties of the ternary search
tree that I would lose.
WHAT I HAVE THOUGHT OF: Two potential solutions come to mind.
First, I looked at the CPAN module Storable, but it seems that it
works only on data structures defined by Perl. I would prefer not to
redefine my C structure in perl. I'm not sure if the conclusions I
have come to with Storable are accurate though.
Second, I could write a method in the C module to write the entire
data structure to disk, but I didn't want to incur the overhead of
reading the array from disk every time I need to traverse the tree.
Any additional ideas or thoughts would be appreciated.
------------------------------
Date: Mon, 21 May 2001 15:24:13 GMT
From: "R" <smrtalec@nospam.earthlink.net>
Subject: Module DB_File on NT
Message-Id: <xqaO6.5674$BN6.559597@newsread1.prod.itd.earthlink.net>
I've been working on a time sheet app, which thus far I have been developing
on my linux station at work. thus far I have been using DB_File to handle my
data. lately I tried this on my nt station after adding active state and
realized DB_File is not loaded even though it says it is.I tried downloading
DB_File from CPAN but then realized it had to be compliled. and I am
clueless in C. anyone have ideas
------------------------------
Date: Mon, 21 May 2001 16:47:59 +0200
From: Kjetil Skotheim <kjetilskotheim@iname.com>
To: R <smrtalec@nospam.earthlink.net>
Subject: Re: Module DB_File on NT
Message-Id: <3B092A9F.601AA879@iname.com>
I think the DB_File module is one of the standard modules in
newer versions of Perl. It follows Perl. ActivePerl too,
which is really simple to install: www.activeperl.com
R wrote:
>
> I've been working on a time sheet app, which thus far I have been developing
> on my linux station at work. thus far I have been using DB_File to handle my
> data. lately I tried this on my nt station after adding active state and
> realized DB_File is not loaded even though it says it is.I tried downloading
> DB_File from CPAN but then realized it had to be compliled. and I am
> clueless in C. anyone have ideas
--
Kjetil Skotheim
kjetilskotheim@iname.com
------------------------------
Date: Mon, 21 May 2001 15:59:09 GMT
From: helgi@NOSPAMdecode.is (Helgi Briem)
Subject: Re: Module DB_File on NT
Message-Id: <3b093a4a.3543299064@news.isholf.is>
On Mon, 21 May 2001 15:24:13 GMT, "R"
<smrtalec@nospam.earthlink.net> wrote:
>I've been working on a time sheet app, which thus far I have been developing
>on my linux station at work. thus far I have been using DB_File to handle my
>data. lately I tried this on my nt station after adding active state and
>realized DB_File is not loaded even though it says it is.
This is gibberish.
>I tried downloading
>DB_File from CPAN but then realized it had to be compliled. and I am
>clueless in C. anyone have ideas
>
You don't have to know any C.
After you download DB_File-1.77.tar.gz from
http://search.cpan.org/search?dist=DB_File
you have to:
$gunzip DB_File-1.77.tar.gz
$tar -xvf DB_File-1.77.tar
$cd DB_File-1.77
$make
$make test
Now if you are root you can:
$make install
Otherwise, you need to note the directory
and add the line
use lib '/path/to/lib/DB_File-1.77';
to your perl program.
Regards,
Helgi Briem
------------------------------
Date: Mon, 21 May 2001 17:27:32 GMT
From: "R" <smrtalec@nospam.earthlink.net>
Subject: Re: Module DB_File on NT
Message-Id: <8ecO6.6864$BN6.586263@newsread1.prod.itd.earthlink.net>
well thats real simple, 'cept i'm running on NT
Helgi Briem <helgi@NOSPAMdecode.is> wrote in message
news:3b093a4a.3543299064@news.isholf.is...
> On Mon, 21 May 2001 15:24:13 GMT, "R"
> <smrtalec@nospam.earthlink.net> wrote:
> >I've been working on a time sheet app, which thus far I have been
developing
> >on my linux station at work. thus far I have been using DB_File to handle
my
> >data. lately I tried this on my nt station after adding active state and
> >realized DB_File is not loaded even though it says it is.
>
> This is gibberish.
> >I tried downloading
> >DB_File from CPAN but then realized it had to be compliled. and I am
> >clueless in C. anyone have ideas
> >
> You don't have to know any C.
> After you download DB_File-1.77.tar.gz from
> http://search.cpan.org/search?dist=DB_File
> you have to:
>
> $gunzip DB_File-1.77.tar.gz
> $tar -xvf DB_File-1.77.tar
> $cd DB_File-1.77
> $make
> $make test
>
> Now if you are root you can:
> $make install
>
> Otherwise, you need to note the directory
> and add the line
> use lib '/path/to/lib/DB_File-1.77';
> to your perl program.
>
> Regards,
> Helgi Briem
>
>
------------------------------
Date: Mon, 21 May 2001 10:55:07 -0700
From: Drew Krause <drkrause@mindspring.com>
Subject: module for combinatorics? (partitions etc)
Message-Id: <3B09567A.1E032D9@mindspring.com>
I'm especially interested in finding a module or algorithm which will
return a random combination of n integers which sum to x. For example, n
= 5 and x = 18 might return (1 1 1 5 10).
------------------------------
Date: Mon, 21 May 2001 15:01:13 GMT
From: "Todd Smith" <todd@designsouth.net>
Subject: Re: module for combinatorics? (partitions etc)
Message-Id: <Z4aO6.52012$I5.11337820@news1.rdc1.tn.home.com>
"Drew Krause" <drkrause@mindspring.com> wrote in message
news:3B09567A.1E032D9@mindspring.com...
> I'm especially interested in finding a module or algorithm which will
> return a random combination of n integers which sum to x. For example, n
> = 5 and x = 18 might return (1 1 1 5 10).
>
I suppose you tried cpan.org?
------------------------------
Date: Mon, 21 May 2001 12:07:55 -0700
From: Drew Krause <drkrause@mindspring.com>
Subject: Re: module for combinatorics? (partitions etc)
Message-Id: <3B09678B.63803366@mindspring.com>
Todd Smith wrote:
> I suppose you tried cpan.org?
Sure did.
------------------------------
Date: Mon, 21 May 2001 17:12:29 +0200
From: Kjetil Skotheim <kjetilskotheim@iname.com>
To: Drew Krause <drkrause@mindspring.com>
Subject: Re: module for combinatorics? (partitions etc)
Message-Id: <3B09305D.98D55489@iname.com>
perl -e
'$n=5;$x=18;while(1){my$sum;my@sum;for(1..$n){$i=1+int(rand($x-1));push@sum,$i;$sum+=$i}print
join(" ",@sum)."\n" and last if $sum==$x}'
or
print join(" ",combsum(5,18))."\n";
print join(" ",sort {$a<=>$b} combsum(5,18))."\n";
sub combsum
{
my($n,$x)=@_;
while(1){
my($sum,@sum,$i);
for(1..$n){
push @sum, $i=1+int(rand($x-1));
$sum+=$i;
}
return @sum if $sum == $x;
}
}
Drew Krause wrote:
>
> I'm especially interested in finding a module or algorithm which will
> return a random combination of n integers which sum to x. For example, n
> = 5 and x = 18 might return (1 1 1 5 10).
--
Kjetil Skotheim
kjetilskotheim@iname.com
------------------------------
Date: Mon, 21 May 2001 17:14:27 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: module for combinatorics? (partitions etc)
Message-Id: <3b094cf3.80f$26e@news.op.net>
In article <3B09567A.1E032D9@mindspring.com>,
Drew Krause <drkrause@mindspring.com> wrote:
>I'm especially interested in finding a module or algorithm which will
>return a random combination of n integers which sum to x. For example, n
>= 5 and x = 18 might return (1 1 1 5 10).
It depends a lot on how you want them distributed. For example, there
are 3 ways to choose 3 positive integers that sum to 6:
1 1 4
1 2 3
2 2 2
Is it important to you that each of these ways be generated exactly
1/3 of the time? You didn't say.
If you don't care, probably the easiest thing to do is to generate the
first n-1 integers totally at random, and then just compute
x - (i1 + i2 + ...) and let that be the n'th integer.
Nobody would bother writing a module for this because it would be
about four lines long.
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: 21 May 2001 17:44:55 +0100
From: nobull@mail.com
Subject: Re: Need Example creating Registry variable names
Message-Id: <u9ae46bqig.fsf@wcl-l.bham.ac.uk>
"Frank van Geesink" <vGeesink@Planet.NL> writes without attribution:
> > > Here is the test I'm working on.
> >
> > I do not believe you.
>
> The program does function like I wrote on my machine.
My mistake I'd not realised just how klunky Win32::Registry really
was.
[snip rest of my post including sig with no new material ]
Frank, unless it is your intent to cause offence, you should attribute
and trim the text you are quoting. Never quote sigs.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 21 May 2001 15:18:01 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <tgicd9kiqg0qb1@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 14 May 2001 15:31:11 GMT and ending at
21 May 2001 14:28:33 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) 2001 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: 131 (39.6% of all posters)
Articles: 246 (20.5% of all articles)
Volume generated: 447.8 kb (19.7% of total volume)
- headers: 200.3 kb (4,042 lines)
- bodies: 242.2 kb (8,159 lines)
- original: 152.7 kb (5,500 lines)
- signatures: 5.0 kb (103 lines)
Original Content Rating: 0.631
Averages
========
Posts per poster: 1.9
median: 1 post
mode: 1 post - 85 posters
s: 2.3 posts
Message size: 1863.8 bytes
- header: 833.9 bytes (16.4 lines)
- body: 1008.2 bytes (33.2 lines)
- original: 635.8 bytes (22.4 lines)
- signature: 20.8 bytes (0.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
15 33.3 ( 12.9/ 20.4/ 13.1) "Robb Meade" <Ask@For-It.Com>
13 36.9 ( 14.6/ 22.3/ 11.3) myluck42@yahoo.com
10 14.0 ( 6.3/ 7.7/ 4.7) "David Soming" <davsoming@lineone.net>
6 14.0 ( 5.1/ 8.9/ 1.2) John Martin Ping <webmaster@domainenterprises.com>
6 12.2 ( 5.5/ 6.7/ 4.0) "nosabi" <nosabi@snospamabi.com>
5 7.8 ( 4.6/ 3.2/ 2.0) "Lex" <nospam@peng.nl>
5 9.1 ( 4.6/ 4.2/ 2.2) Ilmari Karonen <usenet11462@itz.pp.sci.fi>
4 6.5 ( 3.2/ 2.4/ 0.6) Brian Stevens <brian@stevens.com>
4 4.5 ( 3.1/ 1.4/ 1.0) "Sebastian Ramos" <ramos@terra7.de>
4 9.0 ( 4.0/ 5.0/ 2.2) Andrew Yeretsky <ayeretsk@arm.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
-------------------------- ----- -------
36.9 ( 14.6/ 22.3/ 11.3) 13 myluck42@yahoo.com
33.3 ( 12.9/ 20.4/ 13.1) 15 "Robb Meade" <Ask@For-It.Com>
14.0 ( 6.3/ 7.7/ 4.7) 10 "David Soming" <davsoming@lineone.net>
14.0 ( 5.1/ 8.9/ 1.2) 6 John Martin Ping <webmaster@domainenterprises.com>
12.2 ( 5.5/ 6.7/ 4.0) 6 "nosabi" <nosabi@snospamabi.com>
9.8 ( 1.3/ 8.5/ 8.5) 2 John Bower <jab42@cas.org>
9.1 ( 4.6/ 4.2/ 2.2) 5 Ilmari Karonen <usenet11462@itz.pp.sci.fi>
9.0 ( 4.0/ 5.0/ 2.2) 4 Andrew Yeretsky <ayeretsk@arm.com>
8.3 ( 1.2/ 7.1/ 5.8) 2 "Paul Johnson" <pauljohn@ukans.edu>
8.0 ( 2.4/ 5.6/ 3.0) 3 "Jon" <jon@officedevil.com>
These posters accounted for 6.8% 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 "Rene Scheibe" <Rene.Scheibe@gmx.net>
0.912 ( 4.2 / 4.6) 3 Phil <eclipsephil@aol.comnospam>
0.750 ( 2.8 / 3.7) 3 Ed Coates <ewcoate@nighthawk.dyndns.org>
0.727 ( 2.1 / 2.9) 3 Ilmari Karonen <usenet11461@itz.pp.sci.fi>
0.680 ( 1.0 / 1.4) 4 "Sebastian Ramos" <ramos@terra7.de>
0.653 ( 1.6 / 2.5) 3 Gerhard Schwarz <gerhard.schwarz@fpg.de>
0.647 ( 2.0 / 3.2) 5 "Lex" <nospam@peng.nl>
0.642 ( 13.1 / 20.4) 15 "Robb Meade" <Ask@For-It.Com>
0.625 ( 2.0 / 3.2) 3 "Clinton A. Pierce" <clintp@budman.roalok1.mi.home.com>
0.614 ( 4.7 / 7.7) 10 "David Soming" <davsoming@lineone.net>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.531 ( 3.0 / 5.6) 3 "Jon" <jon@officedevil.com>
0.522 ( 2.2 / 4.2) 5 Ilmari Karonen <usenet11462@itz.pp.sci.fi>
0.507 ( 2.0 / 3.9) 3 Steven Smolinski <steven.smolinski@sympatico.ca>
0.505 ( 11.3 / 22.3) 13 myluck42@yahoo.com
0.442 ( 2.2 / 5.0) 4 Andrew Yeretsky <ayeretsk@arm.com>
0.400 ( 1.1 / 2.7) 3 "Banshee" <defont@nospam.iinet.net.au>
0.357 ( 1.0 / 2.8) 4 dennis@cobolt.net
0.341 ( 1.1 / 3.2) 4 Franco Luissi <boqichi0@earthlink.net>
0.250 ( 0.6 / 2.4) 4 Brian Stevens <brian@stevens.com>
0.136 ( 1.2 / 8.9) 6 John Martin Ping <webmaster@domainenterprises.com>
24 posters (18%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
24 comp.lang.perl.modules
11 alt.perl
10 comp.lang.perl
6 comp.lang.perl.moderated
3 comp.lang.functional
3 comp.lang.scheme
3 comp.lang.smalltalk
3 comp.lang.lisp
3 comp.lang.ada
3 misc.education
Top 10 Crossposters
===================
Articles Address
-------- -------
6 "illya" <illya@rosen-bote.de>
4 Wojciech Domalewski <Wojciech.Domalewski@pnti.waw.pl>
3 "Lance Duncan" <duncanl@bisnet.net>
2 Mick Barry <mick@objects.com.au>
2 John Martin Ping <webmaster@domainenterprises.com>
2 myluck42@yahoo.com
1 "Kim Saunders" <kim.saunders@mercuryit.com.au>
1 "Sam Lay" <sam.lay@mindspring.com>
1 u185760498@spawnkill.ip-mobilphone.net
1 "J Houston" <james@houston73.freeserve.co.uk>
------------------------------
Date: Mon, 21 May 2001 23:08:20 +1000
From: "Tintin" <somewhere@in.paradise.net>
Subject: Re: Newbie perl CGI question
Message-Id: <6r8O6.34$BM.800833@news.interact.net.au>
"harry macdonald" <hmacdonald@europarl.eu.int> wrote in message
news:3B09089A.291E9D39@europarl.eu.int...
> Hello all,
> Please correct me if I'm wrong :-
>
> I'm trying to port from IIS to Apache (still on NT).
> And Apache doesn't seem to like Javascript.
>
> So how can I do the following in Perl :-
> print"<SCRIPT LANGUAGE=JavaScript>
> var person_selected = \"../index.htm\";
> top.location.href= person_selected;
> </script>n\n";
Javascript is not webserver dependant (unless you are running server side
Javascript, which isn't your case).
Learn about alternate quoting methods or here docs, eg:
print qq(<script language="Javascript">.......\n);
or
print <<EOF;
<script language="Javascript"
var person_selected="../index.htm";
..
.
EOF
------------------------------
Date: Mon, 21 May 2001 14:57:04 GMT
From: "Todd Smith" <todd@designsouth.net>
Subject: Re: newbie Question PERL
Message-Id: <41aO6.51991$I5.11335356@news1.rdc1.tn.home.com>
"Rajesh Gupta" <rajesh_gupta@mailcity.com> wrote in message
news:9eb26m$5ub$1@newshost.mot.com...
> Hi,
>
> I downloaded a perl script and was trying to run it. The script is
> something like
>
> #!/usr/pds/bin/perl5.00404
> use lib 'lib/';
> use integer;
> use DB_File;
>
> I get an error message
>
> Can't locate DBFile.pm
>
> What could be the problem?? What shall I do to solve it ??
>
I think if you wrote 'use DB_File' then it would look for 'DB_File.pm', but
either way, you're missing that module (DBFile.pm). Get it at www.cpan.org
------------------------------
Date: Mon, 21 May 2001 15:28:32 +0100
From: rob <nospam@ireland.com>
Subject: Re: Perl icon in Windows- reminder please
Message-Id: <3B092610.1AFC0861@ireland.com>
In Windows Explorer, View -> Folder Options, go to "file types" tab and you can
scroll down to "Perl file" or type 'P' to get there quicker.
If you select "Perl file" and "Edit" button, you can see what actions are
defined for the file type. For example if you select "Open" you'll see the
something like the command "C:\Perl\bin\perl %1"
For the edit option, just replace with "notepad %1"
hth
-rob-
David Soming wrote:
> I have perl version 5.005_03 built for MSWin32-x86-object. (On Win'98)
>
> The extension ".pl" displays an icon on my machine which prevents edit using
> notepad.
> Anyone remind me how to change this so I can use notepad... I forgot how to
> do it!
> lol
> David
------------------------------
Date: 21 May 2001 09:07:09 -0700
From: tobiwan@my-deja.com (Tobiwan)
Subject: Perl, Oracle and cursors
Message-Id: <ae46436e.0105210807.3228eddb@posting.google.com>
I'm trying to use cursors through the Perl DBD:Oracle and DBI modules.
However, I keep getting segmentation faults. I've read the perldoc
pages and searched high and low, tried the example with the
documentation, and tried the following:
_______________________________________________________
#!/usr/local/bin/perl
use DBI;
use DBD::Oracle qw(:ora_types);
$dbh = DBI->connect('DBI:Oracle:','user/password@schema') || die
"Cannot connect to Oracle\n";
$sth1 = $dbh->prepare(q{
BEGIN OPEN :cursor FOR
SELECT table_name, tablespace_name
FROM user_tables WHERE tablespace_name = :space;
END;
});
$sth1->bind_param(":space", "INDX");
my $sth2;
$sth1->bind_param_inout(":cursor", \$sth2, 0, { ora_type =>
ORA_RSET } );
$sth1->execute();
# $sth2 is now a valid DBI statement handle for the cursor
while ( @row = $sth2->fetchrow_array ) {
print "@row\n";
____________________________________________________________
Any ideas? I don't have any problem with simple SELECT statements or
other PL/SQL such as calling stored procedures - unless they return
cursors!
Cheers,
Toby
------------------------------
Date: Mon, 21 May 2001 17:58:34 -0000
From: cberry@cinenet.net (Craig Berry)
Subject: Re: print function
Message-Id: <tgilqaj7pmi50d@corp.supernews.com>
Rene Scheibe (Rene.Scheibe@gmx.net) wrote:
: I have very long string-variables like:
: $teststring=
: "line1part1
: line1part2
: line2part1"
: or something like that.
:
: When I print this variable perl prints all
: in different lines but I want line1part1 and
: line1part2 in one line and line2part1 in another.
: Are there any parameters for print or printf that
: say this function to ignore the normal linefeeds
: in a string-variable definition so I just use \n for
: linefeed.
$teststring =
'line1part1
line1part2\n
line2part1';
$teststring =~ tr/\n//d;
$teststring =~ s/\\n/\n/g;
print "$teststring\n";
--
| Craig Berry - http://www.cinenet.net/~cberry/
--*-- "God becomes as we are that we may be as he is."
| - William Blake
------------------------------
Date: Mon, 21 May 2001 10:15:57 -0400
From: Henry Hartley <hartleh1@westat.com>
Subject: Re: Pronouncing ISA
Message-Id: <3B09231D.7DE52C15@westat.com>
Abigail wrote:
>
> For me, it isn't "Dog IS-A Mammal", but "Dog INHERITS Mammal".
>
> It means the same thing, but I was used to a different terminology,
> and hence a different metaphore.
And should there be an @ISAN as well for things like, "Frog IS-AN
Amphibian"?
--
Henry Hartley
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 949
**************************************
