[21919] in Perl-Users-Digest
Perl-Users Digest, Issue: 4123 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Nov 15 03:06:48 2002
Date: Fri, 15 Nov 2002 00:05:09 -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 Fri, 15 Nov 2002 Volume: 10 Number: 4123
Today's topics:
ActiveState perl install error Win98 (Gary)
Re: Copy *.o to a different directory (I Amal)
CPAN local installation <jonov@iprimus.com.au>
Re: Cross platform issues <tim@remove.deadgoodsolutions.com>
File Handle passing to subroutine does not work when us (Phillip Wu)
Re: File Handle passing to subroutine does not work whe <goldbb2@earthlink.net>
Re: hash names from scalar values <linuxnb@yahoo.com>
Re: how do I turn off unicode on file I/O? <goldbb2@earthlink.net>
Re: installing perl on winxp (Alan Barclay)
Re: installing perl on winxp <wsegrave@mindspring.com>
Re: Is Perl capable to write and read Word file or Exce <nospam@nospam.com>
Re: newbie to perl: printing literals(constants). (ebchang)
Re: Partial matching of keys in a hash: Would this code <nospam@nospam.com>
Re: Partial matching of keys in a hash: Would this code <goldbb2@earthlink.net>
Perl searching a huge mySQL database... (krakle)
Re: Perl searching a huge mySQL database... (Tad McClellan)
Re: Perl searching a huge mySQL database... <simon@unisolve.com.au>
Re: Perl searching a huge mySQL database... (Alan Barclay)
Re: Perl searching a huge mySQL database... <nobody@noplace.com>
Re: Socket dropping packets <troc@netrus.net>
Re: Windows and nonblocking IO <goldbb2@earthlink.net>
Re: write to file <dave@dave.org.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 14 Nov 2002 20:31:20 -0800
From: pajer@iname.com (Gary)
Subject: ActiveState perl install error Win98
Message-Id: <4e47e24d.0211142031.201fdb15@posting.google.com>
I tried to install ActiveState perl, but I get an error.
I downloaded the latest MSI, and ActivePerl 5.6.1.633-MSWin32-x86.
the installer opens, goes through the prelims about license etc, but
when it gets down to business it pops a window with:
Internal Error 2804. VerifyReadyDlg, Install,
OutOfDiskSpace = 1 AND
OutOfNoRbDiskSpace = 0 AND
(PROMPTROLLBACKCOST="" OT
PROMPTROLLBACKCOST)
I don't know what this means, but I have 10 Gigs of free disk space.
I've searched for a sol'n to this, but could find no mention of it.
TIA,
Gary
------------------------------
Date: 14 Nov 2002 20:57:19 -0800
From: amal@kumprang.or.id (I Amal)
Subject: Re: Copy *.o to a different directory
Message-Id: <db89ae16.0211142057.575e1e56@posting.google.com>
"Ed Doyle" <doyleed@sprynet.com> wrote in message news:<ar19ab$6dv$1@slb5.atl.mindspring.net>...
> Hi
> Is there an easy way inside a perl script to copy all .o files from one
> directory to another?
> I tried something like:
> use File::Copy;
> copy("$DIR1\*\.o" , "$DIR2\*\.o"); which compiled an ran but didn't copy any
> files. $DIR1 and DIR2 are valid pathnames defined earlier in the script.
> Any suggestions would be appreciated.
> Ed Doyle
Are you sure you have insert backslash between $DIR and *.o?
Suppose you have
$DIR1 = 'C:\mydir';
then you have to write copy() as
copy("$DIR1\\*.o", "$DIR2\\*.o");
the double backslash is for one backslash in string.
--
amal
------------------------------
Date: Fri, 15 Nov 2002 18:40:00 +1100
From: "Jon" <jonov@iprimus.com.au>
Subject: CPAN local installation
Message-Id: <3dd4a427_1@news.iprimus.com.au>
Hi,
I have received a DVD with a copy of CPAN on it. I have installed it onto a
machine. However I'm not sure how I can use it as a repository for various
perl installations on various machines. Do I need a web server for this or
can it be done another way?
Jon.
------------------------------
Date: Fri, 15 Nov 2002 06:42:35 -0000
From: "tim" <tim@remove.deadgoodsolutions.com>
Subject: Re: Cross platform issues
Message-Id: <1037342553.30367.0@iris.uk.clara.net>
Well the code runs because it displays the print statements - just doesn't
pickup any input, so i don't think it's anything to do with the transfer.
I'll double check the apache config. Thanks for your help, at least it's
eliminated one of the variables.
------------------------------
Date: 14 Nov 2002 21:25:46 -0800
From: pwu@qantas.com.au (Phillip Wu)
Subject: File Handle passing to subroutine does not work when used with flock
Message-Id: <943cec75.0211142125.2c7f85f8@posting.google.com>
Hello,
I'm trying to write a perl routine to lock a file and go to the bottom
of the file. However when I run the routine I get "Bad file number".
You will notice that the file handle appears to be passed correctly as
the test list of the file works OK. The flock call does not work OK.
I suspect the seek would also not work but the code has not got that
far.
Please see listing below.
Do you have any idea how to fix this?
#! /usr/bin/perl
use Fcntl ':flock';
sub lock {
local(*F)=@_;
while(<F>) {
print "$_";
}
if (! flock(F, LOCK_EX) )
{
print("Unable to lock file: $!\n");
return(-1)
};
if (! seek(F,0,SEEK_END) )
{
print("Unable to go to end of file: $!\n");
return(-1)
};
return(0);
}
sub unlock {
local(*F)=@_;
if ( ! flock(F, LOCK_UN) )
{
print("Unable to lock file: $!\n");
return(-1)
};
return(0);
}
######################################################################
# Main
######################################################################
if (! open(FILE, "/tmp/log.out")) {
print "$$: Cannot open /tmp/log.out: $!\n";
exit(1);
};
print "$$: Locking\n";
$status=lock(*FILE);
if ($status==-1) {
exit(1);
};
print FILE "Greetings from $$\n";
print "$$: UnLocking\n";
unlock(*FILE);
close(FILE);
The run is as follows:
10158: Locking
#
# This is the test file
#
Unable to lock file: Bad file number
------------------------------
Date: Fri, 15 Nov 2002 01:55:20 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: File Handle passing to subroutine does not work when used with flock
Message-Id: <3DD49A58.64984287@earthlink.net>
Phillip Wu wrote:
[snip]
> use Fcntl ':flock';
> sub lock {
> local(*F)=@_;
Unless you're using perl4, there's no reason to be using local here.
my ($fh) = @_;
> while(<F>) {
> print "$_";
> }
You should obtain the lock before printing out the file, otherwise it
could concievably be altered while you're reading.
> if (! flock(F, LOCK_EX) )
> {
> print("Unable to lock file: $!\n");
> return(-1)
> };
Aside from being in the wrong location (after the read when it should be
before), this looks ok. (Although if you change local to my, you would
change "F" to "$fh".
> if (! seek(F,0,SEEK_END) )
> {
> print("Unable to go to end of file: $!\n");
> return(-1)
> };
If you've read through the file, you're already at the end; there's no
need to seek to the end.
> return(0);
> }
> sub unlock {
> local(*F)=@_;
>
> if ( ! flock(F, LOCK_UN) )
> {
> print("Unable to lock file: $!\n");
> return(-1)
> };
> return(0);
> }
You should almost never expliclty unlock a filehandle, but rather rely
on the file being unlocked when the handle is closed.
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: Fri, 15 Nov 2002 07:31:24 GMT
From: matt <linuxnb@yahoo.com>
Subject: Re: hash names from scalar values
Message-Id: <gp1B9.5551$%m4.2280@rwcrnsc52.ops.asp.att.net>
Brian McCauley wrote:
> "matt" <linuxnb@yahoo.com> writes:
-snip-
>
> There is a very important fact that you need learn: variables do not
> need to be named.
>
>> Here's my code:
>
> You forgot:
> use strict;
> use warnings;
>
> You didn't declare all your variables in the smallest enclosing
> lexical scopes.
>
Thanks for your reply Brian. You cleared alot up for me. Just so you know, I
do use strict in my scripts. The code I posted was just a quick re-write to
get the idea across.
-- Matt
------------------------------
Date: Fri, 15 Nov 2002 02:22:31 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: how do I turn off unicode on file I/O?
Message-Id: <3DD4A0B7.ABB80601@earthlink.net>
Jamie Zawinski wrote:
>
> Benjamin Goldberg wrote:
> >
> > What happens with the following script:
>
> It does this:
>
> !! imode bytes, omode bytes
> ## 102 111 246 98 97 114
> << foöbar
This looks like good output.
> !! imode utf8, omode bytes
> Malformed UTF-8 character (unexpected non-continuation byte 0x62,
> immediately
> after start byte 0xf6) in ord at /tmp/c.pl line 14, <FH> line 2 (#1)
> Malformed UTF-8 character (unexpected non-continuation byte 0x62,
> immediately after start byte 0xf6) in ord at /tmp/c.pl line 14, <FH>
> line 2.
> ## 102 111 0
> Wide character in print at /tmp/c.pl line 15, <FH> line 2 (#2)
> (W utf8) Perl met a wide character (>255) when it wasn't expecting
> one. This warning is by default on for I/O (like print) but can
> be
> turned off by no warnings 'utf8';. You are supposed to explicitly
> mark the filehandle with an encoding, see open and
> perlfunc/binmode.
>
> << foöbar
I'm slightly surprised that this produced correct looking output on the
"<<" line, but the warnings and the truncated "##" line don't surprise
me one bit.
> !! imode bytes, omode utf8
> ## 102 111 246 98 97 114
> << foöbar
If your terminal (xterm or whatever) understood utf8, like $LANG claims,
then this sequence of bytes would show up correctly.
> !! imode utf8, omode utf8
> Malformed UTF-8 character (unexpected non-continuation byte 0x62,
> immediately
> after start byte 0xf6) in ord at /tmp/c.pl line 14, <FH> line 4 (#1)
> ## 102 111 0
> << foöbar
As with the other thing with imode utf8, I'm surprised at the "good"
output on the "<<" line, and am not surprised with the warnings and
truncated "##" line.
So, in conclusion, you need to set the mode of the file you're reading
from to ":bytes" (or maybe ":encoding(latin1)" (though only after
loading the Encode.pm module)), and you need to set the mode of STDOUT
to either ":bytes" or ":utf8" or whatever you're xterm or whatever will
understand.
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: 15 Nov 2002 02:19:03 GMT
From: gorilla@elaine.furryape.com (Alan Barclay)
Subject: Re: installing perl on winxp
Message-Id: <1037326743.173277@elaine.furryape.com>
In article <3dd3c762.2551564425@news.cis.dfn.de>,
Helgi Briem <helgi@decode.is> wrote:
>On Thu, 14 Nov 2002 06:54:46 -0600, "William Alexander
>Segraves" <wsegrave@mindspring.com> wrote:
>
>>"thebladerunner" <thebladerunner@xmission.com> wrote in message
>>news:aqv19r$phb$1@terabinaries.xmission.com...
>>> I have a question about using perl on a winxp machine that I have at work.
>>I
>>> used to have a win2k machine that I was a poweruser on and this wasn't a
>>> problem. On the new machine I am only a user. After attempting an
>>> installation of the latest version of ActiveState Perl I cannot run any
>>perl
>>> scripts. Perl does not have a proper PATH environment set-up and even if
>>I
>>> coax it a bit I still can't get any modules to work.
>>>
>>> Does anyone have any advice about how to work around this problem? I'm
>>> about to the point of bringing my Debian laptop to work and telling my
>>> company they can stick this XP box.
>>
>>You might try installing IndigoPerl, www.indigostar.com, on your XP box. It
>>worked fine when I did this on my son's (similar) XP system.
>
>No, if he is only an ordinary user he is not allowed to
>set up any programs. He has to ask the administrator
>to allow him to do that.
Indigo perl doesn't really require any of the 'normal' program setup.
I'd agree, it's worth a try.
------------------------------
Date: Thu, 14 Nov 2002 20:44:56 -0600
From: "William Alexander Segraves" <wsegrave@mindspring.com>
Subject: Re: installing perl on winxp
Message-Id: <ar1n56$4g$1@slb9.atl.mindspring.net>
"Helgi Briem" <helgi@decode.is> wrote in message
news:3dd3c762.2551564425@news.cis.dfn.de...
> On Thu, 14 Nov 2002 06:54:46 -0600, "William Alexander
> Segraves" <wsegrave@mindspring.com> wrote:
<snip>
> >You might try installing IndigoPerl, www.indigostar.com, on your XP box.
It
> >worked fine when I did this on my son's (similar) XP system.
>
> No, if he is only an ordinary user he is not allowed to
> set up any programs. He has to ask the administrator
> to allow him to do that.
Helgi, I'd have to defer to your expertise on WinXP. All I know is that I
was able to install and use IndigoPerl on my son's WinXP Dell system. IIRC,
I was logged in under my own user name, not his (; but I could be wrong).
What you appear to be suggesting is that a user of WinXP cannot install a
program under his own user name unless he has admin privileges. Do you know
that to be true?
Thanks.
Bill Segraves
------------------------------
Date: Thu, 14 Nov 2002 20:09:05 -0800
From: "Tan Nguyen" <nospam@nospam.com>
Subject: Re: Is Perl capable to write and read Word file or Excel file?
Message-Id: <3dd472c8$1_7@nopics.sjc>
"Colin Smith" <peibing@hotmail.com> wrote in message
news:5a1cd92b.0211141604.7e186977@posting.google.com...
> Hi all:
>
> Currently I am using VBscript and ASP to generate a txt file as the
> packing slip and attach that txt file to the e-mail purchase order.
> But I would like to generate a Word file instead. Is it possible to
> use Perl to read and write a Word file?
Win32::OLE
> TIA.
>
> Colin
------------------------------
Date: Fri, 15 Nov 2002 02:08:11 GMT
From: echang@netstorm.net (ebchang)
Subject: Re: newbie to perl: printing literals(constants).
Message-Id: <Xns92C6D72AA74E1echangnetstormnet@207.106.93.86>
seb bean <sebbean@charter.net> wrote in <3DD42942.3040507@charter.net>:
>Andrew Plata wrote:
>> Hello my name is Andrew,
>>
>> I am a newbie to programming in perl and I was wondering if anyone can
>> help me understand the author's script.
>>
>> Have a look a the following script:
>>
>>> ! /usr/bin/perl
>>> Program to illustrate printing literals
>> print "The price is $100.\n";
>> print "The price is \$100.\n";
>> print "The price is \$",100, ".\n";
[snip]
>ok, the backslash before the dollar sign tells perl that it's not a
>scalar value
>(you know the variables that start with dollar signs, maybe you havnt
>got that far)
>
>the period is just a period...it marks the end of the sentance...it has
>no signifigance in perl(that i know of) it's just simple english.
>(notice the . after english, get it?)
>
>and the the reason it wasnt put on a new line is because you didnt put a
>comma after the period
>so: perl -e 'print "The price is \$", 100, ., "\n";' will work
> notice commas: ^ ^ ^
No, it will produce a syntax error. Just as perl -e 'print +' would.
In the original three versions, the period was just that- a literal period
in a quoted string. Outside quotes the period can serve as the
concatenation operator. For example, "abc"."def" is the same as "abcdef".
But it has to have operands.
The third of the OP's examples passes a list of three arguments to the print
frunction: The string "The price is \$", the number 100, and the string ".
\n" The three arguments are separated by commas. The period is in the same
position in relation to the 100 and the \n that it was in the previous two
examples. The sentence to be output has simply been broken up into several
pieces.
>anyway, you shuld probably keep the period inside the quotes so you dont
> think it's some operator or something
>
>anything you dont understand?
>
I don't understand why you said that example would work. :)
--
EBC
------------------------------
Date: Thu, 14 Nov 2002 20:07:02 -0800
From: "Tan Nguyen" <nospam@nospam.com>
Subject: Re: Partial matching of keys in a hash: Would this code work?
Message-Id: <3dd4724d_5@nopics.sjc>
"Marc Bissonnette" <dragnet@internalysis.com> wrote in message
news:Xns92C6D10907BD9dragnetinternalysisc@206.172.150.14...
[snipped]
> I'm just looking to see if I've got the idea right, not necessarily
> whether or not the code is 100% usable, since I do not intend to actually
> implement it (mental excercise, I guess)
you might want to check out String::Approx for detecting similarity of two
strings. Simply chopping a string and repeatedly trying it again won't work
if the user has a typo like this asn jose instead of san jose. Your method
won't be able to suggest the correct name in this case.
i'd do something like this
get list of input cities from user
foreach city in cities do
push city into mismatch list if hash{city} doesn't exist
end
return OK if mismatch list is empty
allcities = keys from hash
foreach city in mismatch list do
suggest{city} = empty;
foreach cty in allcities do
if city is 80% similar to cty then
suggest{city} = cty;
break;
end
end
etc.
------------------------------
Date: Fri, 15 Nov 2002 02:10:40 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Partial matching of keys in a hash: Would this code work?
Message-Id: <3DD49DF0.D6CA84BB@earthlink.net>
Marc Bissonnette wrote:
>
> Hi all;
>
> I'm just asking out of curiosity here, since I'm almost certain my
> sample code below would be waaay too CPU intensive to actually be
> viable, but I'm curious to know if it would actually work to match
> partial keys.
Why not test it and see?
> I wrote the example below just for the heck of it in another NG when
> someone asked why I couldn't compare submitted city names to a master
> list and then present mis-spelled city names back to the user for
> correction.
I think for this you would want to measure string closeness, rather than
use regular expression comparisons.
use String::Approx; # from CPAN.
my @cities = ...;
my @partial_matches;
while( my ($mastercity) = each %mastercities ) {
push @partial_matches, $mastercity
if amatch( $mastercity, ['i'], @cities );
}
[untested]
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: 14 Nov 2002 21:42:45 -0800
From: krakle@visto.com (krakle)
Subject: Perl searching a huge mySQL database...
Message-Id: <237aaff8.0211142142.18511dbb@posting.google.com>
I'm about to work on a project that will allow many users to enter
rows and fields into a mySQL database from a Perl script. I need to
make the database searchable for quick and easy finding. Speed and
time is very crucial. With Perl, is it possible to search a large
database with in a reasonable amount of time? Any additional modules
to look into? Any tips and insight for me?
Thank you.
------------------------------
Date: Fri, 15 Nov 2002 00:04:00 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Perl searching a huge mySQL database...
Message-Id: <slrnat93ig.1u7.tadmc@magna.augustmail.com>
krakle <krakle@visto.com> wrote:
> I'm about to work on a project that will allow many users to enter
> rows and fields into a mySQL database from a Perl script. I need to
> make the database searchable
mySQL is searchable right out of the box.
You don't "need to make it searchable", it already is.
> for quick and easy finding. Speed and
> time is very crucial.
^^^^^^^^^^^^^^^^^^^^
Use C or assembly language then, not Perl.
> With Perl, is it possible to search a large
> database with in a reasonable amount of time?
The programming language won't matter much.
The database itself will do most of the heavy lifting.
> Any tips and insight for me?
Yes, but this is a family newsgroup, so I'll restrain myself.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 15 Nov 2002 17:06:19 +1100
From: Simon Taylor <simon@unisolve.com.au>
Subject: Re: Perl searching a huge mySQL database...
Message-Id: <ar233r$95h$1@otis.netspace.net.au>
krakle wrote:
> I'm about to work on a project that will allow many users to enter
> rows and fields into a mySQL database from a Perl script. I need to
> make the database searchable for quick and easy finding. Speed and
> time is very crucial. With Perl, is it possible to search a large
> database with in a reasonable amount of time? Any additional modules
> to look into? Any tips and insight for me?
Goto the DBI source himself ;-)
http://labs.redhat.com/cturner/DBI_AdvancedTalk_2002/
This is a series of slides where Tim Bunce talks about DBI speed issues.
My experience with large MySQL databases and perl has been very positive,
though of course a lot depends on what *you* mean by the word "huge".
Hope this helps,
Simon Taylor
------------------------------
Date: 15 Nov 2002 06:18:35 GMT
From: gorilla@elaine.furryape.com (Alan Barclay)
Subject: Re: Perl searching a huge mySQL database...
Message-Id: <1037341115.908167@elaine.furryape.com>
In article <237aaff8.0211142142.18511dbb@posting.google.com>,
krakle <krakle@visto.com> wrote:
>time is very crucial. With Perl, is it possible to search a large
>database with in a reasonable amount of time? Any additional modules
>to look into? Any tips and insight for me?
This isn't a perl question, it's a database question.
You need to design your database so that the queries you want to do
are as fast as possible. This means correct table structure and
indexes, and obviously no-one can do that without seeing your
data.
Once you've done this, then perl only needs to connect using DBI,
issue the SQL query, and wait for the response.
------------------------------
Date: Fri, 15 Nov 2002 06:48:34 GMT
From: "Gregory Toomey" <nobody@noplace.com>
Subject: Re: Perl searching a huge mySQL database...
Message-Id: <01c28c70$3c2cf400$e25d8690@gmtoomey>
krakle <krakle@visto.com> wrote in article
<237aaff8.0211142142.18511dbb@posting.google.com>...
> I'm about to work on a project that will allow many users to enter
> rows and fields into a mySQL database from a Perl script. I need to
> make the database searchable for quick and easy finding. Speed and
> time is very crucial. With Perl, is it possible to search a large
> database with in a reasonable amount of time? Any additional modules
> to look into? Any tips and insight for me?
>
> Thank you.
>
Well I have a single Mysql table of about 500MB at
http://www.float.com.au/data . Retrieval of data for any day (say 1000
rows) takes well under a second (using an index).
I just use standard Perl, the DBI module, Mysql 3, Apache (with a few
rewrite rules).
But the way to get speed with large tables is to use appropriate
primary(unique) and secondary(nonunique) used by your sql queries. Think
about what fields will appear in your "where" clauses, and what joins you
will be using. I also use a technique called data warehousing where the
data is denormalised to improve query speed.
Have a look into database design, query optimisation, data warehousing,
normalisation & denormalisation, and examples from the mysql manual.
gtoomey
------------------------------
Date: Fri, 15 Nov 2002 06:03:12 -0000
From: Rocco Caputo <troc@netrus.net>
Subject: Re: Socket dropping packets
Message-Id: <slrnat93c5.8ma.troc@eyrie.homenet>
Followups set to comp.lang.perl.misc.
On Thu, 14 Nov 2002 23:27:06 GMT, Jeff Walter wrote:
> I have a Perl program that uses a UDP socket to send and recieve data.
> I recieve a list of servers (approx. 1300) that I then query. I have
> verified the following with Network Monitor: All the queries go out, about
> 90% are replied to. However, my Perl program only gets like 20-30 of the
> replies. I am getting some errors about $peeraddr being empty, although
> there are not enough of the errors to make up for the dropped packets.
So your receive loop is executed after you send ~1300 UDP packets.
What do you do about all the UDP responses that come in while you're
still sending them?
Chances are good you don't do anything. Unfortunately, ~1300 packets
will back up in your OS kernel, and many of them probably will be
discarded. Since UDP is unreliable, the discarded packets are gone
forever.
A better plan might be to send ~20 queries and then send a new one for
every response that comes back. Keep track of the send times for each
query, and retry and/or discard them if a response doesn't come back
in a few seconds.
This (and more) was covered in vast, gory detail in another thread.
Have a read through this. It's broken into two lines for Usenet; just
join them back together without any spaces after the question mark.
http://groups.google.com/groups?
threadm=uq8nidb2fn7gf2%40corp.supernews.com&rnum=1
-- Rocco Caputo - troc@pobox.com - http://poe.perl.org/
------------------------------
Date: Fri, 15 Nov 2002 02:27:19 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Windows and nonblocking IO
Message-Id: <3DD4A1D7.31E7D711@earthlink.net>
edgue@web.de wrote:
>
> Benjamin Goldberg wrote:
> > I would suggest you report it using perlbug. (Give a *minimal* perl
> > script which shows this).
>
> I am not sure if it is really a bug. Active Perl 5.6.1 reacted in the
> same way: you called blocking(1) - and no error information; simply
> failing ...
For it to fail without any error information is, IMHO, a bug.
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: Fri, 15 Nov 2002 06:49:55 +0000
From: "Dave Cross" <dave@dave.org.uk>
Subject: Re: write to file
Message-Id: <pan.2002.11.15.06.49.55.52124@dave.org.uk>
On Thu, 14 Nov 2002 19:56:33 +0000, Linux.ie wrote:
> do i have to write something before that because iam getting a error back
> saying "no comma allowed"
There was a typo in my advise. The error message will make it very clear
where the problem is and reading the manual page for the function in
question will make it simple to fix it.
And _please_ learn to quote previous messages when making poss to usenet.
Dave...
--
Drugs are just bad m'kay
------------------------------
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 4123
***************************************
