[25015] in Perl-Users-Digest
Perl-Users Digest, Issue: 7265 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 18 11:07:18 2004
Date: Mon, 18 Oct 2004 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)
Perl-Users Digest Mon, 18 Oct 2004 Volume: 10 Number: 7265
Today's topics:
Audio DSP Perl Module (Hemalatha N)
Re: Error.pm and DBI.pm problem (Horst Walter)
Graph module and multiedge graphs <jim.mozley@exponential-e.com>
Re: Graph module and multiedge graphs (Anno Siegel)
Re: Graph module and multiedge graphs <jim.mozley@exponential-e.com>
Re: Lowest array value given index (Anno Siegel)
Re: overriding perl switch (Anno Siegel)
Re: overriding perl switch (Anno Siegel)
Re: overriding perl switch <tadmc@augustmail.com>
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Re: Top 10 list algorithm <eam@7ka.mipt.ru>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Oct 2004 00:42:28 -0700
From: hemalatha@lantana.tenet.res.in (Hemalatha N)
Subject: Audio DSP Perl Module
Message-Id: <60bcca23.0410172342.6d6e1f8e@posting.google.com>
Hello Everyone!
I am using Audio::DSP, a PERL module for reading the sound card
directly in Linux. But, when I try to install it on a machine with an
inbuilt sound card, it doesn't saying "unable to set format".
Actually, the inbuilt sound cards have the capacity to record only in
a particular sampling frequency.
Can we do something to use Audio DSP to read the sound card in this
case also?
Regards,
Hemalatha
------------------------------
Date: 18 Oct 2004 00:30:02 -0700
From: unkwb@web.de (Horst Walter)
Subject: Re: Error.pm and DBI.pm problem
Message-Id: <53867fbe.0410172330.5983014a@posting.google.com>
I have setup another Perl system and tested it there. As with your
envs. it is working fine there.
So I guess the problems are due to the libs on the SUN I have
originally used. When I finally figure out what the problem with the
setup is, I will post it here.
Thanks to all who have helped me so far.
Best Regards
HW
--------------
unkwb@web.de (Horst Walter) wrote in message news:<53867fbe.0410121256.324ffe82@posting.google.com>...
> Thanks a lot Peter & Rhesa for your support. I will try both of your
> hints on Friday, since I am attending a conference right now.
>
> Best regards
> HW
>
>
>
> peter@PSDT.com (Peter Scott) wrote in message news:<s%Rad.702180$M95.264393@pd7tw1no>...
> > In article <53867fbe.0410110738.6976f45a@posting.google.com>,
> > unkwb@web.de (Horst Walter) writes:
> > >Here is a complete one you can run. I read all I found about error.pm,
> > >I am only not certain whether I have to include other use statements
> > >like qw(:catch).
> >
> > No, you don't.
> >
> > >Error is still
> > >Error: Can't call method "with" without a package or object reference
> >
> > I ran the below with changes for db account and got the expected
> > "Illegal division by zero at..."
> >
> > You have to set ORACLE_HOME, but presumably you do that outside
> > the script.
> >
> > I tried Perl 5.6.1 and 5.004 with the same results.
> >
> > All I can think is that you have a bad DBI.pm, bad DBD::Oracle.pm,
> > or bad Error.pm. Try creating a brand new perl on a different
> > computer altogether, installing the latest versions of those
> > modules, and point your script back at your Oracle server.
> >
> > >use strict;
> > >use warnings;
> > >use Error qw(:try);
> > >use DBI;
> > >
> > ># global
> > >
> > >my $db = "XXXX";
> > >my $password = "XXXXX";
> > >my $username = "XXXXX";
> > >my $oracle_sid = $db;
> > >my $dbh;
> > >
> > >try {
> > >
> > > unless ( $dbh = DBI->connect("dbi:Oracle:$oracle_sid", "$username",
> > >$password, {AutoCommit => 0}) ) {
> > > print STDERR ("autodb::oracleLogin login Failed as
> > >$username\/$password\@$oracle_sid");
> > > }
> > > unless ($dbh->disconnect) {
> > > print STDERR "autodb::oracleLogoff $DBI::errstr";
> > > }
> > > # force an error
> > > my $n = 0;
> > > print 0/$n;
> > >} catch Error with {
> > > my $err = shift;
> > > print $err;
> > >}
------------------------------
Date: Mon, 18 Oct 2004 09:18:25 +0100
From: Jim Mozley <jim.mozley@exponential-e.com>
Subject: Graph module and multiedge graphs
Message-Id: <2thcgkF1v85s9U1@uni-berlin.de>
I am trying to use the graph module (Graph-0.20105) to implement a
multigraph representing a computer network. Where I am after some help
is in implementing a multiedge.
I can add an edge using:
$G = $G->add_edge($u, $v)
But when I have multiple redundent edges between the same $u and $v
there seems to be no way to manipulate the edges as discrete objects.
The add_edge method returns a graph object, if it returned an edge
object I could add an attribute to it.
After looking at the module source I have tried following the example of:
$G->add_weighted_edge($u, $w, $v, $a)
( although $a doesn't seemed to be used in the source ?)
So I've used:
$G->add_edge($u, $v);
$G->set_attribute('id', $u, $v, $w);
However, there is no way to specify a particular edge if there is more
than one between two vertices.
For instance if I use this:
#!/usr/local/bin/perl
use strict;
use warnings;
use Graph::Undirected;
my $G = Graph::Undirected->new;
my $u = 'west';
my $v = 'east';
# create two vertices with four edges between
for ( 1..4 ) {
$G = $G->add_edge( $u, $v );
$G->set_attribute( 'id', $u, $v, $_);
}
my @edges = $G->edges;
while ( my( $u, $v ) = splice( @edges, 0 ,2) ) {
print "ID: ", $G->get_attribute('id', $u, $v), "\n";
}
__END__
to add four interfaces with a unique ID I get the output:
ID: 4
ID: 4
ID: 4
ID: 4
Any suggestions as to how I can use the module to treat edges as unique?
Jim Mozley
------------------------------
Date: 18 Oct 2004 09:09:39 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Graph module and multiedge graphs
Message-Id: <cl018j$8os$1@mamenchi.zrz.TU-Berlin.DE>
Jim Mozley <jim.mozley@exponential-e.com> wrote in comp.lang.perl.misc:
> I am trying to use the graph module (Graph-0.20105) to implement a
> multigraph representing a computer network. Where I am after some help
> is in implementing a multiedge.
>
> I can add an edge using:
>
> $G = $G->add_edge($u, $v)
>
> But when I have multiple redundent edges between the same $u and $v
> there seems to be no way to manipulate the edges as discrete objects.
If the module doesn't support multiple edges between nodes, the
only way I see is to duplicate (parts of) the node structure. Instead
of establishing two edges between "east" and "west", you'd have
otherwise indistinguishable pairs "east1", "east2" and "west1" "west2"
with single edges between each pair. Think of the complete (multi-)graph
as a multi-layered structure where each layer is a graph with at most
one edge between node pairs.
Whether that is an adequate solution, I don't know. A better one
would certainly be to find or write a multigraph module.
Anno
------------------------------
Date: Mon, 18 Oct 2004 12:41:24 +0100
From: Jim Mozley <jim.mozley@exponential-e.com>
Subject: Re: Graph module and multiedge graphs
Message-Id: <2thociF205e2eU1@uni-berlin.de>
Anno Siegel wrote:
> Whether that is an adequate solution, I don't know.
Not sure, but I'll think on it, thanks.
> A better one
> would certainly be to find or write a multigraph module.
I have just found a much earlier version of the Graph module that may do
what I need; it seems to have named edges. It is from 1998 though! I can
only assume this functionality was dropped at some point. Looks like I
need to find out more information about this change.
Thanks,
Jim Mozley
------------------------------
Date: 18 Oct 2004 10:16:08 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Lowest array value given index
Message-Id: <cl0558$bd8$1@mamenchi.zrz.TU-Berlin.DE>
Jim <jimnl69@hotmail.com> wrote in comp.lang.perl.misc:
> I'm trying to find an efficient way of finding the lowest value of an
No. Apparently, you are looking for the *index* of the lowest value.
> array but starting at a given index. For example:
>
> @array = (0, 0, 1, 2, 0, 1, 1, 1);
> $index = 0;
>
> I want to stay on the 1st element.
>
>
> @array = (0, 0, 1, 2, 0, 1, 1, 1);
> $index = 2;
>
> I want to end up on the 5th element.
>
>
> @array = (0, 0, 1, 2, 0, 1, 1, 1);
> $index = 5;
>
> I want to end up on the 1st element.
>
>
> Any suggestions on an efficient way to do this? Thanks...
Your problem description is contradictory and insufficient.
I'll suppose you want to walk the array cyclically, starting at
a given index, and record the first occurrence of the minimal array
value.
my @array = (0, 0, 1, 2, 0, 1, 1, 1);
for my $i ( 0, 2, 5) {
my ( $min, $imin) = ( $array[ $i], $i);
$min > $array[ $_] and ( $min, $imin) = ( $array[ $_], $_) for
map $_ % @array, $i .. $i + $#array;
print "$i -> $imin\n";
}
Anno
------------------------------
Date: 18 Oct 2004 08:17:42 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: overriding perl switch
Message-Id: <ckvu76$5ug$1@mamenchi.zrz.TU-Berlin.DE>
sravi <sravi.in@gmail.com> wrote in comp.lang.perl.misc:
> my intention is not to remove -w switch(just an example) but use
> someother switches, which will override the existing switch
Then why do you waste the groups time by asking a question you don't
want the answer to?
Anno
------------------------------
Date: 18 Oct 2004 08:24:07 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: overriding perl switch
Message-Id: <ckvuj7$5ug$2@mamenchi.zrz.TU-Berlin.DE>
Abigail <abigail@abigail.nl> wrote in comp.lang.perl.misc:
> sravi (sravi.in@gmail.com) wrote on MMMMLXVI September MCMXCIII in
> <URL:news:1098077002.510869.242450@f14g2000cwb.googlegroups.com>:
> %% I have a perl switch -w in my program
> %% #!/usr/bin/perl -w
> %%
> %% If i invoke this program, from the shell it is invoked with -w switch.
> %% Is there a way i can override this? That is i should be able to invoke
> %% this without -w switch.
> %%
> %% If i invoke this script like this
> %% /usr/bin/perl <script>
> %% the -w switch is also enabled. Is there a way to override this? Please
> %% help.
>
>
> $^W = 0;
>
> See 'man perlvar'.
I think the OP wants to countermand the switch without touching the
program text.
perl -M-warnings script
> I do wonder why you want to turn off warnings though. That doesn't
> sound like a good idea.
As has been revealed, the poster asked about -w, but wants to revoke
a different, as yet undisclosed, switch. What silliness...
Anno
------------------------------
Date: Mon, 18 Oct 2004 07:14:09 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: overriding perl switch
Message-Id: <slrncn7csh.vsu.tadmc@magna.augustmail.com>
John Bokma <postmaster@castleamber.com> wrote:
> Please don't tell it sometimes doesn't work with -w
If so, then it will also sometimes _work_ with -w since warnings
don't change the execution of the program. It just makes some
additional output on STDERR.
If it works with warnings it will work without warnings.
If it does not work with warnings, it will not work without warnings
(but you may get a clue as to why it is not working).
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 18 Oct 2004 13:25:20 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <10n7h20l774a415@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 11 Oct 2004 13:28:19 GMT and ending at
18 Oct 2004 12:14:09 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) 2004 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
comdog\@panix\.com
Totals
======
Posters: 169
Articles: 709 (251 with cutlined signatures)
Threads: 112
Volume generated: 1396.8 kb
- headers: 675.7 kb (11,881 lines)
- bodies: 682.0 kb (22,899 lines)
- original: 406.9 kb (14,914 lines)
- signatures: 38.5 kb (803 lines)
Original Content Rating: 0.597
Averages
========
Posts per poster: 4.2
median: 2 posts
mode: 1 post - 72 posters
s: 7.3 posts
Posts per thread: 6.3
median: 4.0 posts
mode: 1 post - 21 threads
s: 9.3 posts
Message size: 2017.4 bytes
- header: 975.9 bytes (16.8 lines)
- body: 984.9 bytes (32.3 lines)
- original: 587.7 bytes (21.0 lines)
- signature: 55.6 bytes (1.1 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
53 138.7 ( 64.2/ 67.5/ 53.5) tadmc@augustmail.com
44 87.5 ( 34.7/ 52.8/ 19.2) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
32 78.9 ( 27.4/ 44.4/ 29.0) Michele Dondi <bik.mido@tiscalinet.it>
30 60.7 ( 27.3/ 33.3/ 19.2) "A. Sinan Unur" <usa1@llenroc.ude.invalid>
28 66.1 ( 23.9/ 35.6/ 16.9) Ben Morrow <usenet@morrow.me.uk>
26 50.7 ( 24.6/ 26.1/ 16.3) "Paul Lalli" <mritty@gmail.com>
24 38.9 ( 23.4/ 15.4/ 8.3) "Jürgen Exner" <jurgenex@hotmail.com>
20 38.8 ( 20.9/ 17.5/ 8.4) "A. Sinan Unur" <1usa@llenroc.ude.invalid>
16 25.6 ( 14.8/ 9.8/ 4.4) Gunnar Hjalmarsson <noreply@gunnar.cc>
16 33.0 ( 17.9/ 15.1/ 6.7) Brian McCauley <nobull@mail.com>
16 23.0 ( 14.6/ 8.4/ 5.7) Scott Bryce <sbryce@scottbryce.com>
16 35.1 ( 15.6/ 16.9/ 14.1) abigail@abigail.nl
15 33.2 ( 16.7/ 16.5/ 8.5) Geoff Cox <geoff.cox@removethisplease.freeuk.com>
15 27.6 ( 18.3/ 9.2/ 4.7) Shawn Corey <shawn.corey@sympatico.ca>
11 19.3 ( 14.1/ 4.8/ 4.0) zbbayvtugre@b2.cy
10 18.4 ( 8.6/ 7.9/ 3.4) "David H. Adler" <dha@panix.com>
10 15.0 ( 7.9/ 4.3/ 1.4) John Bokma <postmaster@castleamber.com>
9 13.7 ( 7.4/ 6.3/ 2.9) krakle <krakle@visto.com>
8 15.5 ( 5.5/ 10.0/ 7.0) wana <ioneabu@yahoo.com>
7 11.1 ( 7.9/ 2.9/ 0.7) "John W. Krahn" <krahnj@telus.net>
These posters accounted for 57.3% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
51 138.7 ( 64.2/ 67.5/ 53.5) tadmc@augustmail.com
44 87.5 ( 34.7/ 52.8/ 19.2) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
31 78.9 ( 27.4/ 44.4/ 29.0) Michele Dondi <bik.mido@tiscalinet.it>
30 60.7 ( 27.3/ 33.3/ 19.2) "A. Sinan Unur" <usa1@llenroc.ude.invalid>
27 66.1 ( 23.9/ 35.6/ 16.9) Ben Morrow <usenet@morrow.me.uk>
26 50.7 ( 24.6/ 26.1/ 16.3) "Paul Lalli" <mritty@gmail.com>
24 38.9 ( 23.4/ 15.4/ 8.3) "Jürgen Exner" <jurgenex@hotmail.com>
20 38.8 ( 20.9/ 17.5/ 8.4) "A. Sinan Unur" <1usa@llenroc.ude.invalid>
16 35.1 ( 15.6/ 16.9/ 14.1) abigail@abigail.nl
16 23.0 ( 14.6/ 8.4/ 5.7) Scott Bryce <sbryce@scottbryce.com>
16 33.0 ( 17.9/ 15.1/ 6.7) Brian McCauley <nobull@mail.com>
16 25.6 ( 14.8/ 9.8/ 4.4) Gunnar Hjalmarsson <noreply@gunnar.cc>
15 27.6 ( 18.3/ 9.2/ 4.7) Shawn Corey <shawn.corey@sympatico.ca>
13 33.2 ( 16.7/ 16.5/ 8.5) Geoff Cox <geoff.cox@removethisplease.freeuk.com>
10 19.3 ( 14.1/ 4.8/ 4.0) zbbayvtugre@b2.cy
10 18.4 ( 8.6/ 7.9/ 3.4) "David H. Adler" <dha@panix.com>
9 13.7 ( 7.4/ 6.3/ 2.9) krakle <krakle@visto.com>
9 15.0 ( 7.9/ 4.3/ 1.4) John Bokma <postmaster@castleamber.com>
7 13.7 ( 6.1/ 7.7/ 3.1) "187" <bigal187@removethis.rx.eastcoasttfc.com>
7 12.2 ( 6.5/ 5.6/ 2.7) "187" <bigal187@rx.eastcoasttfc.com>
These posters accounted for 64.0% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
138.7 ( 64.2/ 67.5/ 53.5) 53 tadmc@augustmail.com
87.5 ( 34.7/ 52.8/ 19.2) 44 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
78.9 ( 27.4/ 44.4/ 29.0) 32 Michele Dondi <bik.mido@tiscalinet.it>
66.1 ( 23.9/ 35.6/ 16.9) 28 Ben Morrow <usenet@morrow.me.uk>
60.7 ( 27.3/ 33.3/ 19.2) 30 "A. Sinan Unur" <usa1@llenroc.ude.invalid>
50.7 ( 24.6/ 26.1/ 16.3) 26 "Paul Lalli" <mritty@gmail.com>
38.9 ( 23.4/ 15.4/ 8.3) 24 "Jürgen Exner" <jurgenex@hotmail.com>
38.8 ( 20.9/ 17.5/ 8.4) 20 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
35.1 ( 15.6/ 16.9/ 14.1) 16 abigail@abigail.nl
33.2 ( 16.7/ 16.5/ 8.5) 15 Geoff Cox <geoff.cox@removethisplease.freeuk.com>
33.0 ( 17.9/ 15.1/ 6.7) 16 Brian McCauley <nobull@mail.com>
27.6 ( 18.3/ 9.2/ 4.7) 15 Shawn Corey <shawn.corey@sympatico.ca>
25.6 ( 14.8/ 9.8/ 4.4) 16 Gunnar Hjalmarsson <noreply@gunnar.cc>
23.0 ( 14.6/ 8.4/ 5.7) 16 Scott Bryce <sbryce@scottbryce.com>
19.3 ( 14.1/ 4.8/ 4.0) 11 zbbayvtugre@b2.cy
18.4 ( 8.6/ 7.9/ 3.4) 10 "David H. Adler" <dha@panix.com>
15.5 ( 5.5/ 10.0/ 7.0) 8 wana <ioneabu@yahoo.com>
15.1 ( 10.4/ 4.0/ 2.6) 7 Sherm Pendley <spamtrap@dot-app.org>
15.0 ( 7.9/ 4.3/ 1.4) 10 John Bokma <postmaster@castleamber.com>
13.7 ( 6.1/ 7.7/ 3.1) 7 "187" <bigal187@removethis.rx.eastcoasttfc.com>
These posters accounted for 59.8% of the total volume.
Top 17 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
53 53.5 tadmc@augustmail.com
32 29.0 Michele Dondi <bik.mido@tiscalinet.it>
44 19.2 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
30 19.2 "A. Sinan Unur" <usa1@llenroc.ude.invalid>
28 16.9 Ben Morrow <usenet@morrow.me.uk>
26 16.3 "Paul Lalli" <mritty@gmail.com>
16 14.1 abigail@abigail.nl
15 8.5 Geoff Cox <geoff.cox@removethisplease.freeuk.com>
20 8.4 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
24 8.3 "Jürgen Exner" <jurgenex@hotmail.com>
16 6.7 Brian McCauley <nobull@mail.com>
16 5.7 Scott Bryce <sbryce@scottbryce.com>
15 4.7 Shawn Corey <shawn.corey@sympatico.ca>
16 4.4 Gunnar Hjalmarsson <noreply@gunnar.cc>
11 4.0 zbbayvtugre@b2.cy
10 3.4 "David H. Adler" <dha@panix.com>
10 1.4 John Bokma <postmaster@castleamber.com>
These posters accounted for 54.9% of the original volume.
Top 17 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.835 ( 14.1 / 16.9) 16 abigail@abigail.nl
0.831 ( 4.0 / 4.8) 11 zbbayvtugre@b2.cy
0.792 ( 53.5 / 67.5) 53 tadmc@augustmail.com
0.676 ( 5.7 / 8.4) 16 Scott Bryce <sbryce@scottbryce.com>
0.653 ( 29.0 / 44.4) 32 Michele Dondi <bik.mido@tiscalinet.it>
0.624 ( 16.3 / 26.1) 26 "Paul Lalli" <mritty@gmail.com>
0.575 ( 19.2 / 33.3) 30 "A. Sinan Unur" <usa1@llenroc.ude.invalid>
0.540 ( 8.3 / 15.4) 24 "Jürgen Exner" <jurgenex@hotmail.com>
0.517 ( 8.5 / 16.5) 15 Geoff Cox <geoff.cox@removethisplease.freeuk.com>
0.514 ( 4.7 / 9.2) 15 Shawn Corey <shawn.corey@sympatico.ca>
0.477 ( 8.4 / 17.5) 20 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
0.474 ( 16.9 / 35.6) 28 Ben Morrow <usenet@morrow.me.uk>
0.448 ( 4.4 / 9.8) 16 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.442 ( 6.7 / 15.1) 16 Brian McCauley <nobull@mail.com>
0.423 ( 3.4 / 7.9) 10 "David H. Adler" <dha@panix.com>
0.363 ( 19.2 / 52.8) 44 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.319 ( 1.4 / 4.3) 10 John Bokma <postmaster@castleamber.com>
Bottom 17 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.835 ( 14.1 / 16.9) 16 abigail@abigail.nl
0.831 ( 4.0 / 4.8) 11 zbbayvtugre@b2.cy
0.792 ( 53.5 / 67.5) 53 tadmc@augustmail.com
0.676 ( 5.7 / 8.4) 16 Scott Bryce <sbryce@scottbryce.com>
0.653 ( 29.0 / 44.4) 32 Michele Dondi <bik.mido@tiscalinet.it>
0.624 ( 16.3 / 26.1) 26 "Paul Lalli" <mritty@gmail.com>
0.575 ( 19.2 / 33.3) 30 "A. Sinan Unur" <usa1@llenroc.ude.invalid>
0.540 ( 8.3 / 15.4) 24 "Jürgen Exner" <jurgenex@hotmail.com>
0.517 ( 8.5 / 16.5) 15 Geoff Cox <geoff.cox@removethisplease.freeuk.com>
0.514 ( 4.7 / 9.2) 15 Shawn Corey <shawn.corey@sympatico.ca>
0.477 ( 8.4 / 17.5) 20 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
0.474 ( 16.9 / 35.6) 28 Ben Morrow <usenet@morrow.me.uk>
0.448 ( 4.4 / 9.8) 16 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.442 ( 6.7 / 15.1) 16 Brian McCauley <nobull@mail.com>
0.423 ( 3.4 / 7.9) 10 "David H. Adler" <dha@panix.com>
0.363 ( 19.2 / 52.8) 44 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.319 ( 1.4 / 4.3) 10 John Bokma <postmaster@castleamber.com>
17 posters (10%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
71 Top posting (was Re: Concatenating an array into one string?)
56 HTML::Parser and <p> behaviour?
34 A newbie question
21 [newbie] shtml question
20 String and Array Programming in Perl
17 Concatenating an array into one string?
17 Lagrange Interpolating Polynomial
16 is there a better way to mkdir?
14 References to an array in a foreach
13 hard references/arrays
12 Trying to force 32-bit in pack()
12 Acceptible idiom ?
11 Is this really legal?
11 One liner to produce string of n '?'s separated by commas ... ?
10 Perl to monitor server stats
10 Getting Additional Perl Newsgroups
10 password field
9 Help needed replacing deprecated syntax
9 Accessing hashes and converting into an array
9 FAQ: How do I temporarily block warnings?
These threads accounted for 53.9% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
165.2 ( 79.7/ 79.7/ 52.7) 71 Top posting (was Re: Concatenating an array into one string?)
116.4 ( 58.2/ 56.3/ 26.8) 56 HTML::Parser and <p> behaviour?
61.4 ( 40.1/ 20.1/ 14.5) 34 A newbie question
43.9 ( 19.8/ 23.0/ 12.3) 20 String and Array Programming in Perl
34.4 ( 2.0/ 32.3/ 32.3) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
33.7 ( 13.3/ 19.7/ 8.9) 16 is there a better way to mkdir?
33.3 ( 14.2/ 17.7/ 10.8) 17 Lagrange Interpolating Polynomial
31.4 ( 18.7/ 11.9/ 5.5) 21 [newbie] shtml question
30.8 ( 13.7/ 16.3/ 8.9) 14 References to an array in a foreach
24.2 ( 11.9/ 12.1/ 5.6) 13 hard references/arrays
24.0 ( 15.2/ 8.7/ 5.2) 17 Concatenating an array into one string?
22.4 ( 13.2/ 9.0/ 5.8) 12 Trying to force 32-bit in pack()
21.5 ( 8.9/ 11.5/ 7.8) 11 Is this really legal?
21.4 ( 7.4/ 12.7/ 5.6) 9 FAQ: How do I temporarily block warnings?
21.2 ( 11.6/ 8.5/ 4.0) 12 Acceptible idiom ?
21.0 ( 10.1/ 10.4/ 7.7) 9 Accessing hashes and converting into an array
20.3 ( 4.8/ 14.5/ 5.8) 6 Restricting a program to one running instance
19.8 ( 8.1/ 11.4/ 5.9) 9 Unlink Question
19.4 ( 9.3/ 10.0/ 5.0) 8 Help! Sendmail on Mac OS X Server
18.3 ( 10.4/ 7.6/ 4.2) 10 Perl to monitor server stats
These threads accounted for 56.1% of the total volume.
Top 17 Threads by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.724 ( 14.5/ 20.1) 34 A newbie question
0.678 ( 7.8/ 11.5) 11 Is this really legal?
0.661 ( 52.7/ 79.7) 71 Top posting (was Re: Concatenating an array into one string?)
0.644 ( 5.8/ 9.0) 12 Trying to force 32-bit in pack()
0.625 ( 4.9/ 7.9) 10 Getting Additional Perl Newsgroups
0.610 ( 10.8/ 17.7) 17 Lagrange Interpolating Polynomial
0.599 ( 5.2/ 8.7) 17 Concatenating an array into one string?
0.550 ( 4.2/ 7.6) 10 Perl to monitor server stats
0.549 ( 8.9/ 16.3) 14 References to an array in a foreach
0.534 ( 12.3/ 23.0) 20 String and Array Programming in Perl
0.524 ( 1.9/ 3.6) 11 One liner to produce string of n '?'s separated by commas ... ?
0.475 ( 26.8/ 56.3) 56 HTML::Parser and <p> behaviour?
0.472 ( 4.0/ 8.5) 12 Acceptible idiom ?
0.467 ( 5.6/ 12.1) 13 hard references/arrays
0.460 ( 5.5/ 11.9) 21 [newbie] shtml question
0.454 ( 8.9/ 19.7) 16 is there a better way to mkdir?
0.427 ( 1.6/ 3.6) 10 password field
Bottom 17 Threads by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.724 ( 14.5 / 20.1) 34 A newbie question
0.678 ( 7.8 / 11.5) 11 Is this really legal?
0.661 ( 52.7 / 79.7) 71 Top posting (was Re: Concatenating an array into one string?)
0.644 ( 5.8 / 9.0) 12 Trying to force 32-bit in pack()
0.625 ( 4.9 / 7.9) 10 Getting Additional Perl Newsgroups
0.610 ( 10.8 / 17.7) 17 Lagrange Interpolating Polynomial
0.599 ( 5.2 / 8.7) 17 Concatenating an array into one string?
0.550 ( 4.2 / 7.6) 10 Perl to monitor server stats
0.549 ( 8.9 / 16.3) 14 References to an array in a foreach
0.534 ( 12.3 / 23.0) 20 String and Array Programming in Perl
0.524 ( 1.9 / 3.6) 11 One liner to produce string of n '?'s separated by commas ... ?
0.475 ( 26.8 / 56.3) 56 HTML::Parser and <p> behaviour?
0.472 ( 4.0 / 8.5) 12 Acceptible idiom ?
0.467 ( 5.6 / 12.1) 13 hard references/arrays
0.460 ( 5.5 / 11.9) 21 [newbie] shtml question
0.454 ( 8.9 / 19.7) 16 is there a better way to mkdir?
0.427 ( 1.6 / 3.6) 10 password field
17 threads (15%) had at least ten posts.
Top 4 Targets for Crossposts
============================
Articles Newsgroup
-------- ---------
12 alt.perl
1 news.answers
1 comp.lang.perl.modules
1 comp.answers
Top 10 Crossposters
===================
Articles Address
-------- -------
3 Deke <Deke@nospam.com>
3 "Jürgen Exner" <jurgenex@hotmail.com>
2 <jari.aalto <AT> poboxes.com> (Jari Aalto+mail.perl)
1 Jim Bunch <bubbajeb@charter.net>
1 sea <seasea@hotmail.com>
1 John Bokma <postmaster@castleamber.com>
1 "Paul Lalli" <mritty@gmail.com>
1 chris-usenet@roaima.co.uk
1 Ben Morrow <usenet@morrow.me.uk>
1 "A. Sinan Unur" <usa1@llenroc.ude.invalid>
------------------------------
Date: Mon, 18 Oct 2004 13:06:42 +0300
From: "Eugene Mikheyev" <eam@7ka.mipt.ru>
Subject: Re: Top 10 list algorithm
Message-Id: <cl04pf$2j27$1@news.univ.kiev.ua>
> What do you think I didn't read correctly?
I think he confessed about him having read incorrectly :-)
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 7265
***************************************
