[28232] in Perl-Users-Digest
Perl-Users Digest, Issue: 9596 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Aug 12 21:05:45 2006
Date: Sat, 12 Aug 2006 18:05:05 -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 Sat, 12 Aug 2006 Volume: 10 Number: 9596
Today's topics:
Re: convert structured strings to possibly deep hash of <bik.mido@tiscalinet.it>
Re: How to make image that show some web page? <bik.mido@tiscalinet.it>
howto copy OLD modules to new computer ? <botfood@yahoo.com>
Re: howto copy OLD modules to new computer ? <john@castleamber.com>
Re: howto copy OLD modules to new computer ? <benmorrow@tiscali.co.uk>
Re: Implicit iterator variable $_ changing to ### upon <dbasch@yahoo.com>
Re: Implicit iterator variable $_ changing to ### upon <benmorrow@tiscali.co.uk>
Re: Implicit iterator variable $_ changing to ### upon <bik.mido@tiscalinet.it>
is it possible to efficiently read a large file? <Mark.Seger@hp.com>
Re: is it possible to efficiently read a large file? <john@castleamber.com>
Re: is it possible to efficiently read a large file? <someone@example.com>
Re: Proposal: extending perldoc -f <mumia.w.18.spam+nospam.usenet@earthlink.net>
Re: Proposal: extending perldoc -f usenet@DavidFilmer.com
Re: Proposal: extending perldoc -f <john@castleamber.com>
Re: Proposal: extending perldoc -f <vtatila@mail.student.oulu.fi>
Re: Proposal: extending perldoc -f <benmorrow@tiscali.co.uk>
Re: Proposal: extending perldoc -f <bik.mido@tiscalinet.it>
Re: Proposal: extending perldoc -f <someone@example.com>
Re: win32 sysread on socket hangs when requested == rec xhoster@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 12 Aug 2006 22:15:10 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: convert structured strings to possibly deep hash of hashes
Message-Id: <56csd2d71jppis0joo59e717f7e33f69kf@4ax.com>
On 8 Aug 2006 22:52:15 -0700, "seven.reeds" <seven.reeds@gmail.com>
wrote:
>I have a list of well structured strings, actually they are file paths.
> This just measn there are strings of '/' seperated sub-strings. I can
>easily split these into an array. My question is really one of
>building a HoH based on all of the string records. My goal is to take
>strings like:
[snip]
Well, I was so enthusiastic of the double reference trick suggested by
Brian in another post in this thread, that I "advertised" it on PM, at
<http://perlmonks.org/?node_id=567020>. As an added bonus I've been
pointed to YAWTDI: <http://perlmonks.org/?node_id=443584>. To sum up
and adapt it to my previous example, for the impatient:
#!/usr/bin/perl
use strict;
use warnings;
use List::Util 'reduce';
use Data::Dumper;
my %dirhash;
while (<DATA>) {
chomp;
reduce { \$$a->{$b} } \\%dirhash, split qr|/|;
}
print Dumper \%dirhash;
__END__
/file.txt
/a/file.txt
/a/b/c
/a/b/c/file.txt
/z/m/w/file.txt
So one clearly sees that it's just the same double reference trick
with the only difference that the loop is now implicit in the reduce()
call.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 12 Aug 2006 18:01:15 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How to make image that show some web page?
Message-Id: <8murd214eo62omfn7hucqchgipa5n63g76@4ax.com>
On Sat, 12 Aug 2006 15:52:54 +0200, <maran@homewares.ro> wrote:
>How to make image (jpg or gif) that show some web page?
>Is it possible with perl language?
IIUC it is possible grabbing a screenshot of your favourite browser. I
can see some ways in which perl may be made to have something to do
with this, but nothing really relevant. Hence I doubt IUC, and I
suspect you'd better explain yourself more clearly...
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 12 Aug 2006 11:28:26 -0700
From: "botfood" <botfood@yahoo.com>
Subject: howto copy OLD modules to new computer ?
Message-Id: <1155407306.060037.70770@74g2000cwt.googlegroups.com>
I am attempting to get an OLD version of perl up and running on a new
laptop as quickly as possible for a roadtrip so I can work on some old
stuff in the 'same environment' the scripts were written. The old
computer runs win98 and has version 5.00502 build 522 of perl plus a
couple modules that were installed with PPM.
I had the ActiveState install .zip for that version of perl backed up,
and it seems to have installed correctly on the new laptop, which runs
windows XPpro. However, when I attempt to install the optional modules
I need via PPM, it gives me a message that it can't find the
repository... no doubt because ActiveState took them offline long ago.
I have access to the old computer, and am thinking i might be able to
manually copy appropriate files to the new install to duplicate the
environment.... and am looking for guidence on what files/folders/setup
I will need to do so that perl will 'see' the modules.
tips? comments?
Am I totally asking for trouble running this old version? Should I
download the current from ActiveState so that the current ppm 'works'
and risk version incompatibilities?
------------------------------
Date: 12 Aug 2006 18:52:15 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: howto copy OLD modules to new computer ?
Message-Id: <Xns981D8D192B21Acastleamber@130.133.1.4>
"botfood" <botfood@yahoo.com> wrote:
> Am I totally asking for trouble running this old version? Should I
> download the current from ActiveState so that the current ppm 'works'
> and risk version incompatibilities?
I would say yes.
--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/
------------------------------
Date: Sat, 12 Aug 2006 21:30:11 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: howto copy OLD modules to new computer ?
Message-Id: <jbq1r3-4ea.ln1@osiris.mauzo.dyndns.org>
Quoth "botfood" <botfood@yahoo.com>:
> I am attempting to get an OLD version of perl up and running on a new
> laptop as quickly as possible for a roadtrip so I can work on some old
> stuff in the 'same environment' the scripts were written. The old
> computer runs win98 and has version 5.00502 build 522 of perl plus a
> couple modules that were installed with PPM.
>
> I had the ActiveState install .zip for that version of perl backed up,
> and it seems to have installed correctly on the new laptop, which runs
> windows XPpro. However, when I attempt to install the optional modules
> I need via PPM, it gives me a message that it can't find the
> repository... no doubt because ActiveState took them offline long ago.
>
> I have access to the old computer, and am thinking i might be able to
> manually copy appropriate files to the new install to duplicate the
> environment.... and am looking for guidence on what files/folders/setup
> I will need to do so that perl will 'see' the modules.
>
> tips? comments?
I have had success in the past simply copying the entire C:/Perl
directory from one computer to another, and then fixing the
path/associations. In any case, if you've really installed exactly the
same version on the new computer, you should be able to copy the
C:/Perl/lib/site_perl (or whatever it's called: I forget) directory
across. (This is a little dodgy in general, as I would expect that at
least the ActiveState::* modules are quite tightly bound to their
release of ActivePerl.)
> Am I totally asking for trouble running this old version? Should I
> download the current from ActiveState so that the current ppm 'works'
> and risk version incompatibilities?
A lot's changed between 5005 and 5.8, so if you really need to write
stuff that works with 5005 (which is a whole nother question: the Right
Thing is to upgrade that machine to the latest version, but you may be
unable to do that) you want to be developing with it.
Ben
--
All persons, living or dead, are entirely coincidental.
benmorrow@tiscali.co.uk Kurt Vonnegut
------------------------------
Date: 12 Aug 2006 10:09:53 -0700
From: "Derek Basch" <dbasch@yahoo.com>
Subject: Re: Implicit iterator variable $_ changing to ### upon variable assignment?
Message-Id: <1155402593.222323.294510@m73g2000cwd.googlegroups.com>
> It seems that in the end you're more knowledgeable than I am, because
> as above I don't have the slightest idea of what a "class hash
> reference" could be. A class is a package. The only hash that comes to
> mind speaking of the latter, is its stash. Or else objects are often
> implemented by means of blessed hash references "containing" the data,
> but that's just one implementation choice. In any case I'm not really
> sure about what you're talking about and I must be missing something,
> sorry!
I guess I should read up more on the differences between a package
stash and blessed hash references as objects. I had been thinking they
were the same thing but apparently they are not.
Thanks for the help everyone,
Derek Basch
------------------------------
Date: Sat, 12 Aug 2006 19:30:54 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: Implicit iterator variable $_ changing to ### upon variable assignment?
Message-Id: <ubj1r3-r69.ln1@osiris.mauzo.dyndns.org>
[please attribute quotes]
Quoth "Derek Basch" <dbasch@yahoo.com>:
> Michele Dondi <bik.mido@tiscalinet.it> wrote:
> >
> > It seems that in the end you're more knowledgeable than I am, because
> > as above I don't have the slightest idea of what a "class hash
> > reference" could be. A class is a package. The only hash that comes to
> > mind speaking of the latter, is its stash. Or else objects are often
> > implemented by means of blessed hash references "containing" the data,
> > but that's just one implementation choice. In any case I'm not really
> > sure about what you're talking about and I must be missing something,
> > sorry!
>
> I guess I should read up more on the differences between a package
> stash and blessed hash references as objects. I had been thinking they
> were the same thing but apparently they are not.
Don't worry about package stashes: they are an advanced topic that
you'll likely never need to worry about. The source of Michele's
confusion is that you are mixing up the terms 'class' and 'object'. What
you meant to say instead of 'a class hash reference' was 'a reference to
an object' or 'a reference to a blessed hash'. The former is preferable
as the fact that the object is implemented as a blessed hash is not (or
should not be) important to users of that object.
A class is a type of object. It is represented in Perl by its name,
either as a string or as a bareword. So in
my $fb = Foo::Bar->new;
'Foo::Bar' is a class. The ->new method will be passed the string
'Foo::Bar' as its first argument.
An object is an instance of a class: that is, an object is to a class as
'1' is to 'the integers'. If ->new in the above is a normal constructor,
then $fb will hold a reference to an object. Objects in Perl can only be
accessed through references to them.
An object responds to certain methods: these are defined in the class in
class-based OO systems (which Perl's is, usually). However, it is
important to realize that calling a method on an object and calling it
on the class are quite different operations; most methods can only be
called on one or the other.
Ben
--
Musica Dei donum optimi, trahit homines, trahit deos. |
Musica truces mollit animos, tristesque mentes erigit.|benmorrow@tiscali.co.uk
Musica vel ipsas arbores et horridas movet feras. |
------------------------------
Date: 12 Aug 2006 22:38:17 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Implicit iterator variable $_ changing to ### upon variable assignment?
Message-Id: <buesd2d8ofv39fnviqin98spees64m9ag9@4ax.com>
On Sat, 12 Aug 2006 19:30:54 +0100, Ben Morrow
<benmorrow@tiscali.co.uk> wrote:
>> I guess I should read up more on the differences between a package
>> stash and blessed hash references as objects. I had been thinking they
>> were the same thing but apparently they are not.
>
>Don't worry about package stashes: they are an advanced topic that
>you'll likely never need to worry about. The source of Michele's
>confusion is that you are mixing up the terms 'class' and 'object'. What
>you meant to say instead of 'a class hash reference' was 'a reference to
>an object' or 'a reference to a blessed hash'. The former is preferable
Thanks for clarifying. OTOH his confusion put some perverse idea in my
mind, that if only I were more knowledgeable in OO techniques in Perl
would probably be both even more perverse and put into some actual
-perverse- code.
:-)
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Sat, 12 Aug 2006 16:56:18 -0400
From: Mark Seger <Mark.Seger@hp.com>
Subject: is it possible to efficiently read a large file?
Message-Id: <44de4073@usenet01.boi.hp.com>
I'm trying to read a 3GB file efficiently. If I do with a benchmarking
tool, I use about 6-8% of the cpu and can read it in about 44 seconds -
obviously the time if very closely tied to the type of disk, but I'm
including that for reference.
When I do the same thing in perl using:
$reclen=1024*128;
while ($bytes=sysread(FILE, $buffer, $reclen))
{
$total+=$bytes;
}
it takes just under 60 seconds and used 25-30% of the cpu. I'm sure
there is a lot of data movement between buffers and am wondering if
there is some way to avoid this. I'm guessing that perhaps perl is
generating a new instance of $buffer every pass through the loop and if
so that would involve mallocs() and frees() every pass, which I'd like
to avoid if possible.
-mark
------------------------------
Date: 12 Aug 2006 23:12:16 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: is it possible to efficiently read a large file?
Message-Id: <Xns981DB92F22DFCcastleamber@130.133.1.4>
Mark Seger <Mark.Seger@hp.com> wrote:
> I'm trying to read a 3GB file efficiently. If I do with a benchmarking
> tool, I use about 6-8% of the cpu and can read it in about 44 seconds -
> obviously the time if very closely tied to the type of disk, but I'm
> including that for reference.
>
> When I do the same thing in perl using:
>
> $reclen=1024*128;
> while ($bytes=sysread(FILE, $buffer, $reclen))
> {
> $total+=$bytes;
> }
>
> it takes just under 60 seconds and used 25-30% of the cpu. I'm sure
> there is a lot of data movement between buffers and am wondering if
> there is some way to avoid this. I'm guessing that perhaps perl is
> generating a new instance of $buffer every pass through the loop and if
> so that would involve mallocs() and frees() every pass, which I'd like
> to avoid if possible.
you might want to increase reclen, since 128 kbytes sounds like an
extremely small buffer to me.
--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/
------------------------------
Date: Sat, 12 Aug 2006 23:37:27 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: is it possible to efficiently read a large file?
Message-Id: <XCtDg.1519$Ch.1468@clgrps13>
Mark Seger wrote:
> I'm trying to read a 3GB file efficiently. If I do with a benchmarking
> tool, I use about 6-8% of the cpu and can read it in about 44 seconds -
> obviously the time if very closely tied to the type of disk, but I'm
> including that for reference.
>
> When I do the same thing in perl using:
>
> $reclen=1024*128;
> while ($bytes=sysread(FILE, $buffer, $reclen))
> {
> $total+=$bytes;
> }
>
> it takes just under 60 seconds and used 25-30% of the cpu. I'm sure
> there is a lot of data movement between buffers and am wondering if
> there is some way to avoid this. I'm guessing that perhaps perl is
> generating a new instance of $buffer every pass through the loop and if
> so that would involve mallocs() and frees() every pass, which I'd like
> to avoid if possible.
Are you using open() or sysopen() to open the file? sysread() "bypasses
buffered IO" but your $reclen may be too large (or too small) for efficient
IO. Your example appears to use $main::buffer which means that the same
variable is used for each read however I don't know whether Perl reallocates
memory for each read. You could use something like strace(1) to determine
exactly what system calls the program is making.
John
--
use Perl;
program
fulfillment
------------------------------
Date: Sat, 12 Aug 2006 18:10:08 GMT
From: "Mumia W." <mumia.w.18.spam+nospam.usenet@earthlink.net>
Subject: Re: Proposal: extending perldoc -f
Message-Id: <4QoDg.7795$0e5.4998@newsread4.news.pas.earthlink.net>
On 08/12/2006 04:55 AM, usenet@DavidFilmer.com wrote:
> Michele Dondi wrote:
>> For example, currently this is what happens:
>> perldoc -f while
>> No documentation for perl function `while' found
>
> I also once wondered about this. See http://tinyurl.com/fev6y
> [...]
> IMHO, EACH AND EVERY Perl keyword should resolve by "perodoc -f" even
> if it simply points to a more relevant perldoc (as you, Michelle,
> wisely imply).
>
And I agree with this idea.
It would be nice if perlfunc.pod had at least one-line
pointers for the keywords, such as is the case for the "m"
operator:
perldoc -f m
> m// The match operator. See perlop.
------------------------------
Date: 12 Aug 2006 11:35:01 -0700
From: usenet@DavidFilmer.com
Subject: Re: Proposal: extending perldoc -f
Message-Id: <1155407701.514235.139320@m79g2000cwm.googlegroups.com>
Michele Dondi wrote:
> name which does not happen to be Michelle -a french feminine name-,
> but Michele -an italian masculine name-.
Oops. Mea Culpa (which is an old-time Italian way of saying "I screwed
up").
That's worse than when I called Mr. Schwartz, "Randall."
(http://tinyurl.com/e77x7) or Mr. Adler, "Alder"
(http://tinyurl.com/o5fda).
Too bad strict() doesn't cover usenet posts ;^))
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 12 Aug 2006 18:53:53 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Proposal: extending perldoc -f
Message-Id: <Xns981D8D60259F1castleamber@130.133.1.4>
usenet@DavidFilmer.com wrote:
> Michele Dondi wrote:
>> name which does not happen to be Michelle -a french feminine name-,
>> but Michele -an italian masculine name-.
>
> Oops. Mea Culpa (which is an old-time Italian way of saying "I screwed
> up").
>
> That's worse than when I called Mr. Schwartz, "Randall."
> (http://tinyurl.com/e77x7) or Mr. Adler, "Alder"
> (http://tinyurl.com/o5fda).
>
> Too bad strict() doesn't cover usenet posts ;^))
I once, in a flame war, called a Brian "Brain", which didn't improve
things :-D.
--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/
------------------------------
Date: Sat, 12 Aug 2006 22:16:28 +0300
From: "Veli-Pekka Tätilä" <vtatila@mail.student.oulu.fi>
Subject: Re: Proposal: extending perldoc -f
Message-Id: <ebl9ed$igq$1@news.oulu.fi>
Michele Dondi wrote:
> For example, currently this is what happens:
>
> $ ^m^while
> perldoc -f while
> No documentation for perl function `while' found
>
> Instead it my say something like "Not a function, but a looping
> construct, see perlsyn".
Hi,
The feature you suggest is a good one, I think. I've often wished the docs
themselves would be slightly better organized. For example, typing:
c:\>perldoc -lf "-x"
answers that the docs are in:
C:\Perl\lib\pod\perlfunc.pod
Hmm, I'm sure many people would rather think of these as unary operators.
Also, somtimes links in man pages take you half the way there, at least in
ActiveState's HTMl versions. I would appreciate more structured headings in
perlop and much deeper hyperlinking. For example, suppose we're beginners
viewing perlretut and activate a link titled
s///
One would expect the link to lead to:
perlop and regexp_quotelike_operators preferably locating
s/PATTERN/REPLACEMENT/egimosx for us automatically.
In stead, we're taken to:
perlfunc item_s_ which is little more than a link to:
perlop the root of Perl operators. You'll then have to make sense of the TOC
and realize that s is in
regexp_quotelike_operators, and then scroll down to the s operator itself.
--
With kind regards Veli-Pekka Tätilä (vtatila@mail.student.oulu.fi)
Accessibility, game music, synthesizers and programming:
http://www.student.oulu.fi/~vtatila/
------------------------------
Date: Sat, 12 Aug 2006 21:24:34 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: Proposal: extending perldoc -f
Message-Id: <21q1r3-s7a.ln1@osiris.mauzo.dyndns.org>
Quoth "Brian McCauley" <nobull67@gmail.com>:
>
> Michele Dondi wrote:
>
> > For example, currently this is what happens:
> >
> > $ ^m^while
> > perldoc -f while
> > No documentation for perl function `while' found
> >
> > Instead it my say something like "Not a function, but a looping
> > construct, see perlsyn".
>
> I've seen this suggested a few I must admit I'd kinda assumed it had
> already happened.
>
> It should happen. This is simply a case of adding a few entries to
> perlfunc.pod.
OK, I've done up a patch which adds the following entries:
Compound statements
if unless else elsif
for foreach
while until
Operators that look like keywords
and or xor not err
eq ne lt le gt ge
x
Special literals
__FILE__ __LINE__ __PACKAGE__
__DATA__ __END__
_ (as in -f _)
Magic subs
BEGIN END CHECK INIT
UNIVERSAL methods
can isa VERSION DOES
(note that some of these (err, DOES) only exist in bleadperl). The
entries are all of the form 'This is not a function, it is a conditional
statement. See L<perlsyn>.'.
This, I think, covers all the KEY_foo entries in toke.c, which is
everything perl parses as a keyword; with the exception of AUTOLOAD,
DESTROY and CORE which I decided could not actually be mistaken for
builtin functions by a human. I also omitted 'v', as in v5.6.1, as it is
deprecated in blead.
Any comments, or should I submit it to p5p?
Ben
--
We do not stop playing because we grow old;
we grow old because we stop playing.
benmorrow@tiscali.co.uk
------------------------------
Date: 12 Aug 2006 22:40:06 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Proposal: extending perldoc -f
Message-Id: <t3fsd2l2sq1rdnjt2070lsv4je7nld5psn@4ax.com>
On Sat, 12 Aug 2006 21:24:34 +0100, Ben Morrow
<benmorrow@tiscali.co.uk> wrote:
>OK, I've done up a patch which adds the following entries:
[snip]
>Any comments, or should I submit it to p5p?
Well done! Please proceed. With the hope that it be accepted.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Sat, 12 Aug 2006 22:34:14 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Proposal: extending perldoc -f
Message-Id: <GHsDg.1511$Ch.1340@clgrps13>
Ben Morrow wrote:
>
> OK, I've done up a patch which adds the following entries:
>
> Compound statements
> if unless else elsif
> for foreach
> while until
continue
> Operators that look like keywords
> and or xor not err
> eq ne lt le gt ge
> x
cmp
John
--
use Perl;
program
fulfillment
------------------------------
Date: 12 Aug 2006 23:55:53 GMT
From: xhoster@gmail.com
Subject: Re: win32 sysread on socket hangs when requested == received
Message-Id: <20060812200555.222$S0@newsreader.com>
Frank Fredstone <none@not.no> wrote:
> Frank Fredstone <none@not.no> writes:
>
> > My client blocks if the number of characters sysread reads are the same
> > as the number requested, e.g.:
>
> I'm confused actually. It's not that it is the number of bytes that
> are requested. It will return 0 once.
So the $sock->blocking(0) loses it's effect after one empty read?
What happens if you re-invoke $sock->blocking(0) after a zero byte read?
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 9596
***************************************
