[23059] in Perl-Users-Digest
Perl-Users Digest, Issue: 5280 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 28 09:05:39 2003
Date: Mon, 28 Jul 2003 06:05:09 -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, 28 Jul 2003 Volume: 10 Number: 5280
Today's topics:
Re: "theory vs practice" ceases power <padiolea@cripure.irisa.fr>
Re: "theory vs practice" ceases power <ed@membled.com>
Re: Concatenation (Greg)
copying tied hash data <ThomasKratz@REMOVEwebCAPS.de>
Re: copying tied hash data <nobull@mail.com>
Re: File type compatibility issue with Perl <g4rry_sh0rt@zw4llet.com>
hash problems <mihai.maris@alcatel.ro>
Re: hash problems <nobull@mail.com>
Re: hash problems <mihai.maris@alcatel.ro>
Re: hash problems <uri@stemsystems.com>
Re: How to find out installed packages on Unix <NOSPAM@bigpond.com>
Perl compiler? error (fatted)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Tainting and use lib... <usenet@expires082003.tinita.de>
Re: Unappropriate ioctl for device news@roaima.freeserve.co.uk
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 28 Jul 2003 12:50:21 +0200
From: Yoann Padioleau <padiolea@cripure.irisa.fr>
Subject: Re: "theory vs practice" ceases power
Message-Id: <wi6u197apsi.fsf@cripure.irisa.fr>
Ed Avis <ed@membled.com> writes:
> "Dave Benjamin" <dave@3dex.com> writes:
>
> >Perl supports anonymous subrotines, closures, map/filter, currying,
>
> Currying - hardly. You _can_ do it:
>
> sub curry( $ ) {
> my $f = $_[0];
> sub( $ ) { my $x = $_[0]; sub( $ ) { $f->($x, $_[0]) } };
> }
>
> sub uncurry( $ ) {
> my $f = $_[0];
> sub( $$ ) { $f->($_[0])->($_[1]) };
> }
>
> sub plus( $$ ) { $_[0] + $_[1] }
>
> my $plus_curried = curry(\&plus);
> my $plus_five = $plus_curried->(5);
> print $plus_five->(1), "\n";
>
> but no libraries are written in a curried style. You cannot, for
> example, partially apply the 'map' function to get the function that
> adds 1 to every element of a list. Not unless you write the necessary
> machinery yourself.
currying is not so useful, and often over-rated.
--
Yoann Padioleau, INSA de Rennes, France,
Opinions expressed here are only mine. Je n'écris qu'à titre personnel.
**____ Get Free. Be Smart. Simply use Linux and Free Software. ____**
------------------------------
Date: 28 Jul 2003 13:11:49 +0100
From: Ed Avis <ed@membled.com>
Subject: Re: "theory vs practice" ceases power
Message-Id: <l13cgqyho9.fsf@budvar.future-i.net>
Dave Benjamin <ramen@lackingtalent.com> writes:
>>(I don't mean simple 'map' stuff, I mean for more complicated
>>programs where you start having multiple layers of fold / map /
>>filter / Maybe / curry / uncurry / etc etc. This is easy in
>>Haskell, but very tricky in Perl unless you are a programming
>>demigod who rarely makes mistakes.)
>
>Can you provide an example of this problem (in Haskell)?
The particular example I was thinking of is
<http://membled.com/work/project/indiv_project/code/> - the main
program is the file 'subst', and the others are libraries it uses. An
example function:
negate_substpvs :: Eq a => [SubstPV a] -> [SubstPV a]
negate_substpvs = catMaybes . map list_to_substpv . combos . map substpv_to_disjv
Believe me, it's not pretty trying to write this stuff in Perl. My
Haskell is ugly enough :-(. The code is documented (a bit) in
<http://membled.com/work/project/final.pdf>. Well, you did ask...
Some kind of Hindley-Milner type checker for Perl would be cool, and
perhaps not too difficult with B::Deparse...
--
Ed Avis <ed@membled.com>
------------------------------
Date: 28 Jul 2003 05:48:39 -0700
From: gdsafford@hotmail.com (Greg)
Subject: Re: Concatenation
Message-Id: <a8f367ed.0307280448.29a237d8@posting.google.com>
"Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de> wrote in message news:<bg1g9j$cvh$1@nets3.rz.RWTH-Aachen.DE>...
> Also sprach Greg:
>
> > Can someone give me any insight into why
> >
> > my $s = undef() . '';
> >
> > executes without complaint in my Perl 5.6 installation. But
> >
> > my $s = '' . undef();
> >
> > emits
> >
> > "Use of uninitialized value in concatenation (.) or string"
> >
> > Seems to me that I'm using an uninitialized value in either case.
>
> Yes, in both cases it's uninitialized. But the former works because it is
> treated specially. There is no warning because it would make things like
> this clumsy:
>
> my $var;
> for (0 .. 50) {
> # in the first iteration this is:
> # $var = undef . something()
> $var .= something();
> }
>
> So it's really just a convenience thing that perl wont warn when you
> append something to an unitialized variable.
>
> Tassilo
Thanks for the explanation. That makes sense after a fashion, though I
wonder if the value of this convenience balances the cost of the
difference in behavior in the two cases.
I guess I'm still not comfortable with the level of 'help' that Perl
gives one.
Greg
------------------------------
Date: Mon, 28 Jul 2003 14:03:42 +0200
From: "Thomas Kratz" <ThomasKratz@REMOVEwebCAPS.de>
Subject: copying tied hash data
Message-Id: <3f251149.0@juno.wiesbaden.netsurf.de>
SXMgaXQgcG9zc2libGUgdG8gY3JlYXRlIGEgdGllZCBoYXNoIHdoZXJlIHRoZSBmb2xsb3dpbmcg
d291bGQgd29yaz8NCg0KICB1c2Ugc3RyaWN0Ow0KICB1c2Ugd2FybmluZ3M7DQogIHVzZSBNeVRp
ZTsNCg0KICB0aWUgbXkgJWluaSwgJ015VGllJyBvciBkaWUgJEA7DQoNCiAgJGluaXtibGF9ICAg
PSA1Ow0KICAkaW5pe2JsdWJifSA9IFtxdy9hIGIgYy9dOw0KDQogIG15ICVuZXcgPSAlaW5pOw0K
DQogICRuZXd7Ymx1YmJ9WzFdID0gJ1hYWCc7DQoNClRoZSBsYXN0IGxpbmUgc2hvdWxkIGxlYXZl
ICVpbmkgYWxvbmUuIEFzIGZhciBhcyBJIGNhbiBzZWUgKHdoaWNoIG1heSBub3QgYmUgdG8gZmFy
KSB0aGlzIGlzIG5vdCBwb3NzaWJsZS4gSSB0cmllZCBtb2RpZnlpbmcgdGhlIEZFVENIIG1ldGhv
ZCBpbiAnTXlUaWUnIChkZXJpdmVkIGZyb20gVGllOjpTdGRIYXNoKSwgc28gdGhhdCBpdCBjcmVh
dGVzIGFuIGFub24gYXJyYXlyZWYgd2l0aCBjb3BpZWQgZGF0YSwgaWYgdGhlIHZhbHVlIGlzIGFu
IGFycmFyZWYuDQoNCiAgc3ViIEZFVENIIHsNCiAgICAgbXkoJHNlbGYsICRrZXkpID0gQF87DQog
ICAgIHJlZigkc2VsZi0+eyRrZXl9KSBlcSAnQVJSQVknID8NCiAgICAgICBbQHskc2VsZi0+eyRr
ZXl9fV0gOg0KICAgICAgICRzZWxmLT57JGtleX07DQogIH0NCg0KVGhpcyBpcyBvayBmb3IgY29w
eWluZyB0byBhbm90aGVyIGhhc2gsIGJ1dCB3aWxsIGZhaWwgZm9yIHNldHRpbmcgdGhlIGFycmF5
J3MgdmFsdWVzLCBiZWNhdXNlIEZFVENIIGlzIGFsc28gY2FsbGVkIHdoaWxlIHN0b3Jpbmcgc29t
ZXRoaW5nIGxpa2U6DQoNCiAgJGluaXtibHViYn1bMV0gPSAnWVlZJzsNCg0KU28gdGhlIGFib3Zl
IHdpbGwgZmV0Y2ggYSBuZXcgYW5vbiBhcnJheSBhbmQgc2V0IHRoZSB2YWx1ZSB0aGVyZS4NCg0K
QW55IHN1Z2dlc3Rpb25zPw0KDQpUaG9tYXMNCg==
------------------------------
Date: 28 Jul 2003 13:28:49 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: copying tied hash data
Message-Id: <u93cgq4yym.fsf@wcl-l.bham.ac.uk>
"Thomas Kratz" <ThomasKratz@REMOVEwebCAPS.de> writes:
> Is it possible to create a tied hash where the following would work?
>
> use strict;
> use warnings;
> use MyTie;
>
> tie my %ini, 'MyTie' or die $@;
>
> $ini{bla} = 5;
> $ini{blubb} = [qw/a b c/];
>
> my %new = %ini;
>
> $new{blubb}[1] = 'XXX';
>
> The last line should leave %ini alone.
Well, of course, it does leave %ini alone.
> As far as I can see (which may not be to far) this is not possible.
The problem is that @{$new{blubb}} and @{$ini{blubb}} are the same
thing.
> I tried modifying the FETCH
> method in 'MyTie' (derived from Tie::StdHash), so that it creates an
> anon arrayref with copied data, if the value is an arraref.
> sub FETCH {
> my($self, $key) = @_;
> ref($self->{$key}) eq 'ARRAY' ?
> [@{$self->{$key}}] :
> $self->{$key};
> }
> This is ok for copying to another hash, but will fail for setting
> the array's values, because FETCH is also called while storing
> something like:
>
> $ini{blubb}[1] = 'YYY';
>
> So the above will fetch a new anon array and set the value there.
>
> Any suggestions?
Without tieing %new I can see no way to get a simple assignment to
behave like a deep cloning.
Could you perhaps make it explicit by changing:
my %new = %ini;
To:
my %new = tied(%ini)->copy; # Call MyTie::copy
Or:
use Storable qw( dclone );
my %new = %{dclone {%ini}}; # A bit inefficient!
I'm not sure what dclone does with ties - that's why I did it such a
long-winded way. Simpler ways may work.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 28 Jul 2003 12:27:01 +0000
From: Garry Short <g4rry_sh0rt@zw4llet.com>
Subject: Re: File type compatibility issue with Perl
Message-Id: <bg31fu$ibb$1$8300dec7@news.demon.co.uk>
"Dandy" Randy wrote:
> Hey everyone, perhaps someone could shed some light on this issue. I'm
> writing a script that maintains an addressbook online with a Perl flatfile
> database. The script was working fine until I renamed the database files
> from ".txt". to ".db" All entries in the database are on separate lines.
> When the database had a ".txt" extension, and I viewed the data, all data
> appeared on separate lines as constructed.
>
> Name 1
> Name 2
> Name 3
>
> When I renamed the extensions to ".db", the data appears on a single line.
>
> Name 1Name 2Name 3
>
> Can anyone tell me why this is happening? I would like to retain the .db
> extensions if at all possible. TIA!
>
> R
Huh? I can't see this happening, just because you've changed the file
extension. How about showing us the code that writes information to your
file?
Garry
------------------------------
Date: Mon, 28 Jul 2003 14:57:52 +0300
From: Mihai Maris <mihai.maris@alcatel.ro>
Subject: hash problems
Message-Id: <3F250FC0.CA0CAD66@alcatel.ro>
I have a problem with hash tables.
I created a hash but I can't retrieve the elements from the hash in the same order.
Ex:
%hash = ("a" => 20, "b" => 30, "c" => 40);
print key %hash; # this prints "cba" or "bac", etc.
Exists a posibility to retrieve the key in the same order like i putted in the
hash.
Thank you in advance !
------------------------------
Date: 28 Jul 2003 13:09:20 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: hash problems
Message-Id: <u9d6fu4zv3.fsf@wcl-l.bham.ac.uk>
Mihai Maris <mihai.maris@alcatel.ro> does not think that reading the
FAQ would be a valuable way to spend his time, and would much rather
get us to do it for him so writes:
> Exists a posibility to retrieve the key in the same order like i putted in the
> hash.
This is FAQ: "How can I make my hash remember the order I put elements
into it?"
> Thank you in advance !
If you are going to do anything in advance it should be to read the FAQ.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 28 Jul 2003 15:33:26 +0300
From: Mihai Maris <mihai.maris@alcatel.ro>
Subject: Re: hash problems
Message-Id: <3F251816.ED39AD3A@alcatel.ro>
First of all : I'm a beginner in Perl. And I found this a shortest way to find the
answeear to my problem.
And I even didn't know about this FAQs and I also don't have so much time to
navigate throw.
Brian McCauley wrote:
> Mihai Maris <mihai.maris@alcatel.ro> does not think that reading the
> FAQ would be a valuable way to spend his time, and would much rather
> get us to do it for him so writes:
>
> > Exists a posibility to retrieve the key in the same order like i putted in the
> > hash.
>
> This is FAQ: "How can I make my hash remember the order I put elements
> into it?"
>
> > Thank you in advance !
>
> If you are going to do anything in advance it should be to read the FAQ.
>
> --
> \\ ( )
> . _\\__[oo
> .__/ \\ /\@
> . l___\\
> # ll l\\
> ###LL LL\\
------------------------------
Date: Mon, 28 Jul 2003 12:46:52 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: hash problems
Message-Id: <x7fzkqvmx0.fsf@mail.sysarch.com>
>>>>> "MM" == Mihai Maris <mihai.maris@alcatel.ro> writes:
MM> First of all : I'm a beginner in Perl. And I found this a
MM> shortest way to find the answeear to my problem. And I even
MM> didn't know about this FAQs and I also don't have so much time to
MM> navigate throw.
and you think usenet is the fastest way to get answers? you have a major
disconnect there. usenet is usually the slowest way. and this is not a
helpdesk, but a discussion group. it is best to post code or problems
here and not simple questions.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Mon, 28 Jul 2003 23:03:12 +1000
From: "Gregory Toomey" <NOSPAM@bigpond.com>
Subject: Re: How to find out installed packages on Unix
Message-Id: <bg36tn$k9aoe$1@ID-202028.news.uni-berlin.de>
"dtorreblanca0205" <dtorreblanca0205@rogers.com> wrote in message
news:ddpUa.86706$zwL.84758@news04.bloor.is.net.cable.rogers.com...
> "Wang, Vincent" <viwang@nortelnetworks.com> wrote in message
> news:3EA9A873.EA35E48C@nortelnetworks.com...
> > How are you?
> >
> > Do you know how to find out the Perl packages that already installed on
> > my UNIX or Linux, like "ppm query" does on win32?
Many use http://www.scriptsolutions.com/programs/free/perldiver/
gtoomey
------------------------------
Date: 28 Jul 2003 05:51:10 -0700
From: fatted@yahoo.com (fatted)
Subject: Perl compiler? error
Message-Id: <4eb7646d.0307280451.1acadb3f@posting.google.com>
Lets say a friend of mine :) wrote code which had a bad error in it:
#!/usr/bin/perl
use warnings;
use strict;
my $words = ["a", "b", "c"];
my $num = 612;
if($num == 1)
{
print "moo\n";
}
elsif (map($_->[0] =~ /\d{6}/, @$words))
{
print "Don't give up day job\n";
}
When run this gives the error:
Can't use string ("a") as an ARRAY ref while "strict refs" in use at
./test.pl line 8.
After about 1/2 hour of head banging, the problem (which was
originally in a much larger program) was finally discovered. The code
problem wasn't on line 8 :). I have fixed that and slapped my "friend"
around the face for stupidity.
However this leads to my real question:
Is the error message above, an error in the compiler? For instance if
the close bracket of an elsif is forgotton, you get an error on the
line where the close bracket was left out. *Not* on the line where the
start of the IF THEN ELSE syntax began.
e.g. if I fixed line 8 to (oops left out close bracket for elsif):
elsif (map(/\d{6}/, @$words)
Error message is:
syntax error at ./test.pl line 14, near ")
{"
Execution of ./test.pl aborted due to compilation errors.
------------------------------
Date: Mon, 28 Jul 2003 13:00:46 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <via7ju38cnaa25@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 21 Jul 2003 13:13:12 GMT and ending at
28 Jul 2003 12:33:26 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) 2003 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: 223
Articles: 653 (265 with cutlined signatures)
Threads: 164
Volume generated: 1378.1 kb
- headers: 590.0 kb (10,991 lines)
- bodies: 756.2 kb (23,884 lines)
- original: 463.6 kb (15,880 lines)
- signatures: 31.2 kb (772 lines)
Original Content Rating: 0.613
Averages
========
Posts per poster: 2.9
median: 1 post
mode: 1 post - 122 posters
s: 4.5 posts
Posts per thread: 4.0
median: 3.0 posts
mode: 2 posts - 41 threads
s: 4.0 posts
Message size: 2161.1 bytes
- header: 925.3 bytes (16.8 lines)
- body: 1185.9 bytes (36.6 lines)
- original: 727.0 bytes (24.3 lines)
- signature: 49.0 bytes (1.2 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
40 119.4 ( 46.7/ 67.4/ 55.5) tadmc@augustmail.com
21 52.0 ( 25.2/ 24.8/ 12.8) "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
19 44.2 ( 21.7/ 22.4/ 15.3) "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
16 25.6 ( 14.2/ 11.3/ 4.7) Steve Grazzini <grazz@pobox.com>
15 39.0 ( 14.4/ 21.3/ 10.7) tassilo.parseval@post.rwth-aachen.de
14 32.5 ( 11.0/ 21.5/ 14.0) stu7 <stuseven@hotmail.com>
14 36.6 ( 13.7/ 22.9/ 8.8) Joseph Ellis <jandellis@hotmail.com>
13 21.2 ( 12.3/ 8.1/ 3.7) Gunnar Hjalmarsson <noreply@gunnar.cc>
11 20.8 ( 9.9/ 9.2/ 7.9) abigail@abigail.nl
10 19.8 ( 9.8/ 10.0/ 6.4) James Willmore <jwillmore@cyberia.com>
10 17.7 ( 8.3/ 6.4/ 2.4) Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
9 26.0 ( 5.8/ 20.1/ 16.5) "David Oswald" <spamblock@junkmail.com>
9 20.7 ( 8.1/ 10.9/ 5.8) mgjv@tradingpost.com.au
8 13.3 ( 7.1/ 6.2/ 2.7) "Jürgen Exner" <jurgenex@hotmail.com>
8 10.7 ( 5.4/ 5.3/ 3.9) me@home.com
8 15.1 ( 7.7/ 7.4/ 3.9) "Ron" <his_ron@yahoo.com>
7 14.7 ( 7.5/ 7.0/ 2.8) bwalton@rochester.rr.com
7 20.8 ( 5.9/ 14.7/ 7.3) "John W. Krahn" <krahnj@acm.org>
7 24.5 ( 5.1/ 19.4/ 12.7) slash <satishi@gwu.edu>
7 12.9 ( 6.3/ 6.5/ 4.7) "\"Dandy\" Randy" <ducott@hotmail.com>
These posters accounted for 38.7% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
38 119.4 ( 46.7/ 67.4/ 55.5) tadmc@augustmail.com
21 52.0 ( 25.2/ 24.8/ 12.8) "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
19 44.2 ( 21.7/ 22.4/ 15.3) "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
16 25.6 ( 14.2/ 11.3/ 4.7) Steve Grazzini <grazz@pobox.com>
15 39.0 ( 14.4/ 21.3/ 10.7) tassilo.parseval@post.rwth-aachen.de
13 21.2 ( 12.3/ 8.1/ 3.7) Gunnar Hjalmarsson <noreply@gunnar.cc>
12 32.5 ( 11.0/ 21.5/ 14.0) stu7 <stuseven@hotmail.com>
11 36.6 ( 13.7/ 22.9/ 8.8) Joseph Ellis <jandellis@hotmail.com>
11 20.8 ( 9.9/ 9.2/ 7.9) abigail@abigail.nl
10 19.8 ( 9.8/ 10.0/ 6.4) James Willmore <jwillmore@cyberia.com>
9 17.7 ( 8.3/ 6.4/ 2.4) Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
9 20.7 ( 8.1/ 10.9/ 5.8) mgjv@tradingpost.com.au
8 13.3 ( 7.1/ 6.2/ 2.7) "Jürgen Exner" <jurgenex@hotmail.com>
7 14.7 ( 7.5/ 7.0/ 2.8) bwalton@rochester.rr.com
7 20.8 ( 5.9/ 14.7/ 7.3) "John W. Krahn" <krahnj@acm.org>
7 10.7 ( 5.4/ 5.3/ 3.9) me@home.com
7 12.7 ( 5.5/ 7.2/ 4.4) "Sisyphus" <kalinabears@iinet.net.au>
7 12.9 ( 6.2/ 6.7/ 4.6) Alasdair Allan <aa@ukrecscuba.org.uk>
6 26.0 ( 5.8/ 20.1/ 16.5) "David Oswald" <spamblock@junkmail.com>
6 10.1 ( 6.4/ 3.0/ 1.9) chris-usenet@roaima.co.uk
These posters accounted for 46.2% of all followups.
Top 11 Posters by Followup Rate (min. of ten posts)
===================================================
Followup
Rate Followups Posts Address
-------- --------- ----- -------
100.00% 16 16 Steve Grazzini <grazz@pobox.com>
100.00% 15 15 tassilo.parseval@post.rwth-aachen.de
100.00% 10 10 James Willmore <jwillmore@cyberia.com>
100.00% 11 11 abigail@abigail.nl
100.00% 19 19 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
100.00% 21 21 "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
100.00% 13 13 Gunnar Hjalmarsson <noreply@gunnar.cc>
95.00% 38 40 tadmc@augustmail.com
90.00% 9 10 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
85.71% 12 14 stu7 <stuseven@hotmail.com>
78.57% 11 14 Joseph Ellis <jandellis@hotmail.com>
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
119.4 ( 46.7/ 67.4/ 55.5) 40 tadmc@augustmail.com
52.0 ( 25.2/ 24.8/ 12.8) 21 "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
44.2 ( 21.7/ 22.4/ 15.3) 19 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
39.0 ( 14.4/ 21.3/ 10.7) 15 tassilo.parseval@post.rwth-aachen.de
36.6 ( 13.7/ 22.9/ 8.8) 14 Joseph Ellis <jandellis@hotmail.com>
32.5 ( 11.0/ 21.5/ 14.0) 14 stu7 <stuseven@hotmail.com>
26.3 ( 5.4/ 20.9/ 1.3) 6 Cat <cat@no-spam.com>
26.0 ( 5.8/ 20.1/ 16.5) 9 "David Oswald" <spamblock@junkmail.com>
25.6 ( 14.2/ 11.3/ 4.7) 16 Steve Grazzini <grazz@pobox.com>
24.5 ( 5.1/ 19.4/ 12.7) 7 slash <satishi@gwu.edu>
21.2 ( 12.3/ 8.1/ 3.7) 13 Gunnar Hjalmarsson <noreply@gunnar.cc>
20.8 ( 5.9/ 14.7/ 7.3) 7 "John W. Krahn" <krahnj@acm.org>
20.8 ( 9.9/ 9.2/ 7.9) 11 abigail@abigail.nl
20.7 ( 8.1/ 10.9/ 5.8) 9 mgjv@tradingpost.com.au
19.8 ( 9.8/ 10.0/ 6.4) 10 James Willmore <jwillmore@cyberia.com>
19.6 ( 5.2/ 14.4/ 9.7) 6 "William Alexander Segraves" <wsegrave@mindspring.com>
17.7 ( 8.3/ 6.4/ 2.4) 10 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
17.1 ( 7.1/ 10.0/ 7.5) 6 "Alan J. Flavell" <flavell@mail.cern.ch>
15.1 ( 7.7/ 7.4/ 3.9) 8 "Ron" <his_ron@yahoo.com>
14.7 ( 7.5/ 7.0/ 2.8) 7 bwalton@rochester.rr.com
These posters accounted for 44.5% of the total volume.
Top 11 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
40 55.5 tadmc@augustmail.com
19 15.3 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
14 14.0 stu7 <stuseven@hotmail.com>
21 12.8 "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
15 10.7 tassilo.parseval@post.rwth-aachen.de
14 8.8 Joseph Ellis <jandellis@hotmail.com>
11 7.9 abigail@abigail.nl
10 6.4 James Willmore <jwillmore@cyberia.com>
16 4.7 Steve Grazzini <grazz@pobox.com>
13 3.7 Gunnar Hjalmarsson <noreply@gunnar.cc>
10 2.4 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
These posters accounted for 30.7% of the original volume.
Top 11 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.865 ( 7.9 / 9.2) 11 abigail@abigail.nl
0.822 ( 55.5 / 67.4) 40 tadmc@augustmail.com
0.682 ( 15.3 / 22.4) 19 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
0.653 ( 14.0 / 21.5) 14 stu7 <stuseven@hotmail.com>
0.636 ( 6.4 / 10.0) 10 James Willmore <jwillmore@cyberia.com>
0.516 ( 12.8 / 24.8) 21 "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
0.504 ( 10.7 / 21.3) 15 tassilo.parseval@post.rwth-aachen.de
0.459 ( 3.7 / 8.1) 13 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.422 ( 4.7 / 11.3) 16 Steve Grazzini <grazz@pobox.com>
0.384 ( 8.8 / 22.9) 14 Joseph Ellis <jandellis@hotmail.com>
0.368 ( 2.4 / 6.4) 10 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
Bottom 11 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.865 ( 7.9 / 9.2) 11 abigail@abigail.nl
0.822 ( 55.5 / 67.4) 40 tadmc@augustmail.com
0.682 ( 15.3 / 22.4) 19 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
0.653 ( 14.0 / 21.5) 14 stu7 <stuseven@hotmail.com>
0.636 ( 6.4 / 10.0) 10 James Willmore <jwillmore@cyberia.com>
0.516 ( 12.8 / 24.8) 21 "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
0.504 ( 10.7 / 21.3) 15 tassilo.parseval@post.rwth-aachen.de
0.459 ( 3.7 / 8.1) 13 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.422 ( 4.7 / 11.3) 16 Steve Grazzini <grazz@pobox.com>
0.384 ( 8.8 / 22.9) 14 Joseph Ellis <jandellis@hotmail.com>
0.368 ( 2.4 / 6.4) 10 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
11 posters (4%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
30 Larry W... out of work ?? Impossible... or...
18 Called as method or subroutine?
16 Chomp temporarily nullifies my scalar variable.
11 Soap::Lite and hashes
11 "theory vs practice" ceases power
10 document ID tracking
10 delete directory files from a list. Help Please
10 newbie question
10 Style question regarding subroutines and lexical variables
9 UTF-8 module
9 push -- weird problem
9 perlcc makes it big
9 can this one-liner be squeezed any shorter?
8 Using 'my' within nested loops
8 Get file extention from path
8 extract list from webpage
8 Non-Core Module Inclusion
8 CGI.pm problem under Redhat Linux 9.0 (perl-5.8.0)
7 New to cig question
7 JOIN problem ? (2nd attempt to post)
These threads accounted for 33.1% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
67.7 ( 28.9/ 37.6/ 24.4) 30 Larry W... out of work ?? Impossible... or...
43.1 ( 18.1/ 23.1/ 12.8) 18 Called as method or subroutine?
39.5 ( 8.8/ 30.4/ 22.6) 11 "theory vs practice" ceases power
39.2 ( 16.6/ 22.2/ 8.8) 16 Chomp temporarily nullifies my scalar variable.
34.1 ( 2.2/ 32.0/ 32.0) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.4 $)
32.5 ( 9.2/ 23.0/ 12.8) 10 document ID tracking
27.3 ( 5.5/ 21.7/ 1.9) 6 Statistics for comp.lang.perl.misc
26.0 ( 5.4/ 20.0/ 15.3) 6 Please critique my 2nd Perl program (generates an auction description)
25.7 ( 10.1/ 15.4/ 4.4) 10 delete directory files from a list. Help Please
25.7 ( 10.8/ 14.4/ 6.2) 10 Style question regarding subroutines and lexical variables
24.6 ( 5.0/ 19.5/ 9.8) 6 s there a module to acess Micorsoft Access datafiles?
24.3 ( 8.9/ 15.0/ 8.4) 9 push -- weird problem
20.6 ( 8.9/ 11.4/ 7.3) 9 UTF-8 module
20.3 ( 6.2/ 13.5/ 6.5) 7 One Off Script
18.3 ( 9.9/ 8.1/ 5.2) 11 Soap::Lite and hashes
17.7 ( 10.1/ 7.0/ 4.4) 10 newbie question
17.0 ( 6.9/ 9.6/ 6.3) 7 references help
16.6 ( 7.1/ 8.9/ 6.7) 7 XML or home-grown format?
16.6 ( 7.7/ 8.7/ 4.8) 8 extract list from webpage
16.2 ( 6.9/ 9.0/ 5.8) 8 Using 'my' within nested loops
These threads accounted for 40.1% of the total volume.
Top 9 Threads by OCR (minimum of ten posts)
===========================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.743 ( 22.6/ 30.4) 11 "theory vs practice" ceases power
0.648 ( 5.2/ 8.1) 11 Soap::Lite and hashes
0.648 ( 24.4/ 37.6) 30 Larry W... out of work ?? Impossible... or...
0.633 ( 4.4/ 7.0) 10 newbie question
0.558 ( 12.8/ 23.0) 10 document ID tracking
0.553 ( 12.8/ 23.1) 18 Called as method or subroutine?
0.430 ( 6.2/ 14.4) 10 Style question regarding subroutines and lexical variables
0.399 ( 8.8/ 22.2) 16 Chomp temporarily nullifies my scalar variable.
0.287 ( 4.4/ 15.4) 10 delete directory files from a list. Help Please
Bottom 9 Threads by OCR (minimum of ten posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.743 ( 22.6 / 30.4) 11 "theory vs practice" ceases power
0.648 ( 5.2 / 8.1) 11 Soap::Lite and hashes
0.648 ( 24.4 / 37.6) 30 Larry W... out of work ?? Impossible... or...
0.633 ( 4.4 / 7.0) 10 newbie question
0.558 ( 12.8 / 23.0) 10 document ID tracking
0.553 ( 12.8 / 23.1) 18 Called as method or subroutine?
0.430 ( 6.2 / 14.4) 10 Style question regarding subroutines and lexical variables
0.399 ( 8.8 / 22.2) 16 Chomp temporarily nullifies my scalar variable.
0.287 ( 4.4 / 15.4) 10 delete directory files from a list. Help Please
9 threads (5%) had at least ten posts.
Top 6 Targets for Crossposts
============================
Articles Newsgroup
-------- ---------
15 comp.lang.functional
13 comp.lang.perl.modules
5 comp.lang.perl
3 comp.text.xml
1 news.answers
1 comp.answers
Top 20 Crossposters
===================
Articles Address
-------- -------
5 Dave Benjamin <ramen@lackingtalent.com>
4 Ed Avis <ed@membled.com>
3 JS Bangs <jaspax@u.washington.edu>
3 MegaZone <usenet@megazone.org>
2 Alythh <alythh@netscape.net>
2 Yuchung Cheng <yuchung@mail.com>
2 <jari.aalto@poboxes.com> (Jari Aalto+mail.perl)
2 Bren <iambrenNOSPAM@sympatico.ca>
1 Frank Buss <fb@frank-buss.de>
1 Andre Bonhote <andre@colt.net>
1 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
1 Yoann Padioleau <padiolea@cripure.irisa.fr>
1 "Marshall Spight" <mspight@dnai.com>
1 niz <niz@infidel.freeserve.co.uk>
1 Gunnar Hjalmarsson <noreply@gunnar.cc>
1 "Dave Benjamin" <dave@3dex.com>
1 William Goedicke <goedicke@goedsole.com>
1 "dtorreblanca0205" <dtorreblanca0205@rogers.com>
1 Simon Andrews <simon.andrews@bbsrc.ac.uk>
1 scriptyrich@yahoo.co.uk
------------------------------
Date: 28 Jul 2003 11:37:46 GMT
From: Tina Mueller <usenet@expires082003.tinita.de>
Subject: Re: Tainting and use lib...
Message-Id: <bg31ua$k4ikc$1@ID-24002.news.uni-berlin.de>
Bryon Bean wrote:
> use lib qw( /var/www/cgi-bin/war/RTG );
> use RTG::Project;
so this lets us assume that there is a file
/var/www/cgi-bin/war/RTG/RTG/Project.pm
i think you probably want to write:
use lib qw( /var/www/cgi-bin/war );
-T removes the current directory from @INC, so
before you used -T, it just worked because you had
"." in @INC, not because of the "use lib".
hth, tina
--
http://www.tinita.de/ \ enter__| |__the___ _ _ ___
http://Movies.tinita.de/ \ / _` / _ \/ _ \ '_(_-< of
http://www.perlquotes.de/ \ \ _,_\ __/\ __/_| /__/ perception
- my mail address expires end of august 2003 -
------------------------------
Date: Mon, 28 Jul 2003 11:18:58 +0100
From: news@roaima.freeserve.co.uk
Subject: Re: Unappropriate ioctl for device
Message-Id: <it9fv-3s4.ln1@moldev.cmagroup.co.uk>
Also sprach Benoit Guillon:
> I upgraded Perl from 5.6 to 5.8. The software I develop used to work
> fine with Perl 5.6 and now, sometimes, I get the error "Unappropriate
> ioctl for device" when I try to open a file for write.
Tassilo v. Parseval <tassilo.parseval@rwth-aachen.de> wrote:
> That would be odd. There is no ioctl(2) involved when opening regular
> files (I just checked with strace). Can you give a small example that
> exhibits this behaviour?
At a guess, the OP's actually reading/writing a *process* (not a regular
file) in a UNIX environment and they have an unprotected "stty" command
in their shell startup file (e.g. .bashrc, .cshrc, .kshrc, whatever).
In which case, of course, it's not (directly) a perl issue, but an OS one.
test -t 0 && stty... # Only try stty with a real terminal
Chris
--
@s=split(//,"Je,\nhn ersloak rcet thuarP");$k=$l=@s;for(;$k;$k--){$i=($i+1)%$l
until$s[$i];$c=$s[$i];print$c;undef$s[$i];$i=($i+(ord$c))%$l}
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
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 5280
***************************************
