[19433] in Perl-Users-Digest
Perl-Users Digest, Issue: 1628 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 27 14:10:31 2001
Date: Mon, 27 Aug 2001 11:10:13 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <998935812-v10-i1628@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 27 Aug 2001 Volume: 10 Number: 1628
Today's topics:
Re: Performance : Shell X Perl <johndporter@yahoo.com>
pi (mgulde)
Re: pi <godzilla@stomp.stomp.tokyo>
RegEx? <baker@Akira.cyborgworkshop.com>
Re: RegEx? <ilya@martynov.org>
Re: RegEx? (John J. Trammell)
Re: RegEx? <samneric@tigerriverOMIT-THIS.com>
Selecting * on numerous MySQL tables. <dmittner@cavecreek.com>
Re: Sex or Perl? Which is better? <djberge@uswest.com>
Re: simple <johndporter@yahoo.com>
Re: Two simple structures! but what is the difference? <Thomas@Baetzler.de>
Re: Two simple structures! but what is the difference? <samneric@tigerriverOMIT-THIS.com>
Re: warnings with cgi will crash Win32 perl core <godzilla@stomp.stomp.tokyo>
Re: warnings with cgi will crash Win32 perl core <godzilla@stomp.stomp.tokyo>
Re: warnings with cgi will crash Win32 perl core <johndporter@yahoo.com>
Re: warnings with cgi will crash Win32 perl core <godzilla@stomp.stomp.tokyo>
Re: warnings with cgi will crash Win32 perl core <godzilla@stomp.stomp.tokyo>
Re: warnings with cgi will crash Win32 perl core <godzilla@stomp.stomp.tokyo>
Re: Why is $i so popular? <johndporter@yahoo.com>
Re: Will Perl report on variables no longer used?? (Abigail)
Win32 Socket Programming <lhswartw@ichips.intel.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 27 Aug 2001 14:18:51 GMT
From: John Porter <johndporter@yahoo.com>
Subject: Re: Performance : Shell X Perl
Message-Id: <3B8A561A.4BC94493@yahoo.com>
Mark Jason Dominus wrote:
> When you write an sh script, you
> have to call out to a lot of external utilities like eval, cut, sort,
> ls, ps, and so on. These may not be present everywhere, and if they
> are their argument formats and output may vary from platform to platform.
Quite right. I have to write scripts that run a variety of unix and
unix-like platforms (namely, Solaris, Irix, and Linux), and I am
constantly bitten by the fact that things are in different places,
or missing altogether. Hm. Is `mount` in /etc, or /bin, or /sbin,
or /usr/sbin? Where is ksh? IS there a ksh? Extra arguments to
uname? What arguments can I give `ps` to make it give me a useful
listing? How to query what patches have been applied on the system?
The so-called "unix toolkit" is about as far from standardized as
Java is from "write once, run anywhere".
Now, of course, even in perl I have to call out to `ps` or whatever,
but special-casing the arguments, and parsing the results, are much
more easily done in perl. OTOH, job control is a breeze in ksh; perl
can't even come close.
--
John Porter
------------------------------
Date: 27 Aug 2001 09:49:31 -0700
From: max.gulde@gmx.de (mgulde)
Subject: pi
Message-Id: <dcd6ad08.0108270849.1f3dcace@posting.google.com>
Hello,
I am trying to generate pi. For this, I wrote the following script:
>#! /usr/bin/perl -w
>#
>
>use strict;
>
>print "\n Berechnung von Pi\n\n";
>
>my $num = 0;
>my $pi = 0;
>my $pi_k = 0;
>my $i = 0;
>my $st1 = 0;
>my $st2 = 0;
>my $st3 = 0;
>my $st4 = 0;
>print "Enter number of calculations:\n\n";
>chomp ($num = <STDIN>);
>
>sub fakultaet { #nothing but x!
> my $zahl = shift;
> my $loop;
> my $fakul = 1;
> for ($loop = $zahl; $loop > 1; $loop--){
> $fakul *= $loop;
> }
> return $fakul;
> }
>
>
>for ($i=0; $i<=$num; ++$i)
>{
>$st1 = (2*sqrt(2))/9801;
>my $fakul = fakultaet(4*$i);
>$st2 = $fakul;
>$fakul = fakultaet($i);
>$st3 = $fakul**4;
>$st4 = (1103 + (26390 * $i))/(396**(4*$i));
>$pi_k += $st1 * ($st2/$st3) * $st4;
>}
>$pi = 1/$pi_k;
>printf ("With %d calculations pi is: %.16f", $num, $pi, "\n");
But with this script, perl can only display 16 digits. How can I make
this script more efficient (with higher numbers of digits)?
Is it possible to use formats like "bigInt" or "double" like in
Pascal?
Thanx,
mgulde
------------------------------
Date: Mon, 27 Aug 2001 10:43:24 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: pi
Message-Id: <3B8A86BC.8C335699@stomp.stomp.tokyo>
mgulde wrote:
(snipped)
> I am trying to generate pi. For this, I wrote the following script:
> But with this script, perl can only display 16 digits. How can I make
> this script more efficient (with higher numbers of digits)?
> Is it possible to use formats like "bigInt" or "double" like in
> Pascal?
http://dir.yahoo.com/Science/Mathematics/Numerical_Analysis/Numbers/Specific_Numbers/Pi/Calculating_Pi/
http://gallery.uunet.be/kurtvdb/pi.html
http://www.geocities.com/EnchantedForest/5815/program.html
Godzilla! Queen Of Cream Pi.
--
08:54:07 08/27/2001 - RESTRICTED FILE REDIRECT:
- DNS: woodfern-25.wia.com - IPA: 207.66.214.216
- System:
- Redirect URL: /default.ida
------------------------------
Date: Mon, 27 Aug 2001 15:05:26 -0000
From: Jason Baker <baker@Akira.cyborgworkshop.com>
Subject: RegEx?
Message-Id: <tokodmm7552r95@news.supernews.com>
I hope this is a simple problem that I have just been staring at for too long. I have, in a database, a field that looks like this
firstname lastname <email@wherever.com>
All I want to do is capture the name, not email address, into a variable. I have tried this
my ($from) = $row->[1] =~ /^ .. \</;
and several other variations of that with no luck. Anyone care to help a guy out?
--
Jason
www.cyborgworkshop.com
...and the geek shall inherit the earth...
------------------------------
Date: 27 Aug 2001 19:12:27 +0400
From: Ilya Martynov <ilya@martynov.org>
Subject: Re: RegEx?
Message-Id: <87vgj9lep0.fsf@abra.ru>
>>>>> On Mon, 27 Aug 2001 15:05:26 -0000, Jason Baker <baker@Akira.cyborgworkshop.com> said:
JB> I hope this is a simple problem that I have just been staring at
JB> for too long. I have, in a database, a field that looks like this
JB> firstname lastname <email@wherever.com>
JB> All I want to do is capture the name, not email address, into a
JB> variable. I have tried this
JB> my ($from) = $row->[1] =~ /^ .. \</;
JB> and several other variations of that with no luck. Anyone care to
JB> help a guy out?
my ($from) = $row->[1] =~ /(.*?)</;
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| Ilya Martynov (http://martynov.org/) |
| GnuPG 1024D/323BDEE6 D7F7 561E 4C1D 8A15 8E80 E4AE BE1A 53EB 323B DEE6 |
| AGAVA Software Company (http://www.agava.com/) |
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
------------------------------
Date: 27 Aug 2001 15:14:22 GMT
From: trammell@haqq.hypersloth.invalid (John J. Trammell)
Subject: Re: RegEx?
Message-Id: <slrn9ol843.i91.trammell@haqq.hypersloth.net>
On Mon, 27 Aug 2001 15:05:26 -0000, Jason Baker wrote:
> firstname lastname <email@wherever.com>
> All I want to do is capture the name, not email address, into
> a variable.
[ ~ ] perl -w
my $line = q[Burt Snurt <bs@foo.com>];
my ($name) = ($line =~ /^(.*)</);
print $name, "\n";
Burt Snurt
[ ~ ]
--
It's clear that the crew to send to Mars must be comprised of midget
eunuchs.
------------------------------
Date: Mon, 27 Aug 2001 12:35:26 -0400
From: Samneric <samneric@tigerriverOMIT-THIS.com>
Subject: Re: RegEx?
Message-Id: <MPG.15f440d5daa4fb2298969f@news.onemain.com>
Ilya Martynov wrote:
> >>>>> Jason Baker said:
> JB> firstname lastname <email@wherever.com>
> JB> All I want to do is capture the name, not email address, into a
> JB> variable.
> my ($from) = $row->[1] =~ /(.*?)</;
my ($from) = $row->[1] =~ /(.*?) </;
Removes the space before "<" :)
------------------------------
Date: Mon, 27 Aug 2001 10:22:35 -0700
From: Dave Mittner <dmittner@cavecreek.com>
Subject: Selecting * on numerous MySQL tables.
Message-Id: <3B8A81DB.41266CC1@cavecreek.com>
I'm running into a snag... here's an example of the query I'm making
from within Perl:
SELECT * FROM table1,table2
I know it's not a nice way to do it, but I'm making an SQL webpage
frontend which I'd like to support it just in case. I'm
using fetchrow->hashref to pull it out and display it. The problem I'm
running into is when table1 and table2 have similar
column names. One of them would be overwritten in the hash reference to
be replaced by the second one it encounters.
So my question is this. Is there any way to force MySQL to ouput the
table name with the column name instead of just the
column name, ie. table1.column2.
Thanks in advance,
Dave Mittner
------------------------------
Date: Mon, 27 Aug 2001 13:00:13 -0500
From: Mr Sunblade <djberge@uswest.com>
Subject: Re: Sex or Perl? Which is better?
Message-Id: <3B8A8AAD.F84D9647@uswest.com>
Hessu wrote:
> None wrote:
> >"none"
>
> I'm doing perl all night long to my Girl!
> So did I miss something here?
>
> YAPF
Would that be a "Perl necklace" reference? ;)
Ok, time to grow up now...
--
"Evil will always triumph because Good is *dumb*."
-- Dark Helmet, 'Spaceballs: The Movie'
------------------------------
Date: Mon, 27 Aug 2001 14:05:43 GMT
From: John Porter <johndporter@yahoo.com>
Subject: Re: simple
Message-Id: <3B8A5305.4DD60045@yahoo.com>
Ilmari Karonen wrote:
> package sep;
> use overload '""' => sub { chop ${+shift} or ' ' };
My hat's off to you. The chop trick is neat; however, it only
works for single-character separator strings...
--
John Porter
------------------------------
Date: Mon, 27 Aug 2001 15:16:45 +0200
From: =?ISO-8859-1?Q?Thomas_B=E4tzler?= <Thomas@Baetzler.de>
Subject: Re: Two simple structures! but what is the difference?
Message-Id: <3uhkotk1qu0h7b98pr3rdmcn87daqqdjj4@4ax.com>
Hi,
On Mon, 27 Aug 2001, "Peter Mann" <Pcmann1@btinternet.com> wrote:
>Dear all,
> I have a program im trying to restructure, but there is a small
>fragement of code that is causing problems. Initially I have 'strucure 1',
[...]
>Any suggestions what the difference is would be much appreciated!
>#-------------------------
># Structure 1
>my $check = defined $fragment ? 'check_fragment' :
> 'check_base';
>#-------------------------
This assigns the string 'check_fragment' to $check if $fragment is
defined. Otherwise, it assigns the string 'check_base'.
>#-------------------------
># Structure 2
> my $check;
> if (defined $fragment) {
> $check = check_fragement()
> }
> else
> {
> $check = check_base()
> }
>#-------------------------
This actually calls the functions check_fragment or check_base based
on wether $fragment is defined.
HTH,
--
Thomas Baetzler - http://baetzler.de/ - Clan LoL - http://lavabackflips.de/
I am the "ILOVEGNU" signature virus. Just copy me to your signature.
This post was infected under the terms of the GNU General Public License.
------------------------------
Date: Mon, 27 Aug 2001 11:32:39 -0400
From: Samneric <samneric@tigerriverOMIT-THIS.com>
Subject: Re: Two simple structures! but what is the difference?
Message-Id: <MPG.15f432011b43dc5298969e@news.onemain.com>
Peter Mann wrote:
> Dear all,
> I have a program im trying to restructure, but there is a small
> fragement of code that is causing problems.
I'm assuming that you didn't write the original code but are trying to re-write
it. Or else you did write it, but you wrote it to look "nice" at the time and
have since forgotten its meaning.
> #-------------------------
> # Structure 1
> my $check = defined $fragment ? 'check_fragment' : 'check_base';
Sets $check to the name of the subroutine to be called below both structures.
> my $success = $link->$check();
So, depending on whether $fragment is defined, $success is either assigned the
return value from:
$link->check_fragment() # if $fragment defined
or else from:
$link->check_base() # else check ($base ???)
> p.s. - 'check_fragement' and 'check_base' are two other subs, ones that I
> want to call all within strucutre 2 rather than call them seperately!
Not according to the code that sets $success. These "subs" are actually methods
belonging to $link's object. You would have to call them with the "$link->"
part prefixed to the method "name()" part.
> #-------------------------
> # Structure 2
> my $check;
> if (defined $fragment) {
> $check = check_fragement()
> }
> else
> {
> $check = check_base()
> }
> #-------------------------
This expands the "?:" structure into "if/else", but it doesn't call
$linkcheck_fragement->() OR $link->check_base() to set $success - which I'm
assuming is about to be used somewhere.
And you no longer need $check (as if it was EVER needed...)
Try:
my $success;
if (defined $fragment) {
$success = $link->check_fragment();
}
else {
$success = $link->check_base();
}
> my $success = $link->$check();
now you can omit this line, since you already set $success.
------------------------------
Date: Mon, 27 Aug 2001 08:20:02 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: warnings with cgi will crash Win32 perl core
Message-Id: <3B8A6522.8200C7DF@stomp.stomp.tokyo>
Benjamin Goldberg wrote:
> Godzilla! wrote:
> > Godzilla! wrote:
> > > I have been playing around with warnings in the format
> > > of -w to discover how many other ways use of warnings
> > > screws up a Perl script. They are numerous.
(snipped)
> > I have attached a simple script which well displays
> > how erratic is the behavior of warnings. A quick
> > glance at this structure of my test script and, an
> > equally quick glance at this warnings generated
> > message, discloses significantly erratic behavior
> > of perl core warnings.
> The word "erratic" means it happens sometimes and not other times, and
> whether it does or not is unpredictable. I don't think this is
> happening, and I certainly don't see this happening anywhere in your
> example.
(snipped remaining erratic Goldberg CLPM Troll thinking)
I suspect you have been eating too much of your
own canned Mule Manure. Clearly this is all you
are capable of producing, from either end.
Your comments and thought patterns are both so
extraordinarily skewed, this surprises even me.
Godzilla!
------------------------------
Date: Mon, 27 Aug 2001 08:23:43 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: warnings with cgi will crash Win32 perl core
Message-Id: <3B8A65FF.792C1D28@stomp.stomp.tokyo>
Yves Orton wrote:
> "Godzilla! wrote:
> > Yves Orton wrote:
> > > Godzilla! wrote
> > > > Yves Orton wrote:
> > > > > Godzilla! wrote:
(snipped classic CLPM Troll blatherings)
You and Goldberg collaborate on this Mule Manure project?
Godzilla!
------------------------------
Date: Mon, 27 Aug 2001 15:29:44 GMT
From: John Porter <johndporter@yahoo.com>
Subject: Re: warnings with cgi will crash Win32 perl core
Message-Id: <3B8A66B7.DCD07FE3@yahoo.com>
"Godzilla!" wrote:
> This proved to be useful for a few mistakes I made in a
> very large four-thousand line script.
Four thousand lines is very large? If you say so...
> Today I discovered warnings provide false information
> about use of my declarations within sub-routines, this is,
> "...not be shared..." warning. ... these my declared
> variables will not be shared on a global basis or psuedo
> global basis,
"pseudo-global"?
> which is exactly as intended via my code.
> Warnings, in this case, provides erroneous information.
The warnings are not in error. If they tell you what
you already know (and intended), then turn them off.
> Warnings also cop an "unitialized" message when working
> with typical cgi environmental variables. This message,
> as with not shared my declarations, is erroneous.
There are some known bugs with "initialized" messages.
Have you checked the bugs database? What version of
perl are you using, anyway?
However. In a later post you show "undefined" warnings,
not "unitialized". You can be forgiven for not appreciating
the difference, as a novice perl programmer. But please be
assured that if perl is telling you a value is undef, it
is undef. Did you actually test the variable yourself?
(And why should I believe you? Let me see the code instead.)
> Fortunately, my system has seven-hundred-sixty-eight
> megabytes of RAM.
Very impressive.
> "You MUST always crash your system."
> "You MUST always crash perl core."
> "You MUST always generate false warnings."
Please post your code. I (and I'm sure others) would be
glad to provide independent verification of your findings.
--
John Porter
------------------------------
Date: Mon, 27 Aug 2001 08:43:35 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: warnings with cgi will crash Win32 perl core
Message-Id: <3B8A6AA7.F9E533A1@stomp.stomp.tokyo>
Benjamin Goldberg wrote:
> Godzilla! wrote:
> > Godzilla! wrote:
> > > I have been playing around with warnings in the format
> > > of -w to discover how many other ways use of warnings
> > > screws up a Perl script. They are numerous.
(snipped)
> > These messages about unitialized environmental
> > variables should only show up when working from
> > a command line. Nonetheless, in this complex script,
> > those warnings are hooked in. How, I don't know.
> Why do you think they should only show up when working with the
> commandline? If it's uninitialized, and warnings are turned on, it
> prints a warning. Maybe you think that that particular variable *should
> be* initialized when not run from the commandline?
You should research your shovels better before piling
mule manure within this group. This child's plastic
play toy shovel you use, is most inefficient.
Run this script from a DOS command line, then via a browser.
#!perl -w
BEGIN
{
use CGI::Carp qw(carpout);
open(LOG, ">carpout.txt");
carpout(*LOG);
}
print "Content-type: text/plain\n\n";
print substr ($ENV{REMOTE_ADDR}, 0, 6);
exit;
* wonders why the CLPM Troll shoots his mouth off before loading his brain *
Godzilla!
------------------------------
Date: Mon, 27 Aug 2001 08:48:12 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: warnings with cgi will crash Win32 perl core
Message-Id: <3B8A6BBC.141729DB@stomp.stomp.tokyo>
John Porter wrote:
> Godzilla! wrote:
> > This proved to be useful for a few mistakes I made in a
> > very large four-thousand line script.
(snipped idiocy)
Oh my! The CLPM Troll has created his one-millionth
fake name! Go see Ronald McDonald. Perhaps he will
provide you a free hamburger for your accomplishment.
Godzilla!
------------------------------
Date: Mon, 27 Aug 2001 09:14:31 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: warnings with cgi will crash Win32 perl core
Message-Id: <3B8A71E7.E35E6190@stomp.stomp.tokyo>
Benjamin Goldberg wrote:
> Godzilla! wrote:
> > Godzilla! wrote:
> > > I have been playing around with warnings in the format
> > > of -w to discover how many other ways use of warnings
> > > screws up a Perl script. They are numerous.
> > (snipped)
> > I have attached a simple script which well displays
> > how erratic is the behavior of warnings. A quick
> > glance at this structure of my test script and, an
> > equally quick glance at this warnings generated
> > message, discloses significantly erratic behavior
> > of perl core warnings.
> The word "erratic" means it happens sometimes and not other times, and
> whether it does or not is unpredictable. I don't think this is
> happening, and I certainly don't see this happening anywhere in your
> example.
My test script below my signature will draw pictures so those
of you with less than acceptable reading comprehension skills
will be afforded a better chance at just that, comprehension.
* laughs *
Godzilla!
--
#!perl -w
&Nest_1;
sub Nest_1
{
my ($nest_1) = "nest one";
print "Nest 1: $nest_1\n";
my ($nest_1_2) = "nest one_two";
print "\nPerl Warnings Missed This Variable: Nest 1_2: $nest_1_2\n";
my (@Array_1) = qw (nest_one);
print "\nPerl Warnings Missed This Array: @Array_1\n";
print "\n\nPerl Warnings Missed All Of The Following Variables And Arrays:\n\n";
&Nest_2;
sub Nest_2
{
my ($nest_2) = "nest two";
print "Nest 2: $nest_1\n";
my (@Array_2) = qw (nest_two);
print "@Array_2\n";
&Nest_3;
sub Nest_3
{
my ($nest_3) = "nest three";
print "Nest 3: $nest_3\n";
my (@Array_3) = qw (nest_three);
print "@Array_3\n";
}
}
}
exit;
------------------------------
Date: Mon, 27 Aug 2001 14:07:37 GMT
From: John Porter <johndporter@yahoo.com>
Subject: Re: Why is $i so popular?
Message-Id: <3B8A5378.E6BD6C12@yahoo.com>
"Randal L. Schwartz" wrote:
> Fortran77 may have introduced the type declaration to override the mandatory "convention".
--
John Porter
God is real. Unless declared integer.
------------------------------
Date: 27 Aug 2001 17:43:23 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Will Perl report on variables no longer used??
Message-Id: <slrn9ol1lv.plv.abigail@alexandra.xs4all.nl>
Benjamin Goldberg (goldbb2@earthlink.net) wrote on MMCMXVIII September
MCMXCIII in <URL:news:3B8A1425.4D5CC9D1@earthlink.net>:
~~ Abigail wrote:
~~ >
~~ > Furthermore, I quite often use lexical variables that appear only once
~~ > in the program - yet if the compiler would give a warning of being
~~ > used only once, it would be an annoyance as the variable is needed.
~~ > There are after all no anonymous scalars.
~~ >
~~ > sub TIESCALAR {
~~ > my $proto = shift;
~~ > my $class = ref $proto || $proto;
~~ >
~~ > bless \(my $foo = shift) => $class;
~~ > }
~~
~~ I think this is a special case -- it's used once, but a reference to it
~~ is returned to be used elsewhere. Here's Craig Berry's example:
~~
~~ sub foo {
~~ my $bar;
~~ 1;
~~ }
~~
~~ Neither $bar nor a reference to it is ever used -- yet perl gives no
~~ warning about it.
So what? Unlike package variables, it's hard to come up with examples
where such unused variables can lead to a problem.
I'd be interested if you can find an algorithm that Perl should use
to figure out any "unused variables" that doesn't lead to false
positives and doesn't solve the halting problem either.
Abigail
--
perl -wle 'eval {die ["Just another Perl Hacker"]}; print ${${@}}[$#{@{${@}}}]'
# Ten woodpeckers above
# a rice field. A pair of eagles
# fly north. Ryokan.
------------------------------
Date: Mon, 27 Aug 2001 10:43:41 -0700
From: "Swanthog" <lhswartw@ichips.intel.com>
Subject: Win32 Socket Programming
Message-Id: <9me0se$1cg@news.or.intel.com>
Hi,
Can anyone tell me the method for configuring a Win32 tcp server so that
accept() will not block? I've tried:
$flags = fcntl( SERVER, F_GETFL, 0)
or &err_msg_and_die("Can't get flags for socket: " .
Win32::FormatMessage( Win32::GetLastError()));
$flags = fcntl( SERVER, F_SETFL, $flags | O_NONBLOCK)
or &err_msg_and_die("Can't set flags for socket: " .
Win32::FormatMessage( Win32::GetLastError()));
Which resulted in this error message from the compiler:
Uncaught exception from user code:
Your vendor has not defined Fcntl macro F_GETFL, used at
H:\projects\sendem\legoRCs.pl line
648.
Fcntl::AUTOLOAD() called at H:\projects\sendem\legoRCs.pl line
648
main::start_server() called at H:\projects\sendem\legoRCs.pl line
125
Thanks,
Larry S.
------------------------------
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 1628
***************************************
