[19489] in Perl-Users-Digest
Perl-Users Digest, Issue: 1684 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 3 11:05:32 2001
Date: Mon, 3 Sep 2001 08:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <999529507-v10-i1684@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 3 Sep 2001 Volume: 10 Number: 1684
Today's topics:
Web form to Perl SQL query <killspam@redyonder.co.uk>
Re: array questions <jasper@guideguide.com>
Re: Godzilla DOS Perl Script Timer <godzilla@stomp.stomp.tokyo>
Re: Godzilla Stomps Code Red (Helgi Briem)
Re: Godzilla Stomps Code Red <godzilla@stomp.stomp.tokyo>
Re: HASH question <iltzu@sci.invalid>
Re: Inline::Java and mod_perl <tinamue@zedat.fu-berlin.de>
Re: Java mucks up split <goldbb2@earthlink.net>
Net::Ping - How to get an IP address back? (Donald Crowhurst)
Re: Net::Ping - How to get an IP address back? <news@bim.be>
Re: Net::Ping - How to get an IP address back? <Thomas@Baetzler.de>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Open 2 exes from Perl <bart.lateur@skynet.be>
Re: Open 2 exes from Perl <nospam-abuse@ilyaz.org>
Perl mailing lists - alternative interface? nobull@mail.com
Re: Perl mailing lists - alternative interface? (Rafael Garcia-Suarez)
Re: Perl mailing lists - alternative interface? <joe+usenet@sunstarsys.com>
Re: Perl mailing lists - alternative interface? (Randal L. Schwartz)
Re: pipe, fork and Gtk+ <goldbb2@earthlink.net>
Re: POD2Doc? <dausha@visto.com>
Re: Recommendations for a PERL editor <bart.lateur@skynet.be>
references, slices, voodoo <hafner@augusta.de>
Re: references, slices, voodoo (Rafael Garcia-Suarez)
Re: references, slices, voodoo (Tad McClellan)
Re: references, slices, voodoo (Rafael Garcia-Suarez)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Using less memory for hashes <somewhere@in.paradise.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 03 Sep 2001 13:17:44 GMT
From: "Alan Farrington" <killspam@redyonder.co.uk>
Subject: Web form to Perl SQL query
Message-Id: <YpLk7.89703$hm3.5729338@news1.cableinet.net>
Afternoon all - first of all an apology if this is not the correct group to
post, treat me gently I'm only a beginner!
I have a MySQL database that I wish to query via a simple web form - the
code I have written (less the pages of HTML) is shown below.
The problem I have is that when a user of the web form types no information
into the text field and just presses the submit button, it return everything
(including blank rows ) from the database. I can overcome this by putting a
further condition on the entry to the populate array routine, but it's a bit
of a botch.
The input from the web form is captured by the $search_name variable, so I
am assuming that the SQL query looks like %""% - effectively a wildcard
search, but with $search_name uninitiallised.
I'm sure there is a better and more elegant way of doing this. Can anyone
gently point me in the right direction (bearing in mind my limited perl
knowledge)?
Cheers
Alan
Code
follows##################################################################
#!C:/Perl/bin/perl -w
print "Content-type: text/html";
use strict;
use CGI;
use DBI;
use CGI::Carp qw ( fatalsToBrowser );
my ($dsn)="DBI:mysql:m0ajf:localhost";
my ($user_name)="root";
my ($password)="";
my ($dbh,$sth,$query);
#connect to database
$dbh=DBI->connect($dsn,$user_name,$password)|| die "Cannot connect: "
.$DBI::errstr;
my $q= new CGI ();
my $search_name =$q->param( "search_name" );
my ($result,$no_entry,$array_length);
my @stored_result;
my $pop =\@stored_result;
$query="SELECT full_name FROM nt_detail WHERE full_name LIKE ? ";
$sth=$dbh->prepare($query);
$sth->execute("%".$search_name."%");
$result = $sth->fetchrow_array();
if(defined($result)) *** addition && $search_name ne("")
{
@stored_result=(@stored_result,$result);
while(($result)=$sth->fetchrow_array())
{
@stored_result =(@stored_result,$result);
}
$array_length = @stored_result;
}
## do something with array within HTML code and output to browser
$sth ->finish();
$dbh ->disconnect();
--
To reply change red to blue.
alan_farrington@redyonder.co.uk
------------------------------
Date: Mon, 03 Sep 2001 13:45:33 +0100
From: Jasper McCrea <jasper@guideguide.com>
Subject: Re: array questions
Message-Id: <3B937B6D.1E3CB973@guideguide.com>
"E.Chang" wrote:
>
> "Billy Ng" <kwokng@earthlink.net> wrote in
> <Ydjk7.702$IP6.68371@newsread2.prod.itd.earthlink.net>:
>
> > I have 2 questions regarding the array.
> >
> > 1) how can I put an array into an array? If I do push(@parent,
> > @child), it will add the @child's elements into @parent. But I
> > each element in the array is a individual array. Do I need the use
> > hash instead?
>
> The elements of an array are always scalars. To create an "array of
> arrays" you will need to use references to arrays as the elements
> rather than the arrays themselves. Read the core documentation
> sections perlreftut, perlref, and perllol. The documentation in
> available with your Perl installation and also online at perldoc.com.
or you could do this:
@array1 = (@array1, @array2);
(straight from 'Learning Perl' IIRC)
Jasper
--
split//,'019617511192'.
'17011111610114101114'.
'21011141011840799901'.
'17101174';
foreach(0.. # my
$#_){$_[$_ # signature is too
++]^=$_[$_ # bignature
--]^=$_[$_
]^=$_[++ $_]if!($_%
2)}$g.=$_ ,chr($g)=~
/(\w)/&&($o.=$1and
$g='')foreach@_;
print"$o\n"
------------------------------
Date: Mon, 03 Sep 2001 05:49:24 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Godzilla DOS Perl Script Timer
Message-Id: <3B937C54.7FD59D65@stomp.stomp.tokyo>
Thomas Bätzler wrote:
> Godzilla! wrote:
> >This is a low level DOS timer designed to measure
> >the amount of time a Perl script takes to execute
> >in milliseconds. It works quite well but there are
> >some explicit instructions for use.
> [...]
> >My DOS timer is available here as a zip file. It is small:
> >http://la.znet.com/~callgirl/timer.html
> Source, please. Or do you really think people will run a binary of
> dubious origin on their machines? Oh well, you may be right...
My programming ingenuity once again smites a masculine ego.
You are right, of course. My programming ingenuity motivated me
to write a binary executable which, upon run number seven, good
ol' lucky number seven, a bit of ironic programming humor there,
upon the seventh run of my program your monitor will be converted
into a classic Emperor Ming Death Ray Machine which will promptly
blast and burn a blistering hole clean through your empty noggin.
Godzilla!
------------------------------
Date: Mon, 03 Sep 2001 10:38:05 GMT
From: helgi@NOSPAMdecode.is (Helgi Briem)
Subject: Re: Godzilla Stomps Code Red
Message-Id: <3b935d6b.411101382@news.isholf.is>
On Fri, 31 Aug 2001 08:28:09 -0700, "Godzilla!"
<godzilla@stomp.stomp.tokyo> wrote:
>Helgi Briem aka The CLPM Troll wrote:
>
>> Godzilla! wrote:
>
>> >I am female. I do not type with my thumbs.
>
>> No way are you female, Kira. You are a female
>> impersonator as well as a Perl coder impersonator.
>
>
>Feeling more impotent than usual lately, Frank?
>
Frank??? Who's Frank?
Regards,
Helgi Briem
------------------------------
Date: Mon, 03 Sep 2001 05:52:53 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Godzilla Stomps Code Red
Message-Id: <3B937D25.8F21FE77@stomp.stomp.tokyo>
Helgi Briem aka The CLPM Troll wrote:
> Godzilla!
> >Helgi Briem aka The CLPM Troll wrote:
> >> Godzilla! wrote:
> >> >I am female. I do not type with my thumbs.
> >> No way are you female, Kira. You are a female
> >> impersonator as well as a Perl coder impersonator.
> >Feeling more impotent than usual lately, Frank?
> Frank??? Who's Frank?
You, The CLPM Troll, of course.
Godzilla!
--
Registrant:
sfwest (SFWEST-DOM)
1278 E. Colorado Blvd.
Pasadena, CA 91106
US
Domain Name: SFWEST.COM
Administrative Contact, Billing Contact:
Gostak, Frank (FG851) sfwest@SFWEST.COM
SF west
639 Howard Street
San Francisco, CA 94105
415-664-9449 (FAX) 415-882-9188
Technical Contact:
Dennis (DE3131-ORG) admin@LA-HOSTING.COM
Los Angeles Web Site hosting
624 So. Grand Ave., Suite 2900
Los Angeles , CA 90017
------------------------------
Date: 3 Sep 2001 15:03:26 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: HASH question
Message-Id: <999527900.14827@itz.pp.sci.fi>
In article <3b9092ea@e-post.inode.at>, peter pilsl wrote:
>
>If someone asks a question and I think I can contribute a bit to the
>solution, I'll post this bit. But I really dont spend hours with it.
>I give hints and ideas. If I refer to a module 'Dumper' this should be
>enough to find on CPAN.
In a way, this is true. However, you should try to ensure that your
contribution is more signal than noise. This means two things:
1. That your post is not wrong or misleading.
2. That your post is not redundant.
The best way to accomplish both, in a newsgroup like this, is to have
patience. If you are not sure about the answer, please wait and see if
someone else does know it. In this newsgroup, the odds are someone can
indeed provide a correct and authoritative answer to just about any on-
topic question (and quite a few off-topic ones, too).
If, after a few days, you still see no better answer, then it's time to
start posting guesswork. But if everyone and their dog posts the first
"educated guess" that comes to their mind, no-one's going to sort out
the real answer from the resulting chaos.
>You seem to know a lot, but hardly ever post and so noone can share your
>knowledge. This is *not* the meaning of usenet.
>Of course the is a qualitiy-standard, but imho its not half as high as you
>recommend.
Part of the problem is that this thread has been against the "meaning of
usenet" from the start -- the original question, while not actually in
the Perl FAQ, is trivial enough that it shouldn't have been posted in
the first place.
Usenet should be about discussion. Unfortunately, the question that
started this thread did not contain anything to discuss. Ideally, there
should've been one response, giving a minimal answer, a pointer to the
relevant documentation, and declaring the thread closed.
Slow propagation and over-eager posters, however, caused that not to be.
Instead, the thread became a bunch of semirandom guesses, containing in
fact all the elements of the actual answer, but spread over half a dozen
posts and mixed with about 3 parts nonsense to 1 part insight.
>post yourself and fullfil your requirements
Please. Do not post. Any of you. The last thing this thread needs is
more contradictory answers. The OP must already be confused as it is.
The correct answer is in the Perl documentation. By all means look into
the modules and documentation pages recommended in this thread, but do
not actually believe any advice given in it. Most of it is wrong.
(And no, of course I'm not going to post an answer, after I've just told
the OP that nothing in this thread should be trusted. I will, however,
point him at the perldsc manual page and the Data::Dumper module.)
--
Ilmari Karonen -- http://www.sci.fi/~iltzu/
"Get real! This is a discussion group, not a helpdesk. You post something,
we discuss its implications. If the discussion happens to answer a question
you've asked, that's incidental." -- nobull in comp.lang.perl.misc
------------------------------
Date: 3 Sep 2001 10:35:40 GMT
From: Tina Mueller <tinamue@zedat.fu-berlin.de>
Subject: Re: Inline::Java and mod_perl
Message-Id: <9mvmds$4boq5$1@fu-berlin.de>
Tina Mueller <tinamue@zedat.fu-berlin.de> wrote:
> does anybody of you know of possibility to change that? i guess
> if i'm using Inline::Java there is something like a server started.
> i can see the process
> "...../bin/sparc/native_threads/java InlineJavaServer true <port_number>"
> running.
> i also found the line in the JVM.pm. it's called with open3():
> $pid = open3($in, ">&STDOUT", ">&STDERR", $cmd);
> is there a possibility to make this command starting in
> the background?
ok, it actually *is* started in the background, i just have
to call the wrapper script properly.
regards,
tina
--
http://www.tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \ _,_\ __/\ __/_| /__/ perception
--- Warning: content of homepage hopelessly out-dated ---
------------------------------
Date: Mon, 03 Sep 2001 06:09:16 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Java mucks up split
Message-Id: <3B9356CC.5F6B2ABA@earthlink.net>
Abigail wrote:
>
> Trewth Seeker (trewth_seeker@yahoo.com) wrote on MMCMXX September
> MCMXCIII in <URL:news:d690a633.0108282134.61f58a7e@posting.google.com>:
> ??
> ?? Sun claims that these facilities are taken from Perl,
[snip]
> I still don't see an issue here. When Larry designed Perl, he "took"
> the block structure of C and put it into Perl.
Precisely where did Larry say that Perl's block stricture is designed to
mimic C's block structure?
> Except he didn't copy it exactly - braces are mandatory after if(),
> for(), etc, even if there's one statement.
That's prefectly fine -- since Perl is intended to be Perl, not C.
However, Java's regexes *are* intended to be as Perl's. The fact that
they're not makes them broken.
> That didn't cause people in comp.lang.c whining Larry "broke" block
> structures.
Well, if Larry had claimed that Perl's block structures were supposed to
be exactly like C's, then they would have whined. But Larry never
claimed that Perl is C. Perl is Perl.
> Just because you take a feature from one language to incorporate in
> your own doesn't mean it needs to be copied exactly.
Except of course for the situation when you are *claiming* that it is
copied exactly. If you claim it is, but it isn't, then it's broken. If
you aren't making such a claim, then it doesn't matter if it's an exact
copy or not. Larry never made such a claim about blocks, but Java did
make one about regexes.
> Is Java's split also "broken" because Java doesn't have a $* variable?
If Java's split doesn't have support for an analog of /s and /g, then
it's lack of an equivilant to $* would indeed be a kind of brokenness.
Not having looked at the Java regex library in detail myself, I don't
know if it has something which functions like Perl's /s and /g
modifiers. Probably it does.
> Followups set.
Unset, since you claimed things about Perl.
You say that Perl is C, and that Perl breaks C's block structure. I say
that Perl is Perl, and Larry never said that Perl was C, so nothing's
broken in that respect.
You say that Java's regexes are intended to be "like" Perl's regexes,
and were merely "inspired" by them, they aren't broken even though they
don't act like Perl's regexes.
I say, the authors of Java's regexes *did* in fact say that they were
exactly like Perl's regexes, and that by not, in fact, being exactly
like Perl's regexes, they are broken.
--
"I think not," said Descartes, and promptly disappeared.
------------------------------
Date: 3 Sep 2001 06:39:45 -0700
From: lb@postmaster.co.uk (Donald Crowhurst)
Subject: Net::Ping - How to get an IP address back?
Message-Id: <d9f382f6.0109030539.77f44104@posting.google.com>
Hi,
Have managed to get this code to work, on ActivePerl 5.6 under NT4.0,
but it just tells me whether a hostname is alive or not.
$host=rbos000178;
use Net::Ping;
$p = Net::Ping->new("icmp");
if ($p->ping($host)) {
print "$host is alive.\n";
print "$ip \n";
}else {
print "$host is not responding!\n";
}
$p->close();
How can I get it to actually print the IP address in dotted decimal
format? I see that a variable $ip is used in ping.pm, but I'm not good
enough at Perl to pass this back to the calling program.
Thanks,
Don.
------------------------------
Date: Mon, 03 Sep 2001 13:48:00 GMT
From: Bart Mortelmans <news@bim.be>
Subject: Re: Net::Ping - How to get an IP address back?
Message-Id: <3B9389C5.7070602@bim.be>
If you just want to know the IP-address of a domainname, you should use
Net::DNS.
Sincerely,
Bart Mortelmans
Donald Crowhurst wrote:
> Hi,
>
> Have managed to get this code to work, on ActivePerl 5.6 under NT4.0,
> but it just tells me whether a hostname is alive or not.
>
> $host=rbos000178;
> use Net::Ping;
> $p = Net::Ping->new("icmp");
> if ($p->ping($host)) {
> print "$host is alive.\n";
> print "$ip \n";
> }else {
> print "$host is not responding!\n";
> }
> $p->close();
>
> How can I get it to actually print the IP address in dotted decimal
> format? I see that a variable $ip is used in ping.pm, but I'm not good
> enough at Perl to pass this back to the calling program.
>
> Thanks,
>
> Don.
>
------------------------------
Date: Mon, 03 Sep 2001 16:40:45 +0200
From: =?ISO-8859-1?Q?Thomas_B=E4tzler?= <Thomas@Baetzler.de>
Subject: Re: Net::Ping - How to get an IP address back?
Message-Id: <sa57ptcjhtvva3dari7klbtan0o23kt5s3@4ax.com>
Hi,
On Mon, 03 Sep 2001 13:48:00 GMT, Bart Mortelmans <news@bim.be> wrote:
[tofu reformatted and snipped]
>Donald Crowhurst wrote:
[...]
>> How can I get it to actually print the IP address in dotted decimal
>> format? I see that a variable $ip is used in ping.pm, but I'm not good
>> enough at Perl to pass this back to the calling program.
>If you just want to know the IP-address of a domainname, you should use
>Net::DNS.
You don't want to use Net::DNS if your host name is not listed in the
DNS - for stuff that's resolved by WINS, use Socket.pm's inet_ntoa and
inet_aton, like this:
#!/usr/bin/perl -w
use strict;
use Socket;
$host="rbos000178";
if( defined( my $packed_addr = inet_aton($host) ) ){
print inet_ntoa( $packed_addr ) );
} else {
print "Can't resolve $host!\n";
}
__END__
HTH,
--
Thomas Baetzler - http://baetzler.de/ - Clan LoL - http://lavabackflips.de/
I am the "ILOVEGNU" signature virus. Just copy me to your signature.
This post was infected under the terms of the GNU General Public License.
------------------------------
Date: Mon, 03 Sep 2001 14:53:04 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <tp76agm2gfjn4e@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 27 Aug 2001 16:05:26 GMT and ending at
03 Sep 2001 15:10:34 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: 132 (37.7% of all posters)
Articles: 241 (19.6% of all articles)
Volume generated: 405.5 kb (17.5% of total volume)
- headers: 189.5 kb (3,880 lines)
- bodies: 209.4 kb (6,961 lines)
- original: 130.0 kb (4,618 lines)
- signatures: 6.3 kb (166 lines)
Original Content Rating: 0.621
Averages
========
Posts per poster: 1.8
median: 1.0 post
mode: 1 post - 79 posters
s: 2.0 posts
Message size: 1722.9 bytes
- header: 805.4 bytes (16.1 lines)
- body: 889.7 bytes (28.9 lines)
- original: 552.5 bytes (19.2 lines)
- signature: 26.8 bytes (0.7 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
16 33.9 ( 12.6/ 21.3/ 7.9) Trewth Seeker <trewth_seeker@yahoo.com>
7 16.8 ( 6.5/ 8.7/ 5.3) Ilmari Karonen <usenet11562@itz.pp.sci.fi>
6 10.4 ( 5.3/ 5.0/ 1.7) bob@eawf.nospam.com
6 12.6 ( 4.7/ 7.9/ 3.1) Crazydj <Crazydj@web.de>
6 11.0 ( 5.1/ 5.9/ 2.6) Doug King <Doug.King@abh.siemens.com>
5 9.2 ( 3.9/ 5.3/ 3.1) "Matthew Frick" <mfrick@chariot.net.au>
4 4.7 ( 3.1/ 1.6/ 1.6) Fredrik Andersson <fredrik.andersson@esavionics.se>
4 6.8 ( 3.0/ 3.9/ 1.8) Sara <genericax@hotmail.com>
4 5.9 ( 3.0/ 2.9/ 1.1) "Alex Green" <alexdgreen@hotmail.com>
4 10.3 ( 3.7/ 6.6/ 3.9) "ninpo" <bla@bla.bla>
These posters accounted for 5.0% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
33.9 ( 12.6/ 21.3/ 7.9) 16 Trewth Seeker <trewth_seeker@yahoo.com>
16.8 ( 6.5/ 8.7/ 5.3) 7 Ilmari Karonen <usenet11562@itz.pp.sci.fi>
12.6 ( 4.7/ 7.9/ 3.1) 6 Crazydj <Crazydj@web.de>
11.0 ( 5.1/ 5.9/ 2.6) 6 Doug King <Doug.King@abh.siemens.com>
10.4 ( 5.3/ 5.0/ 1.7) 6 bob@eawf.nospam.com
10.3 ( 5.0/ 3.0/ 0.6) 4 Little Pussy <bemsha@midsouthSPAM.rr.com>
10.3 ( 3.7/ 6.6/ 3.9) 4 "ninpo" <bla@bla.bla>
9.2 ( 3.9/ 5.3/ 3.1) 5 "Matthew Frick" <mfrick@chariot.net.au>
8.5 ( 1.7/ 6.5/ 1.5) 3 Sam <sam_5_5_5_0@REMOVEyahoo.com>
7.9 ( 3.1/ 4.8/ 2.5) 3 jamesrwagoner@yahoo.com
These posters accounted for 5.6% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.6 / 1.6) 4 Fredrik Andersson <fredrik.andersson@esavionics.se>
0.931 ( 2.0 / 2.2) 3 "WHW" <us@webhostwatch.co.ukNOSPAM>
0.840 ( 3.5 / 4.2) 4 Benoit Gauthier <gauthier@circum.com>
0.721 ( 0.3 / 0.4) 3 cheng huang <cheng@cs.wustl.edu>
0.608 ( 5.3 / 8.7) 7 Ilmari Karonen <usenet11562@itz.pp.sci.fi>
0.584 ( 3.9 / 6.6) 4 "ninpo" <bla@bla.bla>
0.580 ( 3.1 / 5.3) 5 "Matthew Frick" <mfrick@chariot.net.au>
0.530 ( 2.5 / 4.8) 3 jamesrwagoner@yahoo.com
0.526 ( 2.4 / 4.5) 4 "Marco Baringer" <marco.baringer@convey.it>
0.475 ( 1.8 / 3.9) 4 Sara <genericax@hotmail.com>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.439 ( 2.6 / 5.9) 6 Doug King <Doug.King@abh.siemens.com>
0.396 ( 3.1 / 7.9) 6 Crazydj <Crazydj@web.de>
0.394 ( 1.4 / 3.7) 3 "Gifford Birchley" <gbirchley@hotmail.com>
0.390 ( 1.1 / 2.9) 4 "Alex Green" <alexdgreen@hotmail.com>
0.373 ( 7.9 / 21.3) 16 Trewth Seeker <trewth_seeker@yahoo.com>
0.342 ( 1.7 / 5.0) 6 bob@eawf.nospam.com
0.278 ( 0.6 / 2.3) 3 dogansmoobs.NOSPAM@ctel.net
0.225 ( 1.5 / 6.5) 3 Sam <sam_5_5_5_0@REMOVEyahoo.com>
0.190 ( 0.5 / 2.5) 3 Kristian Fischer <kristian.fischer@koehlershohn.de>
0.182 ( 0.6 / 3.0) 4 Little Pussy <bemsha@midsouthSPAM.rr.com>
21 posters (15%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
14 comp.lang.perl.modules
13 alt.games.half-life.tfclassic
11 alt.perl
6 comp.lang.java.programmer
3 comp.lang.perl
3 comp.sys.hp.hpux
3 comp.lang.tcl
2 comp.unix.solaris
2 alt.perl.sockets
2 comp.infosystems.www.servers.unix
Top 10 Crossposters
===================
Articles Address
-------- -------
4 Little Pussy <bemsha@midsouthSPAM.rr.com>
2 crypto_boy <crypto-boy@llnl.gov>
2 Klaus Koch <kkoch@kxsu.de>
2 Ilmari Karonen <usenet11566@itz.pp.sci.fi>
2 u410400390@spawnkill.ip-mobilphone.net
1 Alan D Johnson <adjtech@ulster.net>
1 Daniel Harik <http404@hot.ee>
1 "Jonathan" <jonathan@bakerbates.SPAMGONE.com>
1 Ulrich Windl <wiu09524@rrzc2.rz.uni-regensburg.de>
1 Trewth Seeker <trewth_seeker@yahoo.com>
------------------------------
Date: Mon, 03 Sep 2001 11:30:51 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Open 2 exes from Perl
Message-Id: <udq6pt8361gmtudsejv8ltth79rk48i32d@4ax.com>
George K wrote:
>The closest I've come is
>system ('c:\winnt\notepad.exe');
system 'start', 'notepad';
This one won't wait for notepad to close.
--
Bart.
------------------------------
Date: Mon, 3 Sep 2001 13:44:43 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Open 2 exes from Perl
Message-Id: <9n01gb$2h5v$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
George K
<gkdata@cs.com>], who wrote in article <5b5f48f5.0108310933.1b78a448@posting.google.com>:
> I am trying to do the following 2 things from one script:
> - change the current directory of my command window to another
> directory
> - open Win Notepad.exe
>
> The closest I've come is
> system ('c:\winnt\notepad.exe');
> system ('%SystemRoot%\system32\cmd.exe');
what for?
> wait();
Wait for what?
> So my question is : is it possible to call and run two seperate exe
> files from a single perl script? If so, could you point me to the
> proper docs so I can learn how? (I'd rather learn myself than have you
> GIVE me the answer.)
With the exception of legacy systems, you can put 1 as the first
argument to system() to start a program asyncroneously (retval is the PID).
Ilya
P.S. On legacy systems (Unix etc) you need much more hoola-hoops than
this. People object to making '1' work the same way everywhere.
------------------------------
Date: 03 Sep 2001 11:35:04 +0100
From: nobull@mail.com
Subject: Perl mailing lists - alternative interface?
Message-Id: <u98zfwv9yf.fsf@wcl-l.bham.ac.uk>
I really do not want to have to subscribe to several mailing lists and
flood my mail server just to be able partake in specialist Perl
discussions.
Are there any servers out there offering live archives of the mailing
lists (in particular the DBI ones) with either a decent threaded web
interface or a NNTP interface?
Searching would be good too.
BTW: lists.perl.org is down at the moment - is this a transient or
persistant problem?
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 3 Sep 2001 11:09:07 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Perl mailing lists - alternative interface?
Message-Id: <slrn9p6p6o.98v.rgarciasuarez@rafael.kazibao.net>
nobull@mail.com wrote in comp.lang.perl.misc:
}
} Are there any servers out there offering live archives of the mailing
} lists (in particular the DBI ones) with either a decent threaded web
} interface or a NNTP interface?
nntp.perl.org carries a lot of mailing lists. It's read-only (I think).
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: 03 Sep 2001 09:52:27 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: Perl mailing lists - alternative interface?
Message-Id: <m38zfwjs9w.fsf@mumonkan.sunstarsys.com>
nobull@mail.com writes:
> Are there any servers out there offering live archives of the mailing
> lists (in particular the DBI ones) with either a decent threaded web
> interface or a NNTP interface?
http://archive.develooper.com/
AFAIK it's not searchable though.
--
Joe Schaefer "If you pick up a starving dog and make him prosperous, he will
not bite you. This is the principal difference between a dog and
a man."
--Mark Twain
------------------------------
Date: 03 Sep 2001 07:10:34 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Perl mailing lists - alternative interface?
Message-Id: <m1elpoe55x.fsf@halfdome.holdit.com>
>>>>> "Rafael" == Rafael Garcia-Suarez <rgarciasuarez@free.fr> writes:
Rafael> nntp.perl.org carries a lot of mailing lists. It's read-only (I think).
No, I post all the time through it. I'm now on all 50-ish mailing lists
without a single subscription. Wheee!
print "Just another Perl hacker,"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 03 Sep 2001 06:14:33 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: pipe, fork and Gtk+
Message-Id: <3B935809.8F416015@earthlink.net>
Jens Luedicke wrote:
>
> hi ...
>
> trace says:
>
> write(3, "F\0\5\0y\0\200\1\v\0\200\1\0\0\0\0\366\0\1\0F\0\5\0y\0"..., 2044) = -1 EPIPE (Broken pipe)
> --- SIGPIPE (Broken pipe) ---
> write(2, "Gdk-ERROR **: X connection to :0"..., 78Gdk-ERROR **: X connection to :0.0 broken (explicit kill or server shutdown).
> ) = 78
> munmap(0x40016000, 4096) = 0
> _exit(1) = ?
It sounds like the destructors in the child process are sending some
sort of shutdown message to the X server when the child calls exit.
The solution would seem to be to replace "exit;" with "POSIX::_exit;" in
the child proccess. [and of course you need "use POSIX qw(exit);"
somewhere in your script]
--
"I think not," said Descartes, and promptly disappeared.
------------------------------
Date: Mon, 03 Sep 2001 14:04:20 GMT
From: "Benjamin Wilson" <dausha@visto.com>
Subject: Re: POD2Doc?
Message-Id: <E5Mk7.59113$hT4.14742628@news1.rdc1.md.home.com>
The reason for the bloat (and I agree with the woes of MacroShaft) is as
another poster stated, internal standards. I've been successful in getting
the shop I work in to implement an internal web area to store the documents,
and as a direct consequence I've taken to PODing all my code (a majority of
which is Perl). I have an automatic documentation suite checking the source
code directories for PODs and updating the web area using POD2HTML.
However, since there is some desire with the customer (i.e., US Government)
to have things in a 'universal' standard (i.e., MS Word--talk about ironic).
Hey, I'm slowly converting them to Open Source. This is the next step.
Thanks,
Ben
"Rob - Rock13.com" <rob_13@excite.com> wrote in message
news:Xns91101BBC7113Brock13com@64.8.1.227...
> Benjamin Wilson
> <news:CDik7.53577$hT4.13375667@news1.rdc1.md.home.com>:
>
> > Hey! I'm wondering if there's a POD converter to an MS Word
> > document.
>
> Not that I know of, you might look at CPAN. There appears to be a
> pod2rtf.
>
> http://www.google.com/search?q=pod2rtf
>
> I can't see the point in converting to a Word document--why create
> something that bloated and proprietary out of something that is
> simple.
>
> --
> Rob - http://rock13.com/
> Web Stuff: http://rock13.com/webhelp/
------------------------------
Date: Mon, 03 Sep 2001 14:49:51 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Recommendations for a PERL editor
Message-Id: <r167ptgj156g715ljg3g7b84m988kgloqa@4ax.com>
Tad McClellan wrote:
>>An ISP support person
>>tells me it has syntax errors that are introduced by the editor.
>
>
>What errors does it introduce?
As a guess: I think current day notepad supports Unicode (2 bytes per
character). That could be one problem.
Or, it could be plain and simple DOS<->Unix line-ends, which can be
resolved by FTP'ing in Ascii mode.
--
Bart.
------------------------------
Date: 03 Sep 2001 13:46:15 +0200
From: Walter Hafner <hafner@augusta.de>
Subject: references, slices, voodoo
Message-Id: <qdfd758lcoo.fsf@www.ibexnet.de>
Hi there,
today i had to shuffle a list, so i looked at the FAQ first. The
solution there was (slightly modified):
# fisher_yates_shuffle( \@array ) :
# generate a random permutation of @array in place
sub fisher_yates_shuffle {
my $array = shift;
for (my $i = @$array; --$i; ) {
my $j = int rand ($i+1);
@$array[$i,$j] = @$array[$j,$i] unless $i == $j; # ???
}
}
fisher_yates_shuffle( \@array ); # permutes @array in place
Well, it works - but that's not surprising, being in the FAQs.
Since i don't like to use code I don't understand, i really need to know
WHY this code works.
My interpretation is "array slices" in the line i marked with "???" but
the deep voodoo is beyond me.
Any hints?
Thanks
-Walter
------------------------------
Date: 3 Sep 2001 12:12:49 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: references, slices, voodoo
Message-Id: <slrn9p6su6.9g9.rgarciasuarez@rafael.kazibao.net>
Walter Hafner wrote in comp.lang.perl.misc:
} Hi there,
}
} today i had to shuffle a list, so i looked at the FAQ first. The
} solution there was (slightly modified):
}
} # fisher_yates_shuffle( \@array ) :
} # generate a random permutation of @array in place
} sub fisher_yates_shuffle {
} my $array = shift;
} for (my $i = @$array; --$i; ) {
} my $j = int rand ($i+1);
} @$array[$i,$j] = @$array[$j,$i] unless $i == $j; # ???
} }
} }
}
} fisher_yates_shuffle( \@array ); # permutes @array in place
}
} Well, it works - but that's not surprising, being in the FAQs.
}
} Since i don't like to use code I don't understand, i really need to know
} WHY this code works.
}
} My interpretation is "array slices" in the line i marked with "???" but
} the deep voodoo is beyond me.
This lines swaps the values of the elements $i and $j in the array.
It's equivalent to :
($array[$i],$array[$j]) = ($array[$j],$array[$i]) unless $i == $j;
or even the C-like code :
if ($i != $j) {
my $tmp = $array[$i];
$array[$i] = $array[$j];
$array[$j] = $tmp;
}
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Mon, 3 Sep 2001 08:39:00 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: references, slices, voodoo
Message-Id: <slrn9p6uf4.m0m.tadmc@tadmc26.august.net>
Rafael Garcia-Suarez <rgarciasuarez@free.fr> wrote:
>Walter Hafner wrote in comp.lang.perl.misc:
>} @$array[$i,$j] = @$array[$j,$i] unless $i == $j; # ???
>} Since i don't like to use code I don't understand, i really need to know
>} WHY this code works.
>This lines swaps the values of the elements $i and $j in the array.
>It's equivalent to :
>
> ($array[$i],$array[$j]) = ($array[$j],$array[$i]) unless $i == $j;
^^ ^^ ^^ ^^
$array is a reference, so those should all be deref'ing, eg:
$array->[$i] (until we get to Perl 6)
It is unfortunate that the FAQ chose "@array" as a name for the (presumably)
global array used in the function call, as that makes the above appear
to "work" when it is not, in fact, acting on its args but on a global variable.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 3 Sep 2001 14:35:05 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: references, slices, voodoo
Message-Id: <slrn9p758v.e84.rgarciasuarez@rafael.kazibao.net>
Tad McClellan wrote in comp.lang.perl.misc:
} >It's equivalent to :
} >
} > ($array[$i],$array[$j]) = ($array[$j],$array[$i]) unless $i == $j;
} ^^ ^^ ^^ ^^
}
} $array is a reference, so those should all be deref'ing, eg:
}
} $array->[$i] (until we get to Perl 6)
You're obviously right.
} It is unfortunate that the FAQ chose "@array" as a name for the (presumably)
} global array used in the function call, as that makes the above appear
} to "work" when it is not, in fact, acting on its args but on a global variable.
I just sent a patch to p5p to correct this ;-)
--
Rafael Garcia-Suarez
------------------------------
Date: Mon, 03 Sep 2001 14:53:02 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <tp76aepeb1aa4d@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 27 Aug 2001 16:05:26 GMT and ending at
03 Sep 2001 15:10:34 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.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
faq\@(?:.*\.)?denver\.pm\.org
Totals
======
Posters: 350
Articles: 1231 (536 with cutlined signatures)
Threads: 332
Volume generated: 2321.2 kb
- headers: 1011.8 kb (19,917 lines)
- bodies: 1222.4 kb (40,399 lines)
- original: 750.8 kb (27,186 lines)
- signatures: 85.9 kb (1,861 lines)
Original Content Rating: 0.614
Averages
========
Posts per poster: 3.5
median: 2.0 posts
mode: 1 post - 170 posters
s: 6.7 posts
Posts per thread: 3.7
median: 3.0 posts
mode: 1 post - 112 threads
s: 6.4 posts
Message size: 1930.9 bytes
- header: 841.6 bytes (16.2 lines)
- body: 1016.8 bytes (32.8 lines)
- original: 624.5 bytes (22.1 lines)
- signature: 71.5 bytes (1.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
61 126.0 ( 53.5/ 72.5/ 54.8) "Godzilla!" <godzilla@stomp.stomp.tokyo>
55 122.0 ( 44.3/ 74.8/ 36.7) Benjamin Goldberg <goldbb2@earthlink.net>
36 93.7 ( 40.8/ 48.0/ 34.6) tadmc@augustmail.com
31 69.2 ( 29.1/ 34.3/ 31.3) abigail@foad.org
29 58.9 ( 22.7/ 34.6/ 14.8) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
28 51.2 ( 23.0/ 27.4/ 14.3) "John W. Krahn" <krahnj@acm.org>
27 59.0 ( 22.1/ 31.1/ 19.2) mgjv@tradingpost.com.au
22 49.9 ( 22.9/ 19.3/ 11.6) Tassilo von Parseval <Tassilo.Parseval@post.rwth-aachen.de>
19 31.1 ( 14.6/ 9.4/ 2.6) Ilya Martynov <ilya@martynov.org>
18 35.4 ( 14.3/ 17.1/ 8.1) news@tinita.de
These posters accounted for 26.5% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
126.0 ( 53.5/ 72.5/ 54.8) 61 "Godzilla!" <godzilla@stomp.stomp.tokyo>
122.0 ( 44.3/ 74.8/ 36.7) 55 Benjamin Goldberg <goldbb2@earthlink.net>
93.7 ( 40.8/ 48.0/ 34.6) 36 tadmc@augustmail.com
69.2 ( 29.1/ 34.3/ 31.3) 31 abigail@foad.org
59.0 ( 22.1/ 31.1/ 19.2) 27 mgjv@tradingpost.com.au
58.9 ( 22.7/ 34.6/ 14.8) 29 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
51.2 ( 23.0/ 27.4/ 14.3) 28 "John W. Krahn" <krahnj@acm.org>
50.6 ( 13.0/ 37.6/ 29.2) 16 Yves Orton <demerphq@hotmail.com>
49.9 ( 22.9/ 19.3/ 11.6) 22 Tassilo von Parseval <Tassilo.Parseval@post.rwth-aachen.de>
35.4 ( 14.3/ 17.1/ 8.1) 18 news@tinita.de
These posters accounted for 30.8% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.994 ( 6.0 / 6.1) 9 Rafael Garcia-Suarez <rgarciasuarez@free.fr>
0.914 ( 31.3 / 34.3) 31 abigail@foad.org
0.851 ( 13.6 / 16.0) 6 "Steffen Müller" <tsee@gmx.net>
0.777 ( 29.2 / 37.6) 16 Yves Orton <demerphq@hotmail.com>
0.765 ( 3.6 / 4.7) 7 MMX166+2 . 1G HD <no@mail.addr>
0.756 ( 54.8 / 72.5) 61 "Godzilla!" <godzilla@stomp.stomp.tokyo>
0.752 ( 7.3 / 9.7) 12 Mark Jason Dominus <mjd@plover.com>
0.720 ( 34.6 / 48.0) 36 tadmc@augustmail.com
0.716 ( 6.6 / 9.2) 6 Logan Shaw <logan@cs.utexas.edu>
0.688 ( 3.2 / 4.6) 6 "fruiture" <info@fruiture.de>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.417 ( 5.0 / 12.1) 16 Randal L. Schwartz <merlyn@stonehenge.com>
0.396 ( 3.1 / 7.9) 6 Crazydj <Crazydj@web.de>
0.396 ( 5.8 / 14.5) 17 Ren Maddox <ren@tivoli.com>
0.373 ( 7.9 / 21.3) 16 Trewth Seeker <trewth_seeker@yahoo.com>
0.348 ( 1.5 / 4.4) 9 Bob Walton <bwalton@rochester.rr.com>
0.345 ( 3.8 / 10.9) 5 Uri Guttman <uri@sysarch.com>
0.342 ( 1.7 / 5.0) 6 bob@eawf.nospam.com
0.319 ( 1.2 / 3.6) 5 Rainer Klier <Rainer.Klier@erl.sbs.de>
0.312 ( 4.8 / 15.5) 9 "David Hilsee" <davidhilseenews@yahoo.com>
0.278 ( 2.6 / 9.4) 19 Ilya Martynov <ilya@martynov.org>
59 posters (16%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
25 Difference between .pl, .cgi, and .pm File Extensions.
20 how to get character from string one by one?
19 Godzilla Stomps Code Red
18 Dangerous Perl Script?
18 use() versus import() changing semantics?
17 search.cpan.org
16 Java mucks up split
14 warnings with cgi will crash Win32 perl core
14 Calling sub funcs with scalar variables?
13 fwd: Sex or perl?
These threads accounted for 14.1% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
47.3 ( 23.3/ 22.7/ 11.1) 25 Difference between .pl, .cgi, and .pm File Extensions.
45.4 ( 17.6/ 26.7/ 17.9) 20 how to get character from string one by one?
38.0 ( 12.9/ 23.7/ 11.1) 14 Calling sub funcs with scalar variables?
37.0 ( 15.9/ 17.7/ 7.7) 18 use() versus import() changing semantics?
36.6 ( 15.0/ 21.0/ 11.8) 18 Dangerous Perl Script?
36.1 ( 16.9/ 19.0/ 12.7) 19 Godzilla Stomps Code Red
35.2 ( 7.8/ 27.0/ 20.3) 9 can this perl script be more elegant/shorter ?
31.4 ( 11.8/ 18.6/ 10.0) 16 Java mucks up split
31.2 ( 11.9/ 18.1/ 10.6) 11 Performance : Shell X Perl
29.2 ( 15.2/ 8.4/ 2.0) 13 fwd: Sex or perl?
These threads accounted for 15.8% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.883 ( 3.7/ 4.2) 5 file search
0.826 ( 4.1/ 5.0) 6 GetOpt::Long error
0.808 ( 3.7/ 4.6) 5 PerlFS again?
0.754 ( 20.3/ 27.0) 9 can this perl script be more elegant/shorter ?
0.751 ( 7.5/ 10.0) 5 Preliminary task description
0.747 ( 2.4/ 3.3) 5 Script Error?
0.746 ( 1.0/ 1.4) 5 I need perl for beginners
0.722 ( 7.9/ 11.0) 6 multithreaded LWP
0.716 ( 4.2/ 5.9) 5 is perl an 'interpretative' language?
0.715 ( 2.5/ 3.5) 6 Unix perl directory conventions??
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.434 ( 7.7 / 17.7) 18 use() versus import() changing semantics?
0.432 ( 1.9 / 4.3) 5 anonymous code refs and 'sort'
0.421 ( 5.3 / 12.5) 10 Programming sockets
0.416 ( 3.3 / 8.0) 8 Script not reading templates - why??
0.412 ( 4.4 / 10.7) 10 Perl 101 Question
0.393 ( 4.7 / 12.0) 13 system call
0.335 ( 1.9 / 5.6) 5 delete duplicate records
0.331 ( 1.7 / 5.1) 5 Avoiding symbolic references.
0.326 ( 4.7 / 14.3) 8 Simple RegExp Question
0.243 ( 2.0 / 8.4) 13 fwd: Sex or perl?
92 threads (27%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
14 comp.lang.perl.modules
13 alt.games.half-life.tfclassic
11 alt.perl
6 comp.lang.java.programmer
3 comp.lang.perl
3 comp.sys.hp.hpux
3 comp.lang.tcl
2 comp.unix.solaris
2 alt.perl.sockets
2 comp.infosystems.www.servers.unix
Top 10 Crossposters
===================
Articles Address
-------- -------
5 Johan Vromans <JVromans@Squirrel.nl>
4 Little Pussy <bemsha@midsouthSPAM.rr.com>
4 "Brian A. Stumm" <bs@bs-linux.com>
3 Joe Schaefer <joe+usenet@sunstarsys.com>
3 "_Mario Latens" <mario.lat@libero.it>
3 peter pilsl <pilsl_@goldfisch.at>
3 David Combs <dkcombs@panix.com>
2 Andrew Torda <Andrew.Torda@anu.edu.au>
2 crypto_boy <crypto-boy@llnl.gov>
2 Klaus Koch <kkoch@kxsu.de>
------------------------------
Date: Mon, 3 Sep 2001 20:14:24 +1000
From: "Tintin" <somewhere@in.paradise.net>
Subject: Re: Using less memory for hashes
Message-Id: <NLIk7.15$MN4.286830@news.interact.net.au>
"Jonas Nilsson" <jonni@ifm.liu.nospam.se> wrote in message
news:9mvb3j$7ej$1@newsy.ifm.liu.se...
> "Tintin" <somewhere@in.paradise.net> wrote in message
> news:08fk7.6$4y3.206907@news.interact.net.au...
> | I'm interested in various techniques to reduce memory usage using
hashes.
> | Typcially, I'm talking about where a large file (say >1Gb) is read into
a
> | hash and then sorted.
> |
>
> It would help us to help you, if you supplied i small portion of the file
> you want to have sorted and in which way you want to have it sorted.
I'm not talking about any specific file format. I'm talking in general. If
I have any file with fields that are read in and manipulated, then the
format is not that important, whereas the size is.
This question was initially triggered by trying to use snortsnarf
http://www.silicondefense.com/software/snortsnarf/index.htm on very large
snort logs (>5Gb). This caused the server to swap like crazy and
performance was crap. Again, this is not specific to any type of log file,
but a more general question on how to process large files with hashes
without running out of swap space.
------------------------------
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 1684
***************************************
