[24138] in Perl-Users-Digest
Perl-Users Digest, Issue: 6332 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 29 14:11:51 2004
Date: Mon, 29 Mar 2004 11:10:10 -0800 (PST)
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, 29 Mar 2004 Volume: 10 Number: 6332
Today's topics:
Re: New module: Array::Each <bmb@ginger.libs.uga.edu>
Re: New module: Array::Each (Anno Siegel)
Performance issues with LWP? (Prabh)
Re: Perl Serial io on linux (T.Paakki)
Re: Question about import user defined modules. (Anno Siegel)
Re: split string to chars <ppi_doesnt_like_@spam_inhis_email_searchy.net>
Re: split string to chars <ppi_doesnt_like_@spam_inhis_email_searchy.net>
Re: split string to chars (Anno Siegel)
Re: split string to chars <ppi_doesnt_like_@spam_inhis_email_searchy.net>
Re: split string to chars (Anno Siegel)
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Re: Why dosn't this work? ctcgag@hotmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 29 Mar 2004 11:41:07 -0500
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: New module: Array::Each
Message-Id: <Pine.A41.4.58.0403291112310.14164@ginger.libs.uga.edu>
On Sun, 28 Mar 2004, Anno Siegel wrote:
> Brad Baxter <bmb@ginger.libs.uga.edu> wrote in comp.lang.perl.misc:
>
> [...]
>
> > And this code returns groups of elements from each array, and it returns
> > the value in $undef if we've gone past the end of any array:
> >
> > my @ret;
> > foreach my $aref ( @$set ) {
> > push @ret, map {$_<@$aref ? $aref->[$_] : $undef}
> ^
> What is that "$"? Not the result of a copy/paste operation for sure :)
>
> > ($i..$i+$group-1) }
> > return ( @ret, $c );
In fact, it is a copy/paste, but I can see it's confusing out of context.
Here's another example of that construct that perhaps shows better my
intent:
sub each_group { # group is defined
my $self = shift;
my $group = $self->[GROUP];
my $i = $self->[ITERATOR]; # inlined
$self->[ITERATOR] += $group; # incr_iterator
$self->[ITERATOR] = $self->[REWIND], # inlined rewind
return if grep {$i >= @$_} @{$self->[SET]};
my @ret;
foreach my $aref ( @{$self->[SET]} ) {
push @ret,
map {$_<@$aref ? $aref->[$_] : $self->[UNDEF]}
($i..$i+$group-1) }
( @ret, $i );
}
So you see, $undef is really $self->[UNDEF], a user-definable value to be
used when the code falls off the end of an array.
> >
> > I'd like to think this could be done with two maps in succession, but
> > inspiration just hasn't come.
>
> The inner map can be written as a slice: @$aref[ $i .. $i + $group - 1]"
> That will give you undef beyond the array limits. Since $_ is no longer
> used in the inner expression, now the outer loop can become a map:
>
> my @ret = map @$_[ $i .. $i + $group - 1], @$set;
> return ( @ret, $c);
Yes, this will give me undef beyond the array limits, but I want it to
give me $self->[UNDEF] (but not change _existing_ undefined elements).
I took another close look at perlvar to see if I missed a special
variable. I looked for one that would let me tell perl what to supply in
the case of a slice element (or array element autovivification, too?) when
it goes past the end. Something along these lines:
my ( @a, @b );
{
local ${^UNDEF} = ''; # imaginary special variable
@a = (undef)[0..2]; # note, undef NOT changed when explicit
$#b = 2;
}
Then @a would contain (undef,'','') and @b would contain ('','','')
instead of the current (undef,undef,undef). I don't think such a special
variable exists--at least, I didn't see reference to one.
Regards,
Brad
------------------------------
Date: 29 Mar 2004 18:01:28 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: New module: Array::Each
Message-Id: <c49o9o$7n1$1@mamenchi.zrz.TU-Berlin.DE>
Brad Baxter <bmb@ginger.libs.uga.edu> wrote in comp.lang.perl.misc:
> On Sun, 28 Mar 2004, Anno Siegel wrote:
>
> > Brad Baxter <bmb@ginger.libs.uga.edu> wrote in comp.lang.perl.misc:
> >
> > [...]
> >
> > > And this code returns groups of elements from each array, and it returns
> > > the value in $undef if we've gone past the end of any array:
> > >
> > > my @ret;
> > > foreach my $aref ( @$set ) {
> > > push @ret, map {$_<@$aref ? $aref->[$_] : $undef}
> > ^
> > What is that "$"? Not the result of a copy/paste operation for sure :)
> >
> > > ($i..$i+$group-1) }
> > > return ( @ret, $c );
>
> In fact, it is a copy/paste, but I can see it's confusing out of context.
> Here's another example of that construct that perhaps shows better my
> intent:
>
> sub each_group { # group is defined
> my $self = shift;
> my $group = $self->[GROUP];
> my $i = $self->[ITERATOR]; # inlined
> $self->[ITERATOR] += $group; # incr_iterator
> $self->[ITERATOR] = $self->[REWIND], # inlined rewind
> return if grep {$i >= @$_} @{$self->[SET]};
> my @ret;
> foreach my $aref ( @{$self->[SET]} ) {
> push @ret,
> map {$_<@$aref ? $aref->[$_] : $self->[UNDEF]}
> ($i..$i+$group-1) }
> ( @ret, $i );
> }
>
> So you see, $undef is really $self->[UNDEF], a user-definable value to be
> used when the code falls off the end of an array.
Well... the wisdom in the choice of variable name is doubtful, especially
since a spurious "$" in front of something else is a popular typo.
"my $self = $shift" anyone?
> > >
> > > I'd like to think this could be done with two maps in succession, but
> > > inspiration just hasn't come.
> >
> > The inner map can be written as a slice: @$aref[ $i .. $i + $group - 1]"
> > That will give you undef beyond the array limits. Since $_ is no longer
> > used in the inner expression, now the outer loop can become a map:
> >
> > my @ret = map @$_[ $i .. $i + $group - 1], @$set;
> > return ( @ret, $c);
>
> Yes, this will give me undef beyond the array limits, but I want it to
> give me $self->[UNDEF] (but not change _existing_ undefined elements).
You could add a supply of the local undef's past the end of the list:
(untested)
my @ret = ( @$_, ( $undefined_value ) x $group)[ $i .. $i + $group - 1];
But let me say that a guts feeling tells me these individual undefs are a
misfeature. They are presumably there to tell the user that the algorithm
had to pull elements from past the end of one or more arrays. In many cases
the user won't care and be quite happy with standard undef's. If they do
care, they can bloody well fill their own arrays with distinctive values :)
It could be that the feature encumbers your algorithm more than it's worth.
> I took another close look at perlvar to see if I missed a special
> variable. I looked for one that would let me tell perl what to supply in
> the case of a slice element (or array element autovivification, too?) when
> it goes past the end. Something along these lines:
No such thing.
Anno
------------------------------
Date: 29 Mar 2004 10:31:06 -0800
From: Prab_kar@hotmail.com (Prabh)
Subject: Performance issues with LWP?
Message-Id: <e7774537.0403291031.4c431d63@posting.google.com>
Hello all,
In my task I need to check if the web server at a known URL is up and
available. If its not, I need to send a mail to the system admins that
the server is down and if its available then get the URL's contents.
The simplest way I could think of doing this was with LWP.
use LWP::Simple ;
my $chkUrl = get("http://abc.xyz.com");
if ( ! $chkUrl )
{
&mail_the_Admins_the_server_is_down() ;
die "Cant connect: Check the URL or the Server is down\n" ;
} else {
&do_some_prcessing_here() ;
}
I've now been told this strategy might cause "abc.xyz.com" to take a
performance hit, as every time this check is run, it would be pinging
the server and will cause performance issues.
Is there any way I could check if the web server is up or not, without
causing any performances issues?
Thanks for your time,
Prab
------------------------------
Date: 29 Mar 2004 08:53:56 -0800
From: trp24@hotmail.com (T.Paakki)
Subject: Re: Perl Serial io on linux
Message-Id: <6358a14b.0403290853.5297e401@posting.google.com>
So far, expect is not an option. I'm not sure why.
------------------------------
Date: 29 Mar 2004 16:10:24 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Question about import user defined modules.
Message-Id: <c49hpg$3mt$1@mamenchi.zrz.TU-Berlin.DE>
ckacka <ckacka@163.com> wrote in comp.lang.perl.misc:
>
> "Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> дÈëÓʼþ
> news:c49fik$2ao$1@mamenchi.zrz.TU-Berlin.DE...
> > ckacka <ckacka@163.com> wrote in comp.lang.perl.misc:
> > >
> > > "Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> дÈëÓʼþ
> > > news:c4986n$q7k$1@mamenchi.zrz.TU-Berlin.DE...
> > > > ckacka <ckacka@163.com> wrote in comp.lang.perl.misc:
> >
> > [import problems]
> >
> > > Sorry, I think I make a silly mistake ;-) . I have changed something,
> and
> > > get another error:
> > >
> > > ==================================================================
> > > ===== /home/ckacka/public_html/cgi-bin/ckacka/Module.pm
> > >
> > > package Module;
> > >
> > > use strict;
> > > use Exporter;
> > > use vars qw/$VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS/;
> > >
> > > $VERSION = 0.91;
> > > @ISA = qw/Exporter/;
> > > @EXPORT = (); #################### This is Line 10
> > > @EXPORT_OK = qw/&wwwdoc &wwwcgi &docdir &cgidir/;
> > > %EXPORT_TAGS = (
> > > ':default' => [ qw/wwwdoc wwwcgi docdir cgidir/ ],
> > ^
> >
> > Here is your error. The leading ":" is only used in the calling program,
> > not in the exporting module. Cf. examples in the Exporter documentation.
> > Change that and it's going to work.
> >
> > Anno
> >
> > [...]
>
> Thanks for your help. Now, I have another question:
>
> I use
>
> ==================================================================
> > > %EXPORT_TAGS = (
> > > ':default' => [ qw/wwwdoc wwwcgi docdir cgidir/ ],
> > ^
> ==================================================================
> because I see the CGI.pm use:
> ==================================================================
>
> %EXPORT_TAGS = (
> ':html2'=>['h1'..'h6',qw/p br hr ol ul li dl dt dd menu code var strong em
> tt u i b blockquote pre img a address cite samp dfn html head
CGI.pm doesn't use the standard Exporter, it defines its own import()
method. Apparently this one works differently. That's all there's to
it.
With standard Exporter, only the client uses the ":", or rather, the
client uses one more ":" than the exporting module. (You can access an
export tag defined as ":default" by saying "use Module '::default'".
That's a (harmless) bug, not a feature, I'd say.)
Anno
------------------------------
Date: Mon, 29 Mar 2004 18:08:28 +0200
From: Frank de Bot <ppi_doesnt_like_@spam_inhis_email_searchy.net>
Subject: Re: split string to chars
Message-Id: <c49hl7$5c3$1@news3.tilbu1.nb.home.nl>
Gunnar Hjalmarsson wrote:
> Frank de Bot wrote:
>
>> I got the following case
>>
>> $string = "Test String";
>> @split = split(//,$string);
>>
>> in each element of @split will be each character as string ( 'T\0'
>> for example)
>> But I want to have only the char in each element of the array, so
>> this could be done for example:
>>
>> for ($i=0;$i<@split;$i++) {
>> printf "This char is: %c\n",
>> $split[$i]; }
>
>
> Is this what you mean:
>
> @split = map ord, split //, $string;
>
> perldoc -f map
> perldoc -f ord
>
This is exactly what I ment. Thanks :-D
------------------------------
Date: Mon, 29 Mar 2004 18:12:15 +0200
From: Frank de Bot <ppi_doesnt_like_@spam_inhis_email_searchy.net>
Subject: Re: split string to chars
Message-Id: <c49hs9$6fn$1@news3.tilbu1.nb.home.nl>
Anno Siegel wrote:
> Frank de Bot <ppi_doesnt_like_@spam_inhis_email_searchy.net> wrote in comp.lang.perl.misc:
>
>>Hi,
>>
>>I got the following case
>>
>>$string = "Test String";
>>@split = split(//,$string);
>>
>>in each element of @split will be each character as string ( 'T\0' for
>>example)
>
>
> Perl strings have no trailing null byte. Their length is kept elsewhere.
>
>
>>But I want to have only the char in each element of the array, so this
>>could be done for example:
>>
>>for ($i=0;$i<@split;$i++) {
>> printf "This char is: %c\n", $split[$i];
>>}
>
>
> There's no need to use indexing to access array elements (untested):
>
> printf "This char is: %s\n", $_ for @split;
sometimes it is handy (to me) if I know on which element it is, making
such loops is something I was kinda thaught when I was starting to learn
perl ;-)
>
> Note that I changed the printf format to "%s". Perl represents single
> characters as strings of length 1. There is no character data type.
> As in C, the "%c" format prints a character whose numeric value is given,
> so to use the "%c" format, you'd write
>
> printf "This char is: %s\n", ord $_ for @split;
>
> But nobody does that.
Except me. I can explain a little what I need it for. the code I posted
was just a little piece of a big code. the @split originates from a
incoming stream (can be file or socket stream), but I sometime I don't
know if it's completly right.
>
> Anno
------------------------------
Date: 29 Mar 2004 16:39:58 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: split string to chars
Message-Id: <c49jgu$4t1$1@mamenchi.zrz.TU-Berlin.DE>
Frank de Bot <ppi_doesnt_like_@spam_inhis_email_searchy.net> wrote in comp.lang.perl.misc:
> Anno Siegel wrote:
> > Frank de Bot <ppi_doesnt_like_@spam_inhis_email_searchy.net> wrote in
> comp.lang.perl.misc:
> >
> >>Hi,
> >>
> >>I got the following case
> >>
> >>$string = "Test String";
> >>@split = split(//,$string);
> >>
> >>in each element of @split will be each character as string ( 'T\0' for
> >>example)
> >
> >
> > Perl strings have no trailing null byte. Their length is kept elsewhere.
> >
> >
> >>But I want to have only the char in each element of the array, so this
> >>could be done for example:
> >>
> >>for ($i=0;$i<@split;$i++) {
> >> printf "This char is: %c\n", $split[$i];
> >>}
> >
> >
> > There's no need to use indexing to access array elements (untested):
> >
> > printf "This char is: %s\n", $_ for @split;
>
> sometimes it is handy (to me) if I know on which element it is, making
> such loops is something I was kinda thaught when I was starting to learn
> perl ;-)
Even when the element count is wanted, most Perl programmers would write
that
my $count = 0;
for my $char ( @split ) {
# work with $char
$count ++;
}
and avoid the clumsy "$split[ $i]". Unlike an index, $count might as well
start at 1.
The only good reason for indexing into arrays in a loop is processing
parallel arrays, when you need the values from multiple arrays for
the same index. Even there are ways...
> >
> > Note that I changed the printf format to "%s". Perl represents single
> > characters as strings of length 1. There is no character data type.
> > As in C, the "%c" format prints a character whose numeric value is given,
> > so to use the "%c" format, you'd write
> >
> > printf "This char is: %s\n", ord $_ for @split;
> >
> > But nobody does that.
>
> Except me. I can explain a little what I need it for. the code I posted
> was just a little piece of a big code. the @split originates from a
> incoming stream (can be file or socket stream), but I sometime I don't
> know if it's completly right.
I was alluding to the "%c" format with "nobody does that".
For dumping suspect input, traditionally "%x" and "%o" have been used
together with ord(), but decimal format is also okay. In such a case,
you don't want the character output of either "%s" or "%c", because
control sequences can make it hard to understand.
Anno
------------------------------
Date: Mon, 29 Mar 2004 19:16:21 +0200
From: Frank de Bot <ppi_doesnt_like_@spam_inhis_email_searchy.net>
Subject: Re: split string to chars
Message-Id: <c49lkf$3c2$1@news4.tilbu1.nb.home.nl>
Anno Siegel wrote:
> Frank de Bot <ppi_doesnt_like_@spam_inhis_email_searchy.net> wrote in comp.lang.perl.misc:
>
>>Anno Siegel wrote:
>>
>>>Frank de Bot <ppi_doesnt_like_@spam_inhis_email_searchy.net> wrote in
>>
>>comp.lang.perl.misc:
>>
>>>>Hi,
>>>>
>>>>I got the following case
>>>>
>>>>$string = "Test String";
>>>>@split = split(//,$string);
>>>>
>>>>in each element of @split will be each character as string ( 'T\0' for
>>>>example)
>>>
>>>
>>>Perl strings have no trailing null byte. Their length is kept elsewhere.
>>>
>>>
>>>
>>>>But I want to have only the char in each element of the array, so this
>>>>could be done for example:
>>>>
>>>>for ($i=0;$i<@split;$i++) {
>>>> printf "This char is: %c\n", $split[$i];
>>>>}
>>>
>>>
>>>There's no need to use indexing to access array elements (untested):
>>>
>>> printf "This char is: %s\n", $_ for @split;
>>
>>sometimes it is handy (to me) if I know on which element it is, making
>>such loops is something I was kinda thaught when I was starting to learn
>>perl ;-)
>
>
> Even when the element count is wanted, most Perl programmers would write
> that
>
> my $count = 0;
> for my $char ( @split ) {
> # work with $char
> $count ++;
> }
>
> and avoid the clumsy "$split[ $i]". Unlike an index, $count might as well
> start at 1.
>
> The only good reason for indexing into arrays in a loop is processing
> parallel arrays, when you need the values from multiple arrays for
> the same index. Even there are ways...
>
hmmmm. good point..
>
>>>Note that I changed the printf format to "%s". Perl represents single
>>>characters as strings of length 1. There is no character data type.
>>>As in C, the "%c" format prints a character whose numeric value is given,
>>>so to use the "%c" format, you'd write
>>>
>>> printf "This char is: %s\n", ord $_ for @split;
>>>
>>>But nobody does that.
>>
>>Except me. I can explain a little what I need it for. the code I posted
>>was just a little piece of a big code. the @split originates from a
>>incoming stream (can be file or socket stream), but I sometime I don't
>>know if it's completly right.
>
>
> I was alluding to the "%c" format with "nobody does that".
>
> For dumping suspect input, traditionally "%x" and "%o" have been used
> together with ord(), but decimal format is also okay. In such a case,
> you don't want the character output of either "%s" or "%c", because
> control sequences can make it hard to understand.
Ok, what I've put here wasn't quite complete. The %c is almost always
accomponied with a %d in my debugging stuff. The %c is mostly handy to
let it be readable for me. If I get a lot of text I can faster see where
malicious bytes and so occure
>
> Anno
------------------------------
Date: 29 Mar 2004 17:24:11 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: split string to chars
Message-Id: <c49m3r$69n$2@mamenchi.zrz.TU-Berlin.DE>
Frank de Bot <ppi_doesnt_like_@spam_inhis_email_searchy.net> wrote in comp.lang.perl.misc:
> Anno Siegel wrote:
> > Frank de Bot <ppi_doesnt_like_@spam_inhis_email_searchy.net> wrote in
> comp.lang.perl.misc:
> > I was alluding to the "%c" format with "nobody does that".
> >
> > For dumping suspect input, traditionally "%x" and "%o" have been used
> > together with ord(), but decimal format is also okay. In such a case,
> > you don't want the character output of either "%s" or "%c", because
> > control sequences can make it hard to understand.
>
> Ok, what I've put here wasn't quite complete. The %c is almost always
> accomponied with a %d in my debugging stuff. The %c is mostly handy to
> let it be readable for me. If I get a lot of text I can faster see where
> malicious bytes and so occure
printf "%d (%s)\n", ord $_, $_;
I don't think there is a good use for "%c" in Perl. Where would "characters
as integers" come from? Perl doesn't produce them (unless on demand), and
from a file you could as well read them as characters.
Anno
------------------------------
Date: Mon, 29 Mar 2004 16:17:42 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <106gj165gr3ofa5@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 22 Mar 2004 16:22:58 GMT and ending at
29 Mar 2004 16:12:20 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: 185
Articles: 626 (259 with cutlined signatures)
Threads: 141
Volume generated: 1541.9 kb
- headers: 568.7 kb (10,336 lines)
- bodies: 938.6 kb (27,418 lines)
- original: 585.6 kb (18,185 lines)
- signatures: 34.0 kb (862 lines)
Original Content Rating: 0.624
Averages
========
Posts per poster: 3.4
median: 2 posts
mode: 1 post - 89 posters
s: 6.8 posts
Posts per thread: 4.4
median: 3 posts
mode: 1 post - 31 threads
s: 4.5 posts
Message size: 2522.3 bytes
- header: 930.2 bytes (16.5 lines)
- body: 1535.4 bytes (43.8 lines)
- original: 957.9 bytes (29.0 lines)
- signature: 55.7 bytes (1.4 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
57 118.0 ( 43.4/ 74.5/ 25.4) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
26 84.0 ( 30.5/ 50.1/ 42.1) tadmc@augustmail.com
23 81.8 ( 22.7/ 53.9/ 25.2) tassilo.parseval@post.rwth-aachen.de
22 34.5 ( 21.4/ 11.6/ 4.8) Gunnar Hjalmarsson <noreply@gunnar.cc>
21 33.2 ( 20.7/ 12.4/ 7.0) Joe Smith <Joe.Smith@inwap.com>
17 38.5 ( 17.8/ 20.6/ 10.5) Geoff Cox <geoffacox@dontspamblueyonder.co.uk>
16 27.0 ( 15.1/ 10.7/ 5.6) Brian McCauley <nobull@mail.com>
16 62.7 ( 15.2/ 43.8/ 16.8) Uri Guttman <uri@stemsystems.com>
13 24.7 ( 10.6/ 14.1/ 5.4) Paul Lalli <ittyspam@yahoo.com>
12 43.7 ( 9.4/ 33.9/ 21.5) Fred Ma <fma@doe.carleton.ca>
11 18.4 ( 11.4/ 5.4/ 2.1) John Bokma <postmaster@castleamber.com>
10 32.3 ( 10.7/ 21.6/ 14.5) Mike Flannigan <mikeflan@earthlink.net>
10 25.7 ( 14.2/ 8.8/ 3.5) jwillmore@adelphia.net
9 11.6 ( 6.6/ 4.8/ 2.2) "David K. Wall" <dwall@fastmail.fm>
9 13.3 ( 8.2/ 5.1/ 2.6) Richard Morse <remorse@partners.org>
9 85.2 ( 7.3/ 77.6/ 57.3) vorxion@knockingshopofthemind.com
9 29.0 ( 6.3/ 22.2/ 9.7) claird@phaseit.net
8 13.5 ( 6.8/ 5.3/ 3.6) Michele Dondi <bik.mido@tiscalinet.it>
7 14.2 ( 7.2/ 5.5/ 2.8) Tore Aursand <tore@aursand.no>
7 16.7 ( 5.4/ 11.4/ 8.1) Myron Turner <mturner@ms.umanitoba.ca>
These posters accounted for 49.8% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
57 118.0 ( 43.4/ 74.5/ 25.4) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
24 84.0 ( 30.5/ 50.1/ 42.1) tadmc@augustmail.com
23 81.8 ( 22.7/ 53.9/ 25.2) tassilo.parseval@post.rwth-aachen.de
22 34.5 ( 21.4/ 11.6/ 4.8) Gunnar Hjalmarsson <noreply@gunnar.cc>
21 33.2 ( 20.7/ 12.4/ 7.0) Joe Smith <Joe.Smith@inwap.com>
16 27.0 ( 15.1/ 10.7/ 5.6) Brian McCauley <nobull@mail.com>
16 62.7 ( 15.2/ 43.8/ 16.8) Uri Guttman <uri@stemsystems.com>
14 38.5 ( 17.8/ 20.6/ 10.5) Geoff Cox <geoffacox@dontspamblueyonder.co.uk>
13 24.7 ( 10.6/ 14.1/ 5.4) Paul Lalli <ittyspam@yahoo.com>
11 43.7 ( 9.4/ 33.9/ 21.5) Fred Ma <fma@doe.carleton.ca>
11 18.4 ( 11.4/ 5.4/ 2.1) John Bokma <postmaster@castleamber.com>
10 25.7 ( 14.2/ 8.8/ 3.5) jwillmore@adelphia.net
9 13.3 ( 8.2/ 5.1/ 2.6) Richard Morse <remorse@partners.org>
9 11.6 ( 6.6/ 4.8/ 2.2) "David K. Wall" <dwall@fastmail.fm>
9 32.3 ( 10.7/ 21.6/ 14.5) Mike Flannigan <mikeflan@earthlink.net>
8 13.5 ( 6.8/ 5.3/ 3.6) Michele Dondi <bik.mido@tiscalinet.it>
7 14.2 ( 7.2/ 5.5/ 2.8) Tore Aursand <tore@aursand.no>
7 18.5 ( 8.4/ 10.0/ 4.4) Sandman <mr@sandman.net>
7 12.4 ( 6.4/ 6.0/ 2.6) Uri Guttman <uri.guttman@fmr.com>
6 14.2 ( 7.3/ 6.5/ 3.1) "A. Sinan Unur" <1usa@llenroc.ude>
These posters accounted for 57.6% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
129.1 ( 0.5/128.6/128.6) 1 Andy Squires <squires@american.edu>
118.0 ( 43.4/ 74.5/ 25.4) 57 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
85.2 ( 7.3/ 77.6/ 57.3) 9 vorxion@knockingshopofthemind.com
84.0 ( 30.5/ 50.1/ 42.1) 26 tadmc@augustmail.com
81.8 ( 22.7/ 53.9/ 25.2) 23 tassilo.parseval@post.rwth-aachen.de
62.7 ( 15.2/ 43.8/ 16.8) 16 Uri Guttman <uri@stemsystems.com>
43.7 ( 9.4/ 33.9/ 21.5) 12 Fred Ma <fma@doe.carleton.ca>
38.5 ( 17.8/ 20.6/ 10.5) 17 Geoff Cox <geoffacox@dontspamblueyonder.co.uk>
34.5 ( 21.4/ 11.6/ 4.8) 22 Gunnar Hjalmarsson <noreply@gunnar.cc>
33.2 ( 20.7/ 12.4/ 7.0) 21 Joe Smith <Joe.Smith@inwap.com>
32.3 ( 10.7/ 21.6/ 14.5) 10 Mike Flannigan <mikeflan@earthlink.net>
29.0 ( 6.3/ 22.2/ 9.7) 9 claird@phaseit.net
27.0 ( 15.1/ 10.7/ 5.6) 16 Brian McCauley <nobull@mail.com>
25.7 ( 14.2/ 8.8/ 3.5) 10 jwillmore@adelphia.net
24.7 ( 10.6/ 14.1/ 5.4) 13 Paul Lalli <ittyspam@yahoo.com>
18.5 ( 8.4/ 10.0/ 4.4) 7 Sandman <mr@sandman.net>
18.4 ( 11.4/ 5.4/ 2.1) 11 John Bokma <postmaster@castleamber.com>
16.7 ( 5.4/ 11.4/ 8.1) 7 Myron Turner <mturner@ms.umanitoba.ca>
15.1 ( 3.8/ 11.3/ 2.5) 3 Ilya Zakharevich <nospam-abuse@ilyaz.org>
14.2 ( 7.3/ 6.5/ 3.1) 6 "A. Sinan Unur" <1usa@llenroc.ude>
These posters accounted for 60.5% of the total volume.
Top 13 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
26 42.1 tadmc@augustmail.com
57 25.4 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
23 25.2 tassilo.parseval@post.rwth-aachen.de
12 21.5 Fred Ma <fma@doe.carleton.ca>
16 16.8 Uri Guttman <uri@stemsystems.com>
10 14.5 Mike Flannigan <mikeflan@earthlink.net>
17 10.5 Geoff Cox <geoffacox@dontspamblueyonder.co.uk>
21 7.0 Joe Smith <Joe.Smith@inwap.com>
16 5.6 Brian McCauley <nobull@mail.com>
13 5.4 Paul Lalli <ittyspam@yahoo.com>
22 4.8 Gunnar Hjalmarsson <noreply@gunnar.cc>
10 3.5 jwillmore@adelphia.net
11 2.1 John Bokma <postmaster@castleamber.com>
These posters accounted for 31.5% of the original volume.
Top 13 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.840 ( 42.1 / 50.1) 26 tadmc@augustmail.com
0.670 ( 14.5 / 21.6) 10 Mike Flannigan <mikeflan@earthlink.net>
0.636 ( 21.5 / 33.9) 12 Fred Ma <fma@doe.carleton.ca>
0.567 ( 7.0 / 12.4) 21 Joe Smith <Joe.Smith@inwap.com>
0.527 ( 5.6 / 10.7) 16 Brian McCauley <nobull@mail.com>
0.507 ( 10.5 / 20.6) 17 Geoff Cox <geoffacox@dontspamblueyonder.co.uk>
0.468 ( 25.2 / 53.9) 23 tassilo.parseval@post.rwth-aachen.de
0.410 ( 4.8 / 11.6) 22 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.398 ( 3.5 / 8.8) 10 jwillmore@adelphia.net
0.386 ( 2.1 / 5.4) 11 John Bokma <postmaster@castleamber.com>
0.383 ( 16.8 / 43.8) 16 Uri Guttman <uri@stemsystems.com>
0.381 ( 5.4 / 14.1) 13 Paul Lalli <ittyspam@yahoo.com>
0.340 ( 25.4 / 74.5) 57 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
Bottom 13 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.840 ( 42.1 / 50.1) 26 tadmc@augustmail.com
0.670 ( 14.5 / 21.6) 10 Mike Flannigan <mikeflan@earthlink.net>
0.636 ( 21.5 / 33.9) 12 Fred Ma <fma@doe.carleton.ca>
0.567 ( 7.0 / 12.4) 21 Joe Smith <Joe.Smith@inwap.com>
0.527 ( 5.6 / 10.7) 16 Brian McCauley <nobull@mail.com>
0.507 ( 10.5 / 20.6) 17 Geoff Cox <geoffacox@dontspamblueyonder.co.uk>
0.468 ( 25.2 / 53.9) 23 tassilo.parseval@post.rwth-aachen.de
0.410 ( 4.8 / 11.6) 22 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.398 ( 3.5 / 8.8) 10 jwillmore@adelphia.net
0.386 ( 2.1 / 5.4) 11 John Bokma <postmaster@castleamber.com>
0.383 ( 16.8 / 43.8) 16 Uri Guttman <uri@stemsystems.com>
0.381 ( 5.4 / 14.1) 13 Paul Lalli <ittyspam@yahoo.com>
0.340 ( 25.4 / 74.5) 57 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
13 posters (7%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
26 how to capture multiple lines?
24 Choosing Perl/Python for my particular niche
22 Filehandles Referenced with a Variable
21 I want to scanf, dammit!
19 losing data on socket
18 The "value" of a block in 'map'
12 Signal handling in objects. Good idea? Best practices?
12 working example File::Taill
12 Comparing 2 date/times?
11 LWP cookies
11 Counting elements in array
11 get multiple html files and convert to pdf
10 zip backup via ftp
9 SCALAR(0x82dea94)
8 selfmade scripts
8 life time of $1?
8 dollar sign and spaces from a string
8 File traversing
8 regexp question
7 Included directory problem
These threads accounted for 42.3% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
141.4 ( 17.9/121.2/ 67.9) 19 losing data on socket
131.2 ( 1.3/129.7/128.9) 2 Problem installing MIME-Base64 3.00
80.2 ( 19.7/ 59.2/ 34.4) 24 Choosing Perl/Python for my particular niche
62.2 ( 21.1/ 39.8/ 24.0) 22 Filehandles Referenced with a Variable
60.1 ( 28.3/ 30.1/ 15.9) 26 how to capture multiple lines?
39.8 ( 16.9/ 21.8/ 11.7) 18 The "value" of a block in 'map'
36.9 ( 17.2/ 18.6/ 6.8) 21 I want to scanf, dammit!
34.6 ( 11.0/ 22.7/ 11.5) 11 LWP cookies
34.5 ( 2.1/ 32.3/ 32.3) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
26.4 ( 5.9/ 20.5/ 5.9) 5 Building Perl with Open Watcom
25.6 ( 9.4/ 15.8/ 8.7) 9 SCALAR(0x82dea94)
24.4 ( 11.4/ 12.3/ 6.8) 12 Signal handling in objects. Good idea? Best practices?
22.0 ( 11.9/ 9.3/ 4.6) 12 Comparing 2 date/times?
21.4 ( 10.4/ 10.7/ 4.8) 8 dollar sign and spaces from a string
21.3 ( 11.8/ 8.3/ 4.4) 11 get multiple html files and convert to pdf
20.8 ( 12.3/ 7.9/ 3.7) 12 working example File::Taill
18.6 ( 5.7/ 12.9/ 6.4) 7 Question about import user defined modules.
18.5 ( 10.1/ 8.0/ 4.8) 11 Counting elements in array
17.3 ( 6.2/ 11.1/ 3.7) 8 regexp question
16.2 ( 9.1/ 6.5/ 3.6) 10 zip backup via ftp
These threads accounted for 55.4% of the total volume.
Top 13 Threads by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.603 ( 24.0/ 39.8) 22 Filehandles Referenced with a Variable
0.598 ( 4.8/ 8.0) 11 Counting elements in array
0.582 ( 34.4/ 59.2) 24 Choosing Perl/Python for my particular niche
0.560 ( 67.9/ 121.2) 19 losing data on socket
0.556 ( 3.6/ 6.5) 10 zip backup via ftp
0.552 ( 6.8/ 12.3) 12 Signal handling in objects. Good idea? Best practices?
0.535 ( 11.7/ 21.8) 18 The "value" of a block in 'map'
0.528 ( 15.9/ 30.1) 26 how to capture multiple lines?
0.527 ( 4.4/ 8.3) 11 get multiple html files and convert to pdf
0.506 ( 11.5/ 22.7) 11 LWP cookies
0.493 ( 4.6/ 9.3) 12 Comparing 2 date/times?
0.473 ( 3.7/ 7.9) 12 working example File::Taill
0.363 ( 6.8/ 18.6) 21 I want to scanf, dammit!
Bottom 13 Threads by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.603 ( 24.0 / 39.8) 22 Filehandles Referenced with a Variable
0.598 ( 4.8 / 8.0) 11 Counting elements in array
0.582 ( 34.4 / 59.2) 24 Choosing Perl/Python for my particular niche
0.560 ( 67.9 /121.2) 19 losing data on socket
0.556 ( 3.6 / 6.5) 10 zip backup via ftp
0.552 ( 6.8 / 12.3) 12 Signal handling in objects. Good idea? Best practices?
0.535 ( 11.7 / 21.8) 18 The "value" of a block in 'map'
0.528 ( 15.9 / 30.1) 26 how to capture multiple lines?
0.527 ( 4.4 / 8.3) 11 get multiple html files and convert to pdf
0.506 ( 11.5 / 22.7) 11 LWP cookies
0.493 ( 4.6 / 9.3) 12 Comparing 2 date/times?
0.473 ( 3.7 / 7.9) 12 working example File::Taill
0.363 ( 6.8 / 18.6) 21 I want to scanf, dammit!
13 threads (9%) had at least ten posts.
Top 6 Targets for Crossposts
============================
Articles Newsgroup
-------- ---------
32 comp.lang.python
6 comp.databases.ibm-db2
6 comp.emacs
5 comp.os.os2.programmer.misc
2 comp.lang.perl.modules
2 comp.lang.php
Top 20 Crossposters
===================
Articles Address
-------- -------
12 Fred Ma <fma@doe.carleton.ca>
9 claird@phaseit.net
4 NoJunkMailshah@xnet.com
3 Ilya Zakharevich <nospam-abuse@ilyaz.org>
2 Vivek Dasmohapatra <vivek@etla.org>
2 tassilo.parseval@post.rwth-aachen.de
1 Michele Simionato <michele.simionato@poste.it>
1 John Ramsden <john_ramsden@sagitta-ps.com>
1 Serge Olkhowik <solo@isd.dp.ua>
1 "Paul McGuire" <ptmcg@austin.stopthespam_rr.com>
1 Charlton Wilbur <cwilbur@mithril.chromatico.net>
1 jamesk@homeric.co.uk
1 zatoichi <catcher@linuxmail.org>
1 Big and Blue <No_4@dsl.pipex.com>
1 Paddy McCarthy <paddy3118@netscape.net>
1 Jim Keenan <jkeen_via_google@yahoo.com>
1 Roy Smith <roy@panix.com>
1 Brad Baxter <bmb@ginger.libs.uga.edu>
1 Darin McBride <dmcbride@naboo.to.org.no.spam.for.me>
1 Ville Vainio <ville@spammers.com>
------------------------------
Date: 29 Mar 2004 18:09:55 GMT
From: ctcgag@hotmail.com
Subject: Re: Why dosn't this work?
Message-Id: <20040329130955.687$Cl@newsreader.com>
Joe <mail@annuna.com> wrote:
> I am trying to write an object oriente program simmilar to one that I
> did in C++. This is bare bones strpped down for debugging.
Didn't you post this last week and ignore all attempts to help you then?
> my $space;
Don't do that here.
Where's the package statement?
> #spaces of the grid
>
> sub new{
>
> $space = {
> char => "@",
> tile => $_[0]
> };
> print $space->{tile}; <-- This print /* OK */
> bless $space, 'Space';
> return $space;
> }
Please make your comments look like comments.
In Perl, they start with #, not <--
When does it print /* OK */? As far as I can tell, "new" never gets
invoked.
>
> sub fchsym {
> print "$space->{tile} \n"; <-- This won't print, why?
> print "$space->{char} \n"; <-- This does print.
>
> return $space->{tile};
> }
When does this print or not print, as the case may be? It doesn't appear
that fchsym ever gets invoked.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
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 6332
***************************************
