[21907] in Perl-Users-Digest
Perl-Users Digest, Issue: 4111 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 13 06:06:27 2002
Date: Wed, 13 Nov 2002 03: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 Wed, 13 Nov 2002 Volume: 10 Number: 4111
Today's topics:
Re: [Q] Script to search auction sites? (Sir Loin of Beef)
Binary Deployment for Perl? (Peter Wu)
Re: Binary Deployment for Perl? <emanuel@xconnect.ch>
Re: DBI Question (script included) <bobx@linuxmail.org>
Re: DBI, mysql, how do I get the results into an array <spam@digitaltension.com>
Re: DBI, mysql, how do I get the results into an array <jurgenex@hotmail.com>
Re: Find perl modules in perl script <robertbu@hotmail.com>
Re: Find perl modules in perl script <fxn@hashref.com>
Re: Help the script doesn't work <garry@ifr.zvolve.net>
Re: illegal use of comment ? <spam@digitaltension.com>
Re: illegal use of comment ? (Villy Kruse)
Re: illegal use of comment ? <bart.lateur@pandora.be>
new problems with tripod.com cgi-bin scripts cannot wri (Tyger Tyger)
Re: Newbie with Perl <spam@digitaltension.com>
Re: Perl, IE6, IIS, and MS Access <goldbb2@earthlink.net>
Re: Proper pipe handling <nospam@hooey.invalid>
Re: regexp question <reggie_nospam@reggieband.com>
Re: Simple question - What is unicode? <bart.lateur@pandora.be>
Re: some help with a print statement requested - double (Philip Lees)
Re: Windows and nonblocking IO edgue@web.de
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 13 Nov 2002 10:26:38 GMT
From: NOSPAMmdknight@pacific.net.sg (Sir Loin of Beef)
Subject: Re: [Q] Script to search auction sites?
Message-Id: <3dd228dc.4873755@news.pacific.net.sg>
Thanks for the info.
Is this the appropriate code logic to follow?
1. Present HTML form with input box for search term
2. once submitted, connect to auction site 1 by using url with search
term appended
3. print all results to screen, close connection
4. connect to auction site 2 by using url with search term appended
5. print all results to screen, close connection
It seems simple enough, but am I leaving anything out?
>You'll need a working /cgi-bin/ directory to start off.
>
>Use the CGI module to interface and collect the information from the web
>browser. See http://search.cpan.org/author/JHI/perl-5.8.0/lib/CGI.pm
>for details.
>
>Use LWP or LWP::Simple to connect to the remote auction sites. See
>http://search.cpan.org/author/GAAS/libwww-perl-5.65/lib/LWP/Simple.pm
>for details.
>
>Parse the returning results if necessary. See
>http://www.perldoc.com/perl5.8.0/pod/perlre.html for details.
>
>
>Best of luck.
>
>-----BEGIN xxx SIGNATURE-----
>Version: GnuPG v1.0.6 (GNU/Linux)
>Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
>
>iD8DBQE90Z1FeS99pGMif6wRAo0UAJ4mbvcoLONQvIIylU74M98x02Q0fwCfdpbW
>6Lk+euw9rjkaOtVs1HOGA0U=
>=u3kM
>-----END PGP SIGNATURE-----
>
------------------------------
Date: 13 Nov 2002 01:36:06 -0800
From: peterwu@hotmail.com (Peter Wu)
Subject: Binary Deployment for Perl?
Message-Id: <9acc2ac1.0211130136.3fa250ce@posting.google.com>
Hello, I'm a newbie to Perl programming.
As I am learning Perl, I find that I can run a Perl program (*.pl or
*.cgi) that may leverages any existing Perl Modules (*.pm).
My question is whether we have to deploy our Perl programs to be *open
source*? I mean whether we can deploy a Perl prgram, at least PM, in a
binary format so that customers or end users will not be able to see
the source code I make.
Do I have to open my source if I choose Perl to program? Thank you!
-Peter
------------------------------
Date: Wed, 13 Nov 2002 10:43:18 +0100
From: "Emanuel Nacht" <emanuel@xconnect.ch>
Subject: Re: Binary Deployment for Perl?
Message-Id: <3dd21e9d$1@news.swissonline.ch>
"Peter Wu" <peterwu@hotmail.com> wrote:
> Hello, I'm a newbie to Perl programming.
>
> As I am learning Perl, I find that I can run a Perl program (*.pl or
> *.cgi) that may leverages any existing Perl Modules (*.pm).
>
> My question is whether we have to deploy our Perl programs to be *open
> source*? I mean whether we can deploy a Perl prgram, at least PM, in a
> binary format so that customers or end users will not be able to see
> the source code I make.
>
> Do I have to open my source if I choose Perl to program? Thank you!
Hello Peter
you might want to take a look at activestates perl dev kit at
http://www.activestate.com/Products/Perl_Dev_Kit/ if you're intending
to deploy your perl programs on windows.
regards
Emanuel
------------------------------
Date: Wed, 13 Nov 2002 10:42:33 GMT
From: "Bob X" <bobx@linuxmail.org>
Subject: Re: DBI Question (script included)
Message-Id: <t0qA9.47947$Lg2.13904590@news2.news.adelphia.net>
I had a NULL field!
Thanks!!!
------------------------------
Date: Tue, 12 Nov 2002 22:00:10 -0800
From: "Brandon L" <spam@digitaltension.com>
Subject: Re: DBI, mysql, how do I get the results into an array without
Message-Id: <ut3qk6ddnq661d@corp.supernews.com>
> > next, in various parts of my script i use this sub like this:
> > $query = qq~SELECT * FROM database WHERE 1~;
>
> You are not using strict. Ugh.
Well the reason for this is simple. I create a sub, I then build a template
system. When i go to site.com/cgi-bin/go?page=profile in my go file i find
page variable, then i require profile.inc, this keeps my site completely
modular and small. I always include a common.inc file which has commong
things like the sql connectiods, etc. So in my common file i make a mysql db
connection, because i will always make one to authenticate my users.
Ok, now through the generation of my page i make several sql queries, now
why should i make a seperate connection each time, plus its less coding.
instead i just build my query as $query and then send this off to my
subroutine, so it does the work and lets me work with the data later, in
this case an array @sqlResults which i can do what i want with.
not using strict, well i am lazy and dont want to comment everything out.
> > sqlQuery($query);
>
> You are retrieving the results through a global variable, rather than
> as the return value of the subroutine. Ugh Ugh.
I never learned how to return values, LOL... some people would probably be
amazed some of my first code even worked, haha
can you give me a quickie?
> > sub sqlQuery {
> > undef(@sqlResults);
> >
> > $myQuery = "$_[0]";
> >
> > $sth = $dbh->prepare($myQuery);
> > # Shouldnt this fix the fethrow_array failed without execution error?
> > $rv = $sth->execute or die "executing: ", $dbh->errstr;
>
> That depends on what is causing the error. I bet you call sqlQuery with
> a query of "Update blah" or "Insert blah" at some point. The execute
> succeeds, so there is no error to catch at this point. On the other hand,
> the query was not a select, so it doesn't set itself up for future
> invokation of fetch.
i call sqlQuery by creating my query like
$query = qq~INSERT INTO database blah blah~; sqlQuery($query);
> >
> > while (@sqlArray = $sth->fetchrow_array) {
> > @sqlArray = join ("|", @sqlArray);
>
> Ack. Store scalars in scalars.
huh? en engles por favor? grassyass
> > push(@sqlResults, "@sqlArray");
>
> double Ack. why the quotes?
thought that was the proper syntax/format
------------------------------
Date: Wed, 13 Nov 2002 06:51:07 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: DBI, mysql, how do I get the results into an array without
Message-Id: <vDmA9.9910$6Z.9364@nwrddc01.gnilink.net>
Brandon L wrote:
>> You are not using strict. Ugh.
> not using strict, well i am lazy and dont want to comment everything
> out.
Commenting out? All you have to do is to declare the variables, typically
with "my".
That shouldn't be too much to ask when it can save you A LOT of trouble.
>> You are retrieving the results through a global variable, rather than
>> as the return value of the subroutine. Ugh Ugh.
>
> I never learned how to return values, LOL... some people would
> probably be amazed some of my first code even worked, haha
> can you give me a quickie?
perldoc -f return
sub foo {
# always returns "Hello World"
my $bar = "Hello World";
return $bar;
}
[...]
>>> @sqlArray = join ("|", @sqlArray);
>>
>> Ack. Store scalars in scalars.
> huh? en engles por favor? grassyass
Did you check the man pages of the functions you are using (perldoc -f
join)?
The return value of join is a scalar (in case of join actually a string).
You are assigning this scalar to an array.
If you would have enabled warnings perl would have warned you about that.
>>> push(@sqlResults, "@sqlArray");
>>
>> double Ack. why the quotes?
> thought that was the proper syntax/format
Why thought? Didn't you check the man page (perldoc -f push)?
There it says
push ARRAY,LIST
[...]
What you are doing is first stringify the array, i.e. convert the array into
a string.
And then because push expects a list this string will be converted into a
one-element list.
And then this one element will be pushed onto the array. I doubt this is
what you want.
jue
------------------------------
Date: Wed, 13 Nov 2002 05:52:06 GMT
From: "robertbu" <robertbu@hotmail.com>
Subject: Re: Find perl modules in perl script
Message-Id: <aMlA9.5000$i03.2071@nwrddc03.gnilink.net>
>
> How to find installed perl modules in system (Unix or Linux) by using
Perl?
>
> Thanks a lot.
I bumped into this awhile back:
http://www.perl-studio.com/env/
You will find free scripts for finding the perl environment, including
installed modules and packages, for both Unix and Windows. The script
produce information for much more than modules and the output is HTML. So
you will have to do some extracting and rewriting, or simply use the example
and roll your own solution, to handle just installed modules.
== Rob ==
------------------------------
Date: 13 Nov 2002 08:52:53 +0100
From: Xavier Noria <fxn@hashref.com>
Subject: Re: Find perl modules in perl script
Message-Id: <87smy552ju.fsf@kodo.localdomain>
ibm_97@yahoo.com (JZ) writes:
: Perl newbie.
:
: How to find installed perl modules in system (Unix or Linux) by using Perl?
If you mean you want to know whether the module Foo::Bar is installed in
your system, see whether this gives an error (it is not) or else returns
silently another shell prompt (it is):
$ perl -MFoo::Bar -e1
Otherwise, if you need to list all the modules installed in your system
try this in a sh-like shell:
$ for d in `perl -e'print "@INC"'`; do \
if [ $d != '.' ]; then find $d -name '*.pm'; fi done
-- fxn
------------------------------
Date: Wed, 13 Nov 2002 06:20:06 -0000
From: Garry Williams <garry@ifr.zvolve.net>
Subject: Re: Help the script doesn't work
Message-Id: <slrnat3rom.scm.garry@zfw.zvolve.net>
On Wed, 13 Nov 2002 04:37:03 GMT, Bob Walton <bwalton@rochester.rr.com> wrote:
> Nick Richards wrote:
>>
>> open (TEMP,"/logs/web/tenants/temp.txt");
>
>
> *Always* *always* check open's to see if they were successful or not.
> If the file isn't actually opened, the rest of your program "won't
> work". Use something like:
>
> open TEMP,"filename" or die "Oops, $!";
Checking the return value of system calls is very good advice.
But ...
Please include the file name in such messages. It will save someone
else (maybe you :) a lot of time some day.
--
Garry Williams
------------------------------
Date: Tue, 12 Nov 2002 22:49:38 -0800
From: "Brandon L" <spam@digitaltension.com>
Subject: Re: illegal use of comment ?
Message-Id: <ut3tgt3c8c9bd3@corp.supernews.com>
since when does the UK or any non-US country use pound for weight? i thought
we were the only bastard country that did that, isnt everyone metric now?
now, a liter is like a pound right?
;-)
"tk" <tk@WINDOZEdigiserv.net> wrote in message
news:qhtvsu0qccls321la25fdhlup9vicfoelo@4ax.com...
> -----BEGIN xxx SIGNED MESSAGE-----
> Hash: SHA1
>
> In a fit of excitement on 11 Nov 2002 18:02:50 GMT,
> vek@station02.ohout.pharmapartners.nl (Villy Kruse) managed to
> scribble:
>
> | On Mon, 11 Nov 2002 17:10:20 GMT,
> | tk <tk@WINDOZEdigiserv.net> wrote:
> |
> |
> | >
> | ># (being a hash, not £ pound) should work without spaces.
> | >
> | >
> |
> |
> | That us a US thing. # is the pound sigh over there, that is, not
> | pound sterling but the unit of weight.
> |
> |
> | Villy
>
> Ooo, thank for clearing that up Villy.
>
> We (in the UK) use 'lb' for pounds in weight.. hence my confusion =)
>
>
> Regards,
>
> tk
>
> -----BEGIN xxx SIGNATURE-----
> Version: PGP Personal Privacy 6.5.3
>
> iQA/AwUBPc/2gijNZg8h4REKEQI1mgCfYi9d6ni4IlPrDeUKhJ98Gg7+dnoAoMzP
> T/yV0YMGjSl6qrWG6VM8wOKF
> =p8qf
> -----END PGP SIGNATURE-----
>
> --
> +--------------------------+
> | digiServ Network |
> | Web solutions |
> | http://www.digiserv.net/ |
> +--------------------------+
>
> Remove WINDOZE to reply
------------------------------
Date: 13 Nov 2002 08:15:47 GMT
From: vek@station02.ohout.pharmapartners.nl (Villy Kruse)
Subject: Re: illegal use of comment ?
Message-Id: <slrnat42hi.s3t.vek@station02.ohout.pharmapartners.nl>
On Wed, 13 Nov 2002 02:08:59 GMT,
pkent <pkent77tea@yahoo.com.tea> wrote:
>In article <aqpltp$7hn$1@canopus.cc.umanitoba.ca>,
> roberson@ibd.nrc.ca (Walter Roberson) wrote:
>
>> In article <pkent77tea-60BF37.21505711112002@news-text.blueyonder.co.uk>,
>> pkent <pkent77tea@yahoo.com.tea> wrote:
><som rambling rubbish>
>
>> Using the character '#' has some ambiguity: ASCII allowed the display
>> for that position to be the UK pounds-stirling L-bar symbol. (Or
>
>Do they? Fsck. Ok then 'the character at Unicode code point
>0xwhateveritis commonly called hash or square or...'.
>
The British version of 7 bit "ASCII" has indeed pund sterling where US-ASCII
has the '#' sign. That according to iso646-GB with an equivalent British
standard. www.czyborra.com contains some information on the various iso646
codes as well as other character encoding standards.
Villy
------------------------------
Date: Wed, 13 Nov 2002 08:41:24 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: illegal use of comment ?
Message-Id: <8d34tuotasptsvl7elo97a3p6aj62pb8gr@4ax.com>
Brandon L wrote:
>since when does the UK or any non-US country use pound for weight? i thought
>we were the only bastard country that did that, isnt everyone metric now?
And where did you think that the US got this filthy habit from?
The UK is the only Western European country that traditionally has these
wacky measurement units, and the common people still seem reluctant to
accept the decimal (ISO) system. Just look at the British money before
it got decimalised. Like, here:
<http://www.geocities.com/david.s.church/famhist/infotools/britishcoins.html>
>>now, a liter is like a pound right?
>>
>>;-)
No, a liter is more like 2 pounds (actually a bit more), for water based
fluids. One liter of pure water weighs 1 kg, and measures, in cube
shape, 10 by 10 by 10 cm³. So 1 by 1 by 1 m³ weights1000 kg.
Circumference of the earth is 40000km, exactly if you got the right
direction, or the distance from equator is 10000 km. It's all
interconnected.
--
Bart.
------------------------------
Date: 13 Nov 2002 01:48:33 -0800
From: misterbray@hotmail.com (Tyger Tyger)
Subject: new problems with tripod.com cgi-bin scripts cannot write files
Message-Id: <5bc996c9.0211130148.18723f89@posting.google.com>
Does anyone use Tripod.com cgi-bin? If so, have you noticed that as
of yesterday (Nov 12), your scripts can no longer write files? This
is after Tripod.com apparently implemented some sort of safe.pm module
haphazardly and without alerting their users. Now, suddenly, scripts
cannot write. This is not a script error, as multiple users are
seeing it, with multiple scripts. Any solutions? OR any other free
hosts that let you run cgi-bin??
Peter
------------------------------
Date: Tue, 12 Nov 2002 22:45:42 -0800
From: "Brandon L" <spam@digitaltension.com>
Subject: Re: Newbie with Perl
Message-Id: <ut3t9i2k9ul968@corp.supernews.com>
haha... i just LOVE RTFM's... the best book that was recommedned to me was
o'reilly's perl book... oh yeah it was great... chapter 1 - here are 2
simple commands, chapter 2 - look what you can do with these new 2 commands,
chapter 3 - build this big freakin program using these commands we may or
may not have ocvered very well, and good luck may the force be with you!
;-)
needless to say i wasnt able to learn from that book, it took my boss just
sitting with me for a night to get me rolling... i find it hard to learn
from books, i need to learn by example
"Bart Lateur" <bart.lateur@pandora.be> wrote in message
news:qqa3tugrrp7s6jdu215aggagepe0a2bv0r@4ax.com...
> Michael J Wilusz wrote:
>
> > Sure, I can pick up a Perl book and thumb through 700
> >pages... and then when I'm done reading it, I can be all set to retire.
> >Judging from the example code, there are certain parallels with Java, but
> >there's many hurdles to still jump over.
>
> Well then maybe it's a matter of picking proper tutorials. Online
> articles on Perl are often nice. <http://www.perl.com> has a few;
> <http://hotwired.lycos.com/webmonkey/programming/> also. But my
> favourites by far are the magazine columns by Randal L. Schwartz,
> <http://www.stonehenge.com/merlyn/columns.html>. Many of these are very
> similar in spirit to your problem here, Especially those in UnixReview,,
> so it seems, so they may help you get on the way quickly.
>
> <http://www.stonehenge.com/merlyn/UnixReview/>
>
> --
> Bart.
------------------------------
Date: Wed, 13 Nov 2002 00:52:28 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Perl, IE6, IIS, and MS Access
Message-Id: <3DD1E89C.8BEE72D6@earthlink.net>
Deron Huskey wrote:
[CGI times out when doing lots of SQL checks]
Can you show us your code? Try trimming it down to the smallest piece
of working code that demonstrates the problem.
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: Wed, 13 Nov 2002 06:23:54 GMT
From: Starling <nospam@hooey.invalid>
Subject: Re: Proper pipe handling
Message-Id: <m1r8dq3uwa.fsf@localhost.localdomain>
Okay, thank you. I'll go look up that 'a . b' notation, reminds me of
lisp... and definitely look up EPIPE. I don't know about examining
the code, seems like that's the solution to every problem. :) Race
conditions are tricky since the error doesn't happen regularly (and
/never/ when you trace through it, OH no...). Detecting them after
the mistake has been made has been for me a matter of staring at the
code, trying different things until I figure out where the gap in
understanding is causing a random error. I guess there's no better
way to do it then.
Starling
------------------------------
Date: Wed, 13 Nov 2002 08:03:50 GMT
From: "reggie" <reggie_nospam@reggieband.com>
Subject: Re: regexp question
Message-Id: <GHnA9.812508$Ag2.27465218@news2.calgary.shaw.ca>
"Jeff 'japhy' Pinyan" <pinyaj@rpi.edu> wrote in message
news:Pine.A41.3.96.1021112165856.53628A-100000@vcmr-104.server.rpi.edu...
> [posted & mailed]
>
> On Tue, 12 Nov 2002, reggie wrote:
>
> >$text = "Apples are good
> >food and great
> >Bananas are yellow
> >Oranges are
> >juicy";
>
> >@arr = (
> > 0 => "Apples are good\nfood and great"
> > 1 => "Bananas are yello"
> > 2 => "Oranges are\njuict"
> >)
> >
> >The terms banana, orange and apple will only ever occur at the beginning
of
> >a line.
>
> I would use split() for this, then...
>
> @arr = split /\n(?=apple|banana|orange)/i, $text;
Yes, this works. regards.
For interests sake (my own), if the problem were extended to the following:
$text="apples and foo
and bar and oranges and foo
and bar and bananas and bar
or apples and foo";
If I wanted to grab everything from (apples|oranges|bananas) up to but
excluding the next (apples|oranges|bananas), what might be the best
approach?
The resultant array:
@arr = (
0 => "apples and foo\nand bar and "
1 => "oranges and foo\nand bar and "
2 => "bananas and bar\nor "
3 => "apples and foo"
);
Thank you for your help.
regards,
reggie.
------------------------------
Date: Wed, 13 Nov 2002 08:30:08 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Simple question - What is unicode?
Message-Id: <0r24tusf4iu0sgep6o3gpg1gpb32vurnl3@4ax.com>
pkent wrote:
>So rather than a literal ;left single
>smart quote' you have to put '–' or whatever in your XML.
That is not right. The numerical value you put in there should be the
character's *Unicode* ordinal number. For a list for the Windows
character set, see
<http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1252.TXT>
There you can see that the "left single smart quote" is hex 0x91, or
decimal 145, in Windows (150 is the "ndash"); but hex 0x2018, decimal
8216 in Unicode. So the correct numerical entity would be "‘". But
you may use hex as well, with an "x" between the "#" and the digits:
"‘"
--
Bart.
------------------------------
Date: Wed, 13 Nov 2002 09:33:26 GMT
From: pjlees@ics.forthcomingevents.gr (Philip Lees)
Subject: Re: some help with a print statement requested - double quotes giving me trouble!
Message-Id: <3dd21bd0.68666562@news.grnet.gr>
On Tue, 12 Nov 2002 11:59:32 -0800, Paul Spitalny
<no_spam@no_spam.com> wrote:
>Hi,
>I am trying to print a line and I want quotation marks in the output
>line. The exact output line I want to print, to the output file, is:
>
> .options probefilename="output.dat"
>
>I tried to print the line using the following perl code:
>
> print TEMP ".options probefilename="output.dat"\n";
>
>But,this does not work.
>
>I can successfully do the following:
>
> print TEMP ".options probefilename='output.dat'\n";
>
>But, although this will execute, the single quote is not what I want.
>I surmise that the double quotes are confusing the print statement. How
>can I get around this problem??
Two ways:
1. Split the print job into two and use single quotes for the first
part.
print '.options probefilename="output.dat"', "\n";
2. Use the qq double quote operator.
print qq(.options probefilename="output.dat"\n);
See perlop 'Quote and Quote-like Operators' for more.
Phil
--
Ignore coming events if you wish to send me e-mail
------------------------------
Date: Wed, 13 Nov 2002 08:16:32 +0100
From: edgue@web.de
Subject: Re: Windows and nonblocking IO
Message-Id: <3DD1FC50.5060107@web.de>
Benjamin Goldberg wrote:
> Does the program hang, or exit cleanly without printing anything?
The later one.
See for yourself:
-------------------
> D:\test\perl\server>perl -version
This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-2001, Larry Wall
Binary build 628 provided by ActiveState Tool Corp.
http://www.ActiveState.com
Built 15:41:05 Jul 4 2001
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'. If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.
> D:\test\perl\server>perl nonblocking_sockets.pl
> D:\test\perl\server>
-------------------
>>With Perl 5.8 it tells me "Couldn't set nonblocking:"
>>right away.
> With nothing in $^E or $! ? How strange. Try changing the die
> statement to:
> die sprintf "Couldn't set nonblocking:\n" .
> "\t\$! = %d %s\n\t\$^E = %d %s\n\t", $!, $!, $^E, $^E;
Result:
Couldn't set nonblocking:
$! = 0
$^E = 0
at nonblocking_sockets.pl line 29.
------------------------------
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 4111
***************************************
